summaryrefslogtreecommitdiff
path: root/2d/transform.scm
diff options
context:
space:
mode:
Diffstat (limited to '2d/transform.scm')
-rw-r--r--2d/transform.scm32
1 files changed, 7 insertions, 25 deletions
diff --git a/2d/transform.scm b/2d/transform.scm
index 09e4398..9b7e05d 100644
--- a/2d/transform.scm
+++ b/2d/transform.scm
@@ -27,20 +27,11 @@
#:use-module (srfi srfi-42)
#:use-module (2d math)
#:use-module (2d vector)
- #:export (make-transform
- make-transform*
- null-transform
- identity-transform
- transform?
- transform-matrix
- transpose
- transform-vector2
- transform-position
- transform+
- transform*
- transform-translate
- transform-scale
- rotate-x rotate-y rotate-z
+ #:export (make-transform null-transform identity-transform
+ transform? transform-matrix
+ transpose transform-vector2 transform-position
+ transform+ transform*
+ scale translate rotate-x rotate-y rotate-z
orthographic-projection perspective-projection))
(define-record-type <transform>
@@ -76,15 +67,6 @@ column-major format."
(array-set! matrix dd 3 3)
(%make-transform matrix)))
-(define* (make-transform* #:optional #:key (translate #(0 0))
- (scale #(1 1)) (rotate 0))
- "Return a new transform that is the result of the composition of the
-given TRANSLATE, SCALE, and ROTATE values. Both TRANSLATE and SCALE
-are vector2 values, while ROTATE is a number."
- (transform* (transform-scale scale)
- (rotate-z rotate)
- (transform-translate translate)))
-
(define null-transform
(%make-transform (make-4x4-matrix)))
@@ -149,7 +131,7 @@ identity-transform if called without any arguments."
(%make-transform m3)))
(reduce mul identity-transform transforms))
-(define (transform-translate v)
+(define (translate v)
"Return a new transform that translates the x and y axes by the
vector V."
(make-transform 1 0 0 0
@@ -157,7 +139,7 @@ vector V."
0 0 1 0
(vx v) (vy v) 0 1))
-(define (transform-scale v)
+(define (scale v)
"Return a new transform that scales the X and Y axes by the vector
V."
(make-transform (vx v) 0 0 0