20 lines
390 B
Common Lisp
20 lines
390 B
Common Lisp
; 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)))))
|
|
;
|
|
(defn redraw () (
|
|
(clear)
|
|
(rec 300)
|
|
))
|
|
;
|
|
(on "animate" redraw) |