ImplicitCAD/Examples/example11.hs
2018-08-07 17:33:17 +02:00

10 lines
205 B
Haskell

-- Example 11 - the union of a square and a circle.
import Graphics.Implicit
out = union [
rectR 0 (-40,-40) (40,40),
translate (40,40) (circle 30) ]
main = writeSVG 2 "example11.svg" out