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/tilemap.scm | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) (limited to 'examples/tilemap.scm') diff --git a/examples/tilemap.scm b/examples/tilemap.scm index a60ee18..141184e 100644 --- a/examples/tilemap.scm +++ b/examples/tilemap.scm @@ -2,9 +2,11 @@ (srfi srfi-9) (srfi srfi-42) (2d game) + (2d game-loop) + (2d scene) + (2d sprite) (2d texture) (2d tileset) - (2d sprite) (2d vector2)) ;;; @@ -81,13 +83,15 @@ tileset map-tiles)))) -(define-scene demo - #:title "Demo" - #:draw (lambda (map) (draw-map-layer map)) - #:state (build-map)) +(define tilemap-scene + (make-scene + "Tilemap" + #:init build-map + #:draw draw-map-layer)) -(define-game tilemap - #:title "Tilemap" - #:first-scene demo) +(define tilemap + (make-game + #:title "Tilemap" + #:first-scene tilemap-scene)) (run-game tilemap) -- cgit v1.2.3