added my "Ronin experiment no 1 - spiral"

2019-07-17 06:17:17 +02:00 · 2019-07-17 06:17:17 +02:00 · 01f387f8e6
commit 01f387f8e6
parent ed406ca1ed
1 changed files with 24 additions and 0 deletions
--- a/examples/g_spiral1.lisp
+++ b/examples/g_spiral1.lisp
@ -0,0 +1,24 @@
+(
+ (defn rec
+  (v)
+  (if (gt v 0)
+   ((stroke 
+     (circle 
+      (add 300 
+       (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(255,255,255,0.1")
+    (rec (sub v 0.3))
+   )
+  )
+ )
+(rec 300)
+)