add animation

This commit is contained in:
Quentin Leonetti
2019-07-14 15:25:12 +02:00
parent 391874841b
commit fccfb598d9
4 changed files with 24 additions and 2 deletions

10
examples/animation.lisp Normal file
View File

@@ -0,0 +1,10 @@
; animation
; click Project > Toggle Animation
(
(def t (sin (div (time) 100)))
(def pos (add 200 (mul 30 t)))
(def square (lambda (a) (rect (add 200 a) a a a)))
(stroke (square pos) 1 "red")
)