ImplicitCAD/Examples/example12.hs

-- Example 12 - the rounded union of a square and a circle.
import Control.Applicative (pure)
import Graphics.Implicit

out = unionR 14 [
    square True (pure 80) -- pure 80 turns into (V2 80 80)
  , translate (pure 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.`
Update examples to new API Closes #360. 2021-04-17 14:36:00 +03:00			`import Control.Applicative (pure)`
compile more examples, refer to them in documentationw and clean up the .gitignore. 2016-03-04 04:36:17 +03:00			`import Graphics.Implicit`

			`out = unionR 14 [`
Update examples to new API Closes #360. 2021-04-17 14:36:00 +03:00			`square True (pure 80) -- pure 80 turns into (V2 80 80)`
			`, translate (pure 40) $ circle 30`
Tidy Haskell examples Both in Examples dir and README. 2020-12-05 12:25:01 +03:00			`]`
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`