From 5841889f53465b4096830f3778b209063e1fe8bc Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Tue, 27 Aug 2013 18:22:06 -0400
Subject: Replace old vector module with new vector2 module.

---
 examples/tilemap.scm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'examples/tilemap.scm')

diff --git a/examples/tilemap.scm b/examples/tilemap.scm
index 3d15049..b64c04e 100644
--- a/examples/tilemap.scm
+++ b/examples/tilemap.scm
@@ -6,7 +6,7 @@
              (2d texture)
              (2d tileset)
              (2d sprite)
-             (2d vector)
+             (2d vector2)
              (2d window))
 
 (define window-width 800)
@@ -55,7 +55,6 @@
 
 (define tile-width 32)
 (define tile-height 32)
-(define map #f)
 
 (define (random-map width height tileset)
   (let ((tiles (make-array 0 height width))
@@ -68,9 +67,9 @@
   (define (build-sprite x y)
     (let ((region (tileset-ref tileset (array-ref tiles y x))))
       (make-sprite region
-                   #:position (vector (* x tile-width)
-                                      (* y tile-height))
-                   #:anchor #(0 0))))
+                   #:position (vector2 (* x tile-width)
+                                       (* y tile-height))
+                   #:anchor null-vector2)))
 
   (let ((sprites (list-ec (: y height)
                           (list-ec (: x width)
-- 
cgit v1.2.3