hfoil 0.2.0.1 → 0.2.0.2
raw patch · 2 files changed
+5/−5 lines, 2 filesdep ~not-glossdep ~parsecPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: not-gloss, parsec
API changes (from Hackage documentation)
Files
- hfoil.cabal +3/−3
- src/HFoil/Drawing.hs +2/−2
hfoil.cabal view
@@ -1,5 +1,5 @@ Name: hfoil-Version: 0.2.0.1+Version: 0.2.0.2 Stability: Experimental Synopsis: Hess-Smith panel code for inviscid 2-d airfoil analysis License: BSD3@@ -48,14 +48,14 @@ -- Other-modules: Build-depends: base >= 4 && < 5- , not-gloss >= 0.7.2.0+ , not-gloss >= 0.7.4.0 , linear , hmatrix >= 0.12 , haskeline >= 0.6 , transformers >= 0.2 , directory >= 1.1 , HTTP >= 4000.2- , parsec >= 3+ , parsec >= 3.1.6 Ghc-Options: -Wall Ghc-Prof-Options: -prof -auto-all
src/HFoil/Drawing.hs view
@@ -28,7 +28,7 @@ normalLengths = 0.01 drawLine :: Num a => Color -> [(a,a)] -> VisObject a-drawLine col coords = Line (map (\(x,y) -> V3 x y 0) coords) col+drawLine col coords = Line Nothing (map (\(x,y) -> V3 x y 0) coords) col drawCircle :: Num a => Color -> (a, a) -> a -> VisObject a drawCircle col (x,y) size = Trans (V3 x y 0) $ Sphere size Solid col@@ -38,7 +38,7 @@ -- $ Circle size drawLineV :: (Num a, Storable a) => Color -> (Vector a, Vector a) -> VisObject a-drawLineV col (vx, vy) = Line (zipWith (\x y -> V3 x y 0) (toList vx) (toList vy)) col+drawLineV col (vx, vy) = Line Nothing (zipWith (\x y -> V3 x y 0) (toList vx) (toList vy)) col drawFoil :: (Num a, Storable a) => Foil a -> VisObject a drawFoil (Foil elements _) = VisObjects $ map drawElement elements