dakedres/ronin
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix on-animate Example

Browse Source
This commit is contained in:
Bladymir Tellez 2020-08-21 08:51:54 -05:00
parent e375668143
commit 08aba8a028
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/events/on-animate.lisp
View File

@ -1,6 +1,7 @@
; this demo shows how to use the animate event to animate lines into a sine wave. ; 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 (def seg-width
(div frame:w seg-count)) (div frame:w seg-count))
@ -37,5 +38,6 @@
() ()
( (
(clear) (clear)
(times seg-count draw-dash))) (each (range 0 seg-count) draw-dash)))
;
(on "animate" redraw) (on "animate" redraw)