From d2d5a3441e19bfe516a81d04232b1477544ec071 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 29 Mar 2014 16:21:03 -0400
Subject: Remove vector2-translate and vector2-scale.

* 2d/vector2.scm (vector2-translate): Delete it.
  (vector2-scale): Delete it.
---
 2d/vector2.scm | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

(limited to '2d')

diff --git a/2d/vector2.scm b/2d/vector2.scm
index 3c76625..b85757a 100644
--- a/2d/vector2.scm
+++ b/2d/vector2.scm
@@ -38,9 +38,7 @@
             vmag
             vnorm
             vdot
-            vcross
-            vector2-translate
-            vector2-scale))
+            vcross))
 
 (define-record-type <vector2>
   (vector2 x y)
@@ -108,11 +106,3 @@ returns the Z coordinate of the cross product as if the vectors were
 in 3D space."
   (- (* (vx v1) (vy v2))
      (* (vy v1) (vx v2))))
-
-(define (vector2-translate v)
-  "Perform an OpenGL translate operation with the vector V."
-  (gl-translate (vx v) (vy v) 0))
-
-(define (vector2-scale v)
-  "Perform an OpenGL scale operation with the vector V."
-  (gl-scale (vx v) (vy v) 1))
-- 
cgit v1.2.3