Fix on-animate Example

2020-08-21 08:51:54 -05:00 · 2020-08-21 08:51:54 -05:00 · 08aba8a028
commit 08aba8a028
parent e375668143
1 changed files with 7 additions and 5 deletions
--- a/examples/events/on-animate.lisp
+++ b/examples/events/on-animate.lisp
@ -1,6 +1,7 @@
 ; this demo shows how to use the animate event to animate lines into a sine wave.
+(def frame (get-frame))
 ;
-(def seg-count 50)
+(def seg-count 100)
 ; 
 (def seg-width 
  (div frame:w seg-count)) 
@ -37,5 +38,6 @@
  () 
  (
    (clear)
-    (times seg-count draw-dash)))
+    (each (range 0 seg-count) draw-dash)))
+;
 (on "animate" redraw)