diff options
Diffstat (limited to 'examples/animation.scm')
| -rw-r--r-- | examples/animation.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/examples/animation.scm b/examples/animation.scm index bf43be9..92da549 100644 --- a/examples/animation.scm +++ b/examples/animation.scm @@ -22,16 +22,14 @@ sprite out of it." (tileset-ref tiles 26)))) (make-animation frames 6 #t))) -(define (demo-sprite) +(define-stage-variable sprite (make-sprite (demo-animation) #:position (vector2 320 240))) (define demo-scene (make-scene - #:init (lambda () - (stage-define sprite (demo-sprite))) #:draw (lambda () - (draw-sprite (stage-ref sprite))))) + (draw-sprite (sprite))))) (define animation-demo (make-game |