30 lines
613 B
Common Lisp
30 lines
613 B
Common Lisp
; animated recusive spiral
|
|
; by @local_guru
|
|
(
|
|
(clear)
|
|
(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 "#fff")
|
|
(rec
|
|
(sub v 0.3)))))
|
|
; set false to stop
|
|
(animate true)
|
|
(rec 300)) |