mirror of
https://github.com/Haskell-Things/ImplicitCAD.git
synced 2024-09-11 04:55:41 +03:00
11 lines
200 B
Haskell
11 lines
200 B
Haskell
-- Example 11 - the union of a square and a circle.
|
|
import Graphics.Implicit
|
|
|
|
out = union [
|
|
square True (V2 80 80)
|
|
, translate (V2 40 40) $ circle 30
|
|
]
|
|
|
|
main = writeSVG 2 "example11.svg" out
|
|
|