summaryrefslogtreecommitdiff
path: root/2d
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-05-25 12:20:13 -0400
committerDavid Thompson <dthompson2@worcester.edu>2014-05-25 12:20:13 -0400
commit31b116d92c0f78ad40e844aa2827010afc5a4767 (patch)
tree8287f05e1229bb3e35bc9152ffe882720079d115 /2d
parent2b656ad8fcafc1ebaaa7fe154f015e85b9dbd941 (diff)
Fix embarrassing issue with transform-translate.
* 2d/transform.scm (transform-translate): Correct matrix.
Diffstat (limited to '2d')
-rw-r--r--2d/transform.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/2d/transform.scm b/2d/transform.scm
index ea3061d..e1dba7b 100644
--- a/2d/transform.scm
+++ b/2d/transform.scm
@@ -151,10 +151,10 @@ identity-transform if called without any arguments."
(define (transform-translate v)
"Return a new transform that translates the x and y axes by the
vector2 V."
- (make-transform 1 0 0 (vx v)
- 0 1 0 (vy v)
- 0 0 1 0
- 0 0 0 1))
+ (make-transform 1 0 0 0
+ 0 1 0 0
+ 0 0 1 0
+ (vx v) (vy v) 0 1))
(define (transform-scale v)
"Return a new transform that scales the X and Y axes by the vector2