42 lines
858 B
Common Lisp
42 lines
858 B
Common Lisp
; display a collection of all shapes.
|
|
(clear)
|
|
(stroke
|
|
(rect 0 0 300 300) theme:b_high)
|
|
(stroke
|
|
(circle 150 150 150) theme:b_med)
|
|
(stroke
|
|
(ellipse 150 150 75 150) theme:b_high)
|
|
(stroke
|
|
(line 0 150 300 150) theme:b_high)
|
|
(stroke
|
|
(text 600 300 60 "hell") theme:b_med)
|
|
(stroke
|
|
(arc 600 298 296
|
|
(rad 180)
|
|
(rad -90)) theme:b_med)
|
|
(stroke
|
|
(poly
|
|
(pos 300 300)
|
|
(pos 600 0)
|
|
(pos 600 300)) theme:b_high)
|
|
(transform:move 0 300)
|
|
(fill
|
|
(rect 0 0 300 300) theme:b_high)
|
|
(fill
|
|
(circle 150 150 150) theme:b_med)
|
|
(fill
|
|
(ellipse 150 150 75 150) theme:b_high)
|
|
(fill
|
|
(line 0 150 300 150) theme:b_high)
|
|
(fill
|
|
(text 600 300 60 "hell") theme:b_med)
|
|
(fill
|
|
(arc 600 298 296
|
|
(rad 180)
|
|
(rad -90)) theme:b_med)
|
|
(fill
|
|
(poly
|
|
(pos 300 300)
|
|
(pos 600 0)
|
|
(pos 600 300)) theme:b_high)
|
|
(transform:reset) |