GuruBlog

I used the new transform:.. commands to create an animated flower.

press Ctrl-Shift-H to hide the guide lines

This is the code i used to create the flower

(transform:reset)
(clear)
(on "animate" '(
(transform:reset)
(fill (rect 0 0 600 600) "#00000013")
(transform:move 300 300)
(transform:push)
(def l (add 70 (mul 30 (sin (time 0.0001)))))
(def p (add 20 (mul 50 (cos (time 0.0003)))))
(def t (time 0.2))
(transform:rotate (mul TWO_PI (div (mod t 4000) 4000)))
(def c (color 255 0 255 0.1))
(def c2 (color 55 200 255 0.5))
(map (range 0 5) (λ (a) (
(def x (mul p (cos (mul (div TWO_PI 5) a))))
(def y (mul p (sin (mul (div TWO_PI 5) a))))
(stroke
(ellipse x y (mul 2 l) (mul 2.02 l))
c 5)
(stroke
(ellipse x y (mul 1.98 l) (mul 2 l))
c2 1)
)))
(transform:pop)
(def original (copy))
(transform:scale 0.99)
(transform:rotate -0.001)
(transform:move -300 -300)
(paste original)
))