mirror of
https://github.com/Haskell-Things/ImplicitCAD.git
synced 2024-09-17 16:08:01 +03:00
9 lines
248 B
Haskell
9 lines
248 B
Haskell
|
-- 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
|