Merge pull request #137 from blad/fix-on-animate-example

Fix on-animate Example

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)