From adebc9363aa3b57ed05400a0d1a01ead3ac98b4a Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 23 Oct 2013 23:06:03 -0400
Subject: Update actions example.

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

(limited to 'examples')

diff --git a/examples/action.scm b/examples/action.scm
index fa44c5e..2886c0a 100644
--- a/examples/action.scm
+++ b/examples/action.scm
@@ -2,15 +2,20 @@
              (2d agenda)
              (2d coroutine)
              (2d game)
+             (2d game-loop)
+             (2d scene)
              (2d sprite)
+             (2d stage)
              (2d vector2))
 
 (define (demo-sprite)
   (load-sprite "images/ghost.png"
                #:position (vector2 320 240)))
 
-(define (start sprite)
-  (let ((size (game-resolution actions)))
+(define (init)
+  (let ((size (game-resolution actions-demo))
+        (sprite (demo-sprite)))
+    (stage-define sprite sprite)
     (schedule-action
      (action-parallel
       ;; Move horizontally across the screen in 60 frames.
@@ -24,16 +29,14 @@
               (set-sprite-rotation! sprite angle))
             0 360 120)))))
 
-(define-scene demo
-  #:title  "Demo"
-  #:draw   (lambda (sprite) (draw-sprite sprite))
-  #:events (append
-            (default-scene-events)
-            `((start . ,(lambda (sprite) (start sprite)))))
-  #:state  (demo-sprite))
+(define demo-scene
+  (make-scene
+   #:init init
+   #:draw (lambda () (draw-sprite (stage-ref sprite)))))
 
-(define-game actions
-  #:title       "actions"
-  #:first-scene demo)
+(define actions-demo
+  (make-game
+   #:title       "Actions"
+   #:first-scene demo-scene))
 
-(run-game actions)
+(run-game actions-demo)
-- 
cgit v1.2.3