From fb24cffc30952d1613f718ed00b113c1ff5c74c2 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 20 Jun 2014 08:06:45 -0400 Subject: Delete transform-position procedure. * 2d/transform (transform-position): Delete it. --- 2d/transform.scm | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to '2d/transform.scm') 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." -- cgit v1.2.3