From 5f5247748f700eefd1b2ce63165944d4e3904fa9 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 30 Oct 2013 21:16:49 -0400 Subject: Update action and animation example to use new stage variables. --- examples/action.scm | 12 +++++------- examples/animation.scm | 6 ++---- 2 files changed, 7 insertions(+), 11 deletions(-) (limited to 'examples') diff --git a/examples/action.scm b/examples/action.scm index 2886c0a..9f4dd65 100644 --- a/examples/action.scm +++ b/examples/action.scm @@ -8,31 +8,29 @@ (2d stage) (2d vector2)) -(define (demo-sprite) +(define-stage-variable sprite (load-sprite "images/ghost.png" #:position (vector2 320 240))) (define (init) - (let ((size (game-resolution actions-demo)) - (sprite (demo-sprite))) - (stage-define sprite sprite) + (let ((size (game-resolution actions-demo))) (schedule-action (action-parallel ;; Move horizontally across the screen in 60 frames. (lerp (lambda (x) (set-sprite-position! - sprite + (sprite) (vector2 x (/ (vy size) 2)))) 0 (vx size) 120) ;; Rotate 1080 degrees in 120 frames. (lerp (lambda (angle) - (set-sprite-rotation! sprite angle)) + (set-sprite-rotation! (sprite) angle)) 0 360 120))))) (define demo-scene (make-scene #:init init - #:draw (lambda () (draw-sprite (stage-ref sprite))))) + #:draw (lambda () (draw-sprite (sprite))))) (define actions-demo (make-game 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 -- cgit v1.2.3