35 lines
610 B
Common Lisp
35 lines
610 B
Common Lisp
|
|
(clear)
|
|
; stroke rect
|
|
(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
|
|
(poly
|
|
(pos 300 300)
|
|
(pos 600 0)
|
|
(pos 600 300)) "red")
|
|
(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
|
|
(poly
|
|
(pos 300 300)
|
|
(pos 600 0)
|
|
(pos 600 300)) "red")
|
|
(resetTransform) |