mirror of
https://github.com/Haskell-Things/ImplicitCAD.git
synced 2024-08-14 23:40:38 +03:00
13 lines
294 B
Haskell
13 lines
294 B
Haskell
import Control.Applicative (pure)
|
|
import Graphics.Implicit
|
|
import Graphics.Implicit.Definitions
|
|
import Graphics.Implicit.Primitives
|
|
|
|
roundbox:: SymbolicObj3
|
|
roundbox =
|
|
implicit
|
|
(\(V3 x y z) -> x^4 + y^4 + z^4 - 15000)
|
|
(pure (-20), pure 20)
|
|
|
|
main = writeSTL 2 "example16.stl" roundbox
|