summaryrefslogtreecommitdiff
path: root/2d/transform.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-06-20 08:06:45 -0400
committerDavid Thompson <dthompson2@worcester.edu>2014-06-20 08:06:45 -0400
commitfb24cffc30952d1613f718ed00b113c1ff5c74c2 (patch)
tree6744e7dfccc57bf77a1017220cd029ba18028df1 /2d/transform.scm
parent1050850d2498bb2e88f097702fe202c2260c21d2 (diff)
Delete transform-position procedure.
* 2d/transform (transform-position): Delete it.
Diffstat (limited to '2d/transform.scm')
-rw-r--r--2d/transform.scm7
1 files changed, 1 insertions, 6 deletions
diff --git a/2d/transform.scm b/2d/transform.scm
index ebb30e2..21be955 100644
--- a/2d/transform.scm
+++ b/2d/transform.scm
@@ -29,7 +29,7 @@
#:use-module (2d vector)
#:export (make-transform null-transform identity-transform
transform? transform-matrix
- transpose transform-vector2 transform-position
+ transpose transform-vector2
transform+ transform*
scale translate rotate-x rotate-y rotate-z
orthographic-projection perspective-projection))
@@ -97,11 +97,6 @@ column-major format."
(* y (array-ref m 1 1))
(array-ref m 1 3)))))
-(define (transform-position transform)
- "Extract 2D vector from TRANSFORM."
- (let ((m (transform-matrix transform)))
- (vector (array-ref m 0 3) (array-ref m 1 3))))
-
(define (transform+ . transforms)
"Return the sum of all given transformation matrices. Return
null-transform if called without any arguments."