summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--examples/animation.scm21
1 files changed, 7 insertions, 14 deletions
diff --git a/examples/animation.scm b/examples/animation.scm
index bee35c2..5464a7d 100644
--- a/examples/animation.scm
+++ b/examples/animation.scm
@@ -1,12 +1,12 @@
(use-modules (2d animation)
(2d game)
- (2d scene)
(2d sprite)
- (2d stage)
(2d tileset)
(2d vector2)
(2d window))
+(load "common.scm")
+
(define (make-demo-animation)
"Load a texture, split it into 64x64 tiles, and build an animated
sprite out of it."
@@ -21,17 +21,10 @@ sprite out of it."
(tileset-ref tiles 26))))
(make-animation frames 6 #t)))
-(define animation-scene
- (make-scene
- "Animation"
- #:init (lambda ()
- (make-sprite (make-demo-animation)
- #:position (vector2 320 240)))
- #:draw draw-sprite))
+(define sprite (make-sprite (make-demo-animation)
+ #:position (vector2 320 240)))
-(define animation-demo
- (make-game
- #:title "Animation"
- #:first-scene animation-scene))
+(add-hook! draw-hook (lambda (dt alpha) (draw-sprite sprite)))
-(run-game animation-demo)
+(with-window (make-window #:title "Animation")
+ (run-game-loop))