Haskell-Things/ImplicitCAD
1
1
Fork 0
mirror of https://github.com/Haskell-Things/ImplicitCAD.git synced 2024-09-11 04:55:41 +03:00
Code Issues Projects Releases Wiki Activity

fmap instead of map.

Browse Source
This commit is contained in:
Julia Longtin 2019-12-26 13:03:55 +00:00
parent 6afe354619
commit bb3893fdfe
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Examples/example17.hs
View File

@ -10,12 +10,12 @@ object2 = squarePipe (10,10,10) 1 100
squarePipe :: (ℝ,ℝ,ℝ) -> ℝ -> ℝ -> SymbolicObj3
squarePipe (x,y,z) diameter precision =
union
$ map (\start-> translate start
$ fmap (\start-> translate start
$ rect3R 0 (0,0,0) (diameter,diameter,diameter)
)
$ zip3 (map (\n->(fromIntegral n/precision)*x) [0..100])
(map (\n->(fromIntegral n/precision)*y) [0..100])
(map (\n->(fromIntegral n/precision)*z) [0..100])
$ zip3 (fmap (\n->(fromIntegral n/precision)*x) [0..100])
(fmap (\n->(fromIntegral n/precision)*y) [0..100])
(fmap (\n->(fromIntegral n/precision)*z) [0..100])
main = writeSTL 1 "example17.stl" object2