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
; by @local_guru
;
(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)))))
(
; params
(def spiral-x (add (of (frame) :c) (mul (cos (add (div v 17) (time 0.001))) (div v 2))))
(def spiral-y (add (of (frame) :m) (mul (sin (div v 11)) (div v 2))))
(def spiral-r (div v 2))
; draw
(stroke (circle spiral-x spiral-y spiral-r) 1 "rgba(114,222,194,0.1)") (rec (sub v 0.3)))))
;
(defn redraw () (
(clear)
(rec 300)
))
(rec 300)))
;
(on "animate" redraw)