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/action.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'examples/action.scm')

diff --git a/examples/action.scm b/examples/action.scm
index e5dce93..dab15c1 100644
--- a/examples/action.scm
+++ b/examples/action.scm
@@ -5,7 +5,7 @@
              (2d agenda)
              (2d coroutine)
              (2d actions)
-             (2d vector))
+             (2d vector2))
 
 (define window-width 800)
 (define window-height 600)
@@ -16,8 +16,8 @@
 ;; Load a sprite and center it on the screen.
 (define sprite
   (load-sprite "images/sprite.png"
-               #:position (vector (/ window-width 2)
-                                  (/ window-height 2))))
+               #:position (vector2 (/ window-width 2)
+                                   (/ window-height 2))))
 
 (define (key-down key mod unicode)
   (cond ((any-equal? key 'escape 'q)
@@ -36,7 +36,7 @@
  (action-parallel
   ;; Move horizontally across the screen in 60 frames.
   (lerp (lambda (x)
-          (set-sprite-position! sprite (vector x (/ window-height 2))))
+          (set-sprite-position! sprite (vector2 x (/ window-height 2))))
         0 800 60)
   ;; Rotate 1080 degrees in 120 frames.
   (lerp (lambda (angle)
-- 
cgit v1.2.3