From 777e31518c8ae52e9e15867fb60c958fa7a15610 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 3 Nov 2013 20:03:07 -0500
Subject: Update examples to use new scene/stage system.

---
 examples/action.scm | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'examples/action.scm')

diff --git a/examples/action.scm b/examples/action.scm
index 9f4dd65..fa68dc0 100644
--- a/examples/action.scm
+++ b/examples/action.scm
@@ -8,33 +8,33 @@
              (2d stage)
              (2d vector2))
 
-(define-stage-variable sprite
-  (load-sprite "images/ghost.png"
-               #:position (vector2 320 240)))
-
-(define (init)
+(define (enter 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)
+            0 (vx size) 60)
       ;; 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
+(define actions-scene
   (make-scene
-   #:init init
-   #:draw (lambda () (draw-sprite (sprite)))))
+   "Actions"
+   #:init (lambda ()
+            (load-sprite "images/ghost.png"
+                         #:position (vector2 320 240)))
+   #:enter enter
+   #:draw draw-sprite))
 
 (define actions-demo
   (make-game
-   #:title       "Actions"
-   #:first-scene demo-scene))
+   #:title "Actions"
+   #:first-scene actions-scene))
 
 (run-game actions-demo)
-- 
cgit v1.2.3