added my "Ronin experiment no 1 - spiral"
This commit is contained in:
parent
ed406ca1ed
commit
01f387f8e6
24
examples/g_spiral1.lisp
Normal file
24
examples/g_spiral1.lisp
Normal file
@ -0,0 +1,24 @@
|
|||||||
|
(
|
||||||
|
(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 "rgba(255,255,255,0.1")
|
||||||
|
(rec (sub v 0.3))
|
||||||
|
)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
(rec 300)
|
||||||
|
)
|
Loading…
x
Reference in New Issue
Block a user