From fb24cffc30952d1613f718ed00b113c1ff5c74c2 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
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')

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