summaryrefslogtreecommitdiff
path: root/2d/transform.scm
diff options
context:
space:
mode:
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."