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

(limited to 'examples/particles.scm')

diff --git a/examples/particles.scm b/examples/particles.scm
index b60a537..8fa9cb6 100644
--- a/examples/particles.scm
+++ b/examples/particles.scm
@@ -21,7 +21,7 @@
              (2d game)
              (2d sprite)
              (2d texture)
-             (2d vector2)
+             (2d vector)
              (2d window))
 
 (load "common.scm")
@@ -51,14 +51,14 @@
   (let ((particle-image (load-texture "images/bullet.png")))
     (list-tabulate n (lambda (n)
                        (make-particle (make-sprite particle-image)
-                                      (vector2 (random window-width)
-                                               (random window-height))
-                                      (vector2 (* (random:normal) 1)
-                                               (* (random:normal) 1)))))))
+                                      (vector (random window-width)
+                                              (random window-height))
+                                      (vector (* (random:normal) 1)
+                                              (* (random:normal) 1)))))))
 
 (define particle-count 500)
 (define background (load-sprite "images/stars.png"
-                                #:anchor null-vector2))
+                                #:anchor #(0 0)))
 (define particles (generate-particles particle-count))
 
 (define (draw-particles particles)
@@ -79,6 +79,6 @@
 (add-hook! draw-hook draw)
 
 (with-window (make-window #:title "Particles"
-                          #:resolution (vector2 window-width
-                                                window-height))
+                          #:resolution (vector window-width
+                                               window-height))
   (start-game-loop))
-- 
cgit v1.2.3