Fixed animate example

2019-07-17 11:17:27 +09:00
parent 1a7b1c53d7
commit 06bfca5828
4 changed files with 10 additions and 6 deletions
--- a/examples/animate.lisp
+++ b/examples/animate.lisp
@@ -1,10 +1,13 @@
 ; animate

 (
-(ronin animate)
-(def t (sin (div (time) 100)))
+  (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")
+  (def pos (add 200 (mul 30 t)))
+  (defn square (a) (rect a a a a))
+  (stroke (square pos) 1 "red")
+
+  (start)
 )