diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-06-20 08:06:45 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-06-20 08:06:45 -0400 |
| commit | fb24cffc30952d1613f718ed00b113c1ff5c74c2 (patch) | |
| tree | 6744e7dfccc57bf77a1017220cd029ba18028df1 | |
| parent | 1050850d2498bb2e88f097702fe202c2260c21d2 (diff) | |
Delete transform-position procedure.
* 2d/transform (transform-position): Delete it.
| -rw-r--r-- | 2d/transform.scm | 7 |
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." |