summaryrefslogtreecommitdiff
path: root/2d
diff options
context:
space:
mode:
Diffstat (limited to '2d')
-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))