summaryrefslogtreecommitdiff
path: root/examples/tilemap.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-06-07 19:57:06 -0400
committerDavid Thompson <dthompson2@worcester.edu>2014-06-07 19:57:06 -0400
commitc2a4f0636569978a40cb5c98875d798624909eb2 (patch)
treeca0d993826c0adde719e3a88aec255626281340d /examples/tilemap.scm
parentdef69615603e49bb17b09c7352295578f9dd67af (diff)
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.
Diffstat (limited to 'examples/tilemap.scm')
-rw-r--r--examples/tilemap.scm8
1 files changed, 4 insertions, 4 deletions
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)