From 31b116d92c0f78ad40e844aa2827010afc5a4767 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 25 May 2014 12:20:13 -0400 Subject: Fix embarrassing issue with transform-translate. * 2d/transform.scm (transform-translate): Correct matrix. --- 2d/transform.scm | 8 ++++---- 1 file 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 -- cgit v1.2.3