mirror of
https://github.com/Haskell-Things/ImplicitCAD.git
synced 2024-09-17 16:08:01 +03:00
11 lines
261 B
Haskell
11 lines
261 B
Haskell
-- Example 13 - the rounded union of a cube and a sphere.
|
|
import Control.Applicative (pure)
|
|
import Graphics.Implicit
|
|
|
|
out = union [
|
|
cube False (pure 20) -- same as (V3 20 20 20)
|
|
, translate (pure 20) $ sphere 15
|
|
]
|
|
|
|
main = writeSTL 1 "example13.stl" out
|