ronin/examples/test1.lisp
Devine Lu Linvega 1729dc7fa0 Added line type
2019-07-13 14:28:41 +09:00

9 lines
235 B
Common Lisp

; test file
((clear)
(stroke (rect 15 15 120 80) 2 "red")
(fill (rect 30 30 120 80) "#72dec2")
(clear (rect 45 45 45 45))
(clone (rect 0 0 200 200) (rect 100 100 200 200))
(stroke (line (pos 15 15) (pos 200 200)) 10 "red")
)