43 lines
750 B
Common Lisp
43 lines
750 B
Common Lisp
; shapes
|
|
(clear)
|
|
(stroke
|
|
(rect 0 0 300 300) "red")
|
|
(stroke
|
|
(circle 150 150 150) "white")
|
|
(stroke
|
|
(ellipse 150 150 75 150) "red")
|
|
(stroke
|
|
(line 0 150 300 150) "red")
|
|
(stroke
|
|
(text 600 300 60 "hell") "white")
|
|
(stroke
|
|
(arc 600 298 296
|
|
(rad 180)
|
|
(rad -90)) "white")
|
|
(stroke
|
|
(poly
|
|
(pos 300 300)
|
|
(pos 600 0)
|
|
(pos 600 300)) "red")
|
|
(transform:move 0 300)
|
|
(fill
|
|
(rect 0 0 300 300) "red")
|
|
(fill
|
|
(circle 150 150 150) "white")
|
|
(fill
|
|
(ellipse 150 150 75 150) "red")
|
|
(fill
|
|
(line 0 150 300 150) "red")
|
|
(fill
|
|
(text 600 300 60 "hell") "white")
|
|
(fill
|
|
(arc 600 298 296
|
|
(rad 180)
|
|
(rad -90)) "white")
|
|
(fill
|
|
(poly
|
|
(pos 300 300)
|
|
(pos 600 0)
|
|
(pos 600 300)) "red")
|
|
(transform:reset)
|