ImplicitCAD/Examples/example11.hs

mirror of https://github.com/Haskell-Things/ImplicitCAD.git synced 2024-09-17 16:08:01 +03:00
-- 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
compile more examples, refer to them in documentationw and clean up the .gitignore. 2016-03-04 04:36:17 +03:00			`-- 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`
Whitespace cleanup 2018-08-07 18:25:59 +03:00