Haskell-Things/ImplicitCAD
1
1
Fork 0
mirror of https://github.com/Haskell-Things/ImplicitCAD.git synced 2024-09-17 16:08:01 +03:00
Code Issues Projects Releases Wiki Activity

be more explicit about imports.

Browse Source
This commit is contained in:
Julia Longtin 2019-12-31 14:26:37 +00:00
parent 629f6ac928
commit 57784d24fe
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Examples/example17.hs
View File

@ -1,13 +1,13 @@
-- Example 17, pulled from our benchmarking suite. -- Example 17, pulled from our benchmarking suite.
import Graphics.Implicit import Graphics.Implicit (union, translate, rect3R, writeSTL)
import Graphics.Implicit.Definitions import Graphics.Implicit.Definitions (Fastℕ, ℝ, ℝ3, SymbolicObj3)
default (Fastℕ, ℝ) default (Fastℕ, ℝ)
object2 :: SymbolicObj3 object2 :: SymbolicObj3
object2 = squarePipe (10,10,10) 1 100 object2 = squarePipe (10,10,10) 1 100
where where
squarePipe :: (ℝ,ℝ,ℝ) -> ℝ -> ℝ -> SymbolicObj3 squarePipe :: ℝ3 -> ℝ -> ℝ -> SymbolicObj3
squarePipe (x,y,z) diameter precision = squarePipe (x,y,z) diameter precision =
union union
$ fmap (\start-> translate start $ fmap (\start-> translate start