summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-03-29 16:21:03 -0400
committerDavid Thompson <dthompson2@worcester.edu>2014-03-29 16:21:03 -0400
commitd2d5a3441e19bfe516a81d04232b1477544ec071 (patch)
tree46f802f23b8be7c842e97aaab7283ec7c6bf3310
parentbd4e7ca64ed3d203ab7c938387d7ab32df8e5f23 (diff)
Remove vector2-translate and vector2-scale.
* 2d/vector2.scm (vector2-translate): Delete it. (vector2-scale): Delete it.
-rw-r--r--2d/vector2.scm12
1 files changed, 1 insertions, 11 deletions
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))