Fixed spiral

examples/demo/spiral.lisp

@@ -1,30 +1,20 @@
 ; animated recusive spiral
 ; by @local_guru 
-(clear) 
+
+;
 (defn rec 
   (v) 
-  (if 
-    (gt v 0) 
-    (
-      (stroke 
-        (circle 
-          (add 375 
-            (mul 
-              (cos 
-                (add 
-                  (div v 17) 
-                  (div 
-                    (time) 2000))) 
-              (div v 2))) 
-          (add 300 
-            (mul 
-              (sin 
-                (div v 11)) 
-              (div v 2))) 
-          (div v 2)) 1 "rgba
-        (114,222, 194,0.1)") 
-      (rec 
-        (sub v 0.3))))) 
-; set false to stop 
-(animate true) 
-(rec 300)
+  (if (gt v 0) 
+    ((stroke 
+      (circle 
+          (add 375 (mul (cos (add (div v 17) (div (time) 2000))) (div v 2))) 
+          (add 300 (mul (sin (div v 11)) (div v 2))) 
+          (div v 2)) 1 "rgba(114,222, 194,0.1)") 
+      (rec (sub v 0.3))))) 
+;
+(defn redraw () (
+  (clear) 
+  (rec 300)
+))
+;
+(on "animate" redraw)