Merge branch 'master' of github.com:hundredrabbits/Ronin

examples/shapes.lisp

@@ -1,4 +1,24 @@
 ; Shapes
 
-(
-  (stroke (circle (div (of (frame) "w") 2) (div (of (frame) "h") 2) 100) 2 "red"))
+((clear)
+
+  ; variables
+  (def center-w (div (of (frame) "w") 2))
+  (def center-h (div (of (frame) "h") 2))
+  (def rad (div (of (frame) "h") 4))
+  
+  ; draw circle
+  (stroke 
+    (circle center-w center-h rad) 2 "red")
+
+  ; draw rect
+  (stroke 
+    (rect 
+      (sub center-w rad) (sub center-h rad) center-h center-h) 2 "red")
+
+  ; draw line
+  (stroke 
+    (line 
+      (pos (sub center-w rad) center-h)
+      (pos (add center-w rad) center-h)))
+  )

examples/test1.lisp

@@ -1,9 +0,0 @@
-; 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")
-)