ImplicitCAD/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
compile more examples, refer to them in documentationw and clean up the .gitignore. 2016-03-04 04:36:17 +03:00			`-- 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) ]`
Whitespace cleanup 2018-08-07 18:25:59 +03:00
compile more examples, refer to them in documentationw and clean up the .gitignore. 2016-03-04 04:36:17 +03:00			`main = writeSVG 2 "example12.svg" out`