dakedres/ronin
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Optimized spiral

Browse Source
This commit is contained in:
Devine Lu Linvega 2019-07-24 14:42:49 +09:00
parent fc6a8bf69f
commit 084d135df4
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
examples/demo/spiral.lisp
View File

@ -1,20 +1,18 @@
; animated recusive spiral ; animated recusive spiral
; by @local_guru ; by @local_guru
;
(defn rec (defn rec
(v) (v)
(if (gt v 0) (if (gt v 0)
((stroke (
(circle ; params
(add 375 (mul (cos (add (div v 17) (div (time) 2000))) (div v 2))) (def spiral-x (add (of (frame) :c) (mul (cos (add (div v 17) (time 0.001))) (div v 2))))
(add 300 (mul (sin (div v 11)) (div v 2))) (def spiral-y (add (of (frame) :m) (mul (sin (div v 11)) (div v 2))))
(div v 2)) 1 "rgba(114,222, 194,0.1)") (def spiral-r (div v 2))
(rec (sub v 0.3))))) ; draw
(stroke (circle spiral-x spiral-y spiral-r) 1 "rgba(114,222,194,0.1)") (rec (sub v 0.3)))))
; ;
(defn redraw () ( (defn redraw () (
(clear) (clear)
(rec 300) (rec 300)))
))
; ;
(on "animate" redraw) (on "animate" redraw)