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

Fixed spiral

Browse Source
This commit is contained in:
Devine Lu Linvega 2019-07-24 14:17:08 +09:00
parent 2a5564465a
commit fc6a8bf69f
1 changed files with 16 additions and 26 deletions

38
examples/demo/spiral.lisp

@ -1,30 +1,20 @@
; animated recusive spiral ; animated recusive spiral
; by @local_guru ; by @local_guru
(clear)
;
(defn rec (defn rec
(v) (v)
(if (if (gt v 0)
(gt v 0) ((stroke
(
(stroke
(circle (circle
(add 375 (add 375 (mul (cos (add (div v 17) (div (time) 2000))) (div v 2)))
(mul (add 300 (mul (sin (div v 11)) (div v 2)))
(cos (div v 2)) 1 "rgba(114,222, 194,0.1)")
(add (rec (sub v 0.3)))))
(div v 17) ;
(div (defn redraw () (
(time) 2000))) (clear)
(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)))))
; set false to stop
(animate true)
(rec 300) (rec 300)
))
;
(on "animate" redraw)