From 777e31518c8ae52e9e15867fb60c958fa7a15610 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 3 Nov 2013 20:03:07 -0500 Subject: Update examples to use new scene/stage system. --- examples/simple.scm | 26 +++++++++++++++----------- 1 file changed, 15 insertions(+), 11 deletions(-) (limited to 'examples/simple.scm') diff --git a/examples/simple.scm b/examples/simple.scm index 8a1fd8f..09a403f 100644 --- a/examples/simple.scm +++ b/examples/simple.scm @@ -1,18 +1,22 @@ -(use-modules (2d sprite) - (2d game) +(use-modules (2d game) + (2d game-loop) + (2d scene) + (2d sprite) (2d vector2)) -(define (demo-sprite) +(define (make-demo-sprite) (load-sprite "images/ghost.png" #:position (vector2 320 240))) -(define-scene demo - #:title "Demo" - #:draw (lambda (sprite) (draw-sprite sprite)) - #:state (demo-sprite)) +(define simple-scene + (make-scene + "Simple" + #:init make-demo-sprite + #:draw draw-sprite)) -(define-game simple - #:title "Simple Demo" - #:first-scene demo) +(define simple-demo + (make-game + #:title "Simple Demo" + #:first-scene simple-scene)) -(run-game simple) +(run-game simple-demo) -- cgit v1.2.3