Added clone function

2019-07-13 14:14:59 +09:00
parent 9757fcfb48
commit 44414600a1
6 changed files with 34 additions and 15 deletions
--- a/examples/test1.lisp
+++ b/examples/test1.lisp
@@ -1,5 +1,7 @@
 ; test file

-((stroke (rect 15 15 120 80) 2 "red")
-(fill (rect 30 30 120 80) 2 "blue")
-(clear (rect 45 45 45 45)))
+((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)))