From c2a4f0636569978a40cb5c98875d798624909eb2 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 7 Jun 2014 19:57:06 -0400
Subject: Replace vector2 module with a more generic vector module.

* 2d/vector2.scm: Delete it.

* 2d/vector.scm: New file.

* Makefile.am (SOURCES): s/vector2/vector.

* 2d/font.scm:
* 2d/keyboard.scm:
* 2d/mouse.scm:
* 2d/rect.scm:
* 2d/shader.scm:
* 2d/sprite.scm:
* 2d/texture.scm:
* 2d/transform.scm:
* 2d/window.scm:
* examples/2048/2048:
* examples/animation.scm:
* examples/coroutine.scm:
* examples/font.scm:
* examples/particles.scm:
* examples/simple.scm:
* examples/tilemap.scm: Use vectors instead of defunct vector2.
---
 examples/tilemap.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'examples/tilemap.scm')

diff --git a/examples/tilemap.scm b/examples/tilemap.scm
index 284c760..5c5abdf 100644
--- a/examples/tilemap.scm
+++ b/examples/tilemap.scm
@@ -22,7 +22,7 @@
              (2d sprite)
              (2d texture)
              (2d tileset)
-             (2d vector2)
+             (2d vector)
              (2d window))
 
 (load "common.scm")
@@ -79,9 +79,9 @@
   (define (build-sprite x y)
     (let ((region (tileset-ref tileset (array-ref tiles y x))))
       (make-sprite region
-                   #:position (vector2 (* x tile-width)
-                                       (* y tile-height))
-                   #:anchor null-vector2)))
+                   #:position (vector (* x tile-width)
+                                      (* y tile-height))
+                   #:anchor #(0 0))))
 
   (let ((sprites (list-ec (: y height)
                           (list-ec (: x width)
-- 
cgit v1.2.3