From 80731c6fb16136aca817b388636636635106c928 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 4 Sep 2013 23:00:01 -0400 Subject: Update the rest of the examples to use the new declarative game stuff. --- examples/tilemap.scm | 30 ++++++++++-------------------- 1 file changed, 10 insertions(+), 20 deletions(-) (limited to 'examples/tilemap.scm') diff --git a/examples/tilemap.scm b/examples/tilemap.scm index b64c04e..a60ee18 100644 --- a/examples/tilemap.scm +++ b/examples/tilemap.scm @@ -1,17 +1,11 @@ (use-modules (srfi srfi-1) (srfi srfi-9) (srfi srfi-42) - (2d game-loop) - (2d helpers) + (2d game) (2d texture) (2d tileset) (2d sprite) - (2d vector2) - (2d window)) - -(define window-width 800) -(define window-height 600) -(open-window window-width window-height) + (2d vector2)) ;;; ;;; Orthogonal tile map example @@ -87,17 +81,13 @@ tileset map-tiles)))) -(define map (build-map)) - -(define (key-down key mod unicode) - (cond ((any-equal? key 'escape 'q) - (close-window) - (quit)))) - -(define (render) - (draw-map-layer map)) +(define-scene demo + #:title "Demo" + #:draw (lambda (map) (draw-map-layer map)) + #:state (build-map)) -(add-hook! on-key-down-hook (lambda (key mod unicode) (key-down key mod unicode))) -(add-hook! on-render-hook (lambda () (render))) +(define-game tilemap + #:title "Tilemap" + #:first-scene demo) -(run-game-loop) +(run-game tilemap) -- cgit v1.2.3