From a9455a86e4dd0bd42c58ad0a751fda226145a352 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Mon, 26 Aug 2013 22:31:49 -0400
Subject: Update tilemap example.

---
 examples/tilemap.scm | 35 +++++++++++++++++++----------------
 1 file changed, 19 insertions(+), 16 deletions(-)

(limited to 'examples/tilemap.scm')

diff --git a/examples/tilemap.scm b/examples/tilemap.scm
index 5655527..3d15049 100644
--- a/examples/tilemap.scm
+++ b/examples/tilemap.scm
@@ -4,10 +4,15 @@
              (2d game-loop)
              (2d helpers)
              (2d texture)
+             (2d tileset)
              (2d sprite)
              (2d vector)
              (2d window))
 
+(define window-width 800)
+(define window-height 600)
+(open-window window-width window-height)
+
 ;;;
 ;;; Orthogonal tile map example
 ;;;
@@ -61,7 +66,7 @@
 
 (define (tiles->sprites width height tile-width tile-height tileset tiles)
   (define (build-sprite x y)
-    (let ((region (vector-ref tileset (array-ref tiles y x))))
+    (let ((region (tileset-ref tileset (array-ref tiles y x))))
       (make-sprite region
                    #:position (vector (* x tile-width)
                                       (* y tile-height))
@@ -72,6 +77,19 @@
                                    (build-sprite x y)))))
     (list->array 2 sprites)))
 
+(define (build-map)
+  ;; Load tileset and build map layer
+  (let ((tileset (load-tileset "images/tiles.png" 32 32)))
+    (make-map-layer map-width map-height tile-width tile-height
+                    (tiles->sprites map-width
+                                    map-height
+                                    tile-width
+                                    tile-height
+                                    tileset
+                                    map-tiles))))
+
+(define map (build-map))
+
 (define (key-down key mod unicode)
   (cond ((any-equal? key 'escape 'q)
          (close-window)
@@ -80,22 +98,7 @@
 (define (render)
   (draw-map-layer map))
 
-(define window-width 800)
-(define window-height 600)
-
 (add-hook! on-key-down-hook (lambda (key mod unicode) (key-down key mod unicode)))
 (add-hook! on-render-hook (lambda () (render)))
-(open-window window-width window-height)
-
-;; Load tileset and build map layer
-(let* ((texture (load-texture "images/tiles.png"))
-       (tileset (split-texture texture 32 32)))
-  (set! map (make-map-layer map-width map-height tile-width tile-height
-                            (tiles->sprites map-width
-                                            map-height
-                                            tile-width
-                                            tile-height
-                                            tileset
-                                            map-tiles))))
 
 (run-game-loop)
-- 
cgit v1.2.3