add (animate)
This commit is contained in:
@@ -1,13 +1,12 @@
|
||||
; animate
|
||||
|
||||
(
|
||||
(def start (get ronin "animate"))
|
||||
|
||||
(def t (sin (div (time) 100)))
|
||||
|
||||
(def pos (add 200 (mul 30 t)))
|
||||
(defn square (a) (rect a a a a))
|
||||
(stroke (square pos) 1 "red")
|
||||
|
||||
(start)
|
||||
(animate)
|
||||
;(animate false) to stop animation
|
||||
)
|
||||
Reference in New Issue
Block a user