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

update spiral example

Browse Source
This commit is contained in:
Quentin Leonetti 2019-07-25 18:13:26 +02:00
parent 7c7feb9fb8
commit 25c106ee24
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/demo/spiral.lisp
View File

@ -5,8 +5,8 @@
(if (gt v 0) (if (gt v 0)
( (
; params ; params
(def spiral-x (add (of (frame) :c) (mul (cos (add (div v 17) (time 0.001))) (div v 2)))) (def spiral-x (add (:c (frame)) (mul (cos (add (div v 17) (time 0.001))) (div v 2))))
(def spiral-y (add (of (frame) :m) (mul (sin (div v 11)) (div v 2)))) (def spiral-y (add (:m (frame)) (mul (sin (div v 11)) (div v 2))))
(def spiral-r (div v 2)) (def spiral-r (div v 2))
; draw ; draw
(stroke (circle spiral-x spiral-y spiral-r) 1 "rgba(114,222,194,0.1)") (rec (sub v 0.3))))) (stroke (circle spiral-x spiral-y spiral-r) 1 "rgba(114,222,194,0.1)") (rec (sub v 0.3)))))