Added arc() shape

examples/basics/shapes.lisp

@@ -1,4 +1,3 @@
-
 (clear)
 ; stroke rect
 (stroke 
@@ -11,6 +10,10 @@
   (line 0 150 300 150) "red")
 (stroke 
   (text 600 300 60 "hell") "white")
+(stroke 
+  (arc 600 298 296 
+    (rad 180) 
+    (rad -90)) "white")
 (stroke 
   (poly 
     (pos 300 300) 
@@ -27,6 +30,10 @@
   (line 0 150 300 150) "red")
 (fill 
   (text 600 300 60 "hell") "white")
+(fill 
+  (arc 600 298 296 
+    (rad 180) 
+    (rad -90)) "white")
 (fill 
   (poly 
     (pos 300 300) 

examples/demo/spiral.lisp

@@ -1,5 +1,6 @@
 ; animated recusive spiral
 ; by @local_guru 
+(def frame-rect (frame))
 (defn rec 
   (v) 
   (if (gt v 0) 

examples/demo/stars.lisp

@@ -1,6 +1,8 @@
 ; stars
 (clear)
 ; times
+
+(def frame-rect (frame))
 (defn times 
   (v f) 
   (
@@ -28,8 +30,11 @@
   (cx cy r a) 
   (
     (stroke 
-      (line cx cy (:x (circle-pos cx cy r a)) (:y (circle-pos cx cy r a))
-        ) "white" 2)))
+      (line cx cy 
+        (:x 
+          (circle-pos cx cy r a)) 
+        (:y 
+          (circle-pos cx cy r a))) "white" 2)))
 ;
 (defn draw-star 
   (cx cy r c)