implicit-0.2.0: Examples/example12.hs

-- Example 12 - the rounded union of a square and a circle.
import Graphics.Implicit

out = unionR 14 [
                  rectR 0 (-40,-40) (40,40),
                  translate (40,40) (circle 30) ]
          
main = writeSVG 2 "example12.svg" out