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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
examples/demo/spiral.lisp
View File

@ -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
( (circle
(stroke (add 375 (mul (cos (add (div v 17) (div (time) 2000))) (div v 2)))
(circle (add 300 (mul (sin (div v 11)) (div v 2)))
(add 375 (div v 2)) 1 "rgba(114,222, 194,0.1)")
(mul (rec (sub v 0.3)))))
(cos ;
(add (defn redraw () (
(div v 17) (clear)
(div (rec 300)
(time) 2000))) ))
(div v 2))) ;
(add 300 (on "animate" redraw)
(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)