implicit-0.2.0: Examples/example11.hs

-- 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