From 1cf92f71205a58b1c695410eae061055e128fe1e Mon Sep 17 00:00:00 2001
From: Marc Sunet <jeannekamikaze@gmail.com>
Date: Wed, 29 Aug 2012 20:12:21 +0200
Subject: Fixed mat3 constructor

---
 Spear/Math/Matrix3.hs | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/Spear/Math/Matrix3.hs b/Spear/Math/Matrix3.hs
index e24a3e5..06c06a2 100644
--- a/Spear/Math/Matrix3.hs
+++ b/Spear/Math/Matrix3.hs
@@ -131,17 +131,11 @@ forward  (Matrix3 _   a10 _   _   a11 _   _ _ _) = vec2 a10 a11
 position (Matrix3 _   _   a20 _   _   a21 _ _ _) = vec2 a20 a21  
 
 
--- | Build a 'Matrix3' from the specified values.
-mat3 :: Float -> Float -> Float ->
-        Float -> Float -> Float ->
-        Float -> Float -> Float -> Matrix3
-mat3 m00 m01 m02 m10 m11 m12 m20 m21 m22 = Matrix3
-    m00 m10 m20
-    m01 m11 m21
-    m02 m12 m22
+-- | Build a matrix from the specified values.
+mat3 = Matrix3
 
 
--- | Build a 'Matrix3' from three vectors in 3D.
+-- | Build a matrix from three vectors in 3D.
 mat3fromVec :: Vector3 -> Vector3 -> Vector3 -> Matrix3
 mat3fromVec v0 v1 v2 = Matrix3
     (V3.x v0) (V3.x v1) (V3.x v2)
@@ -158,7 +152,7 @@ transform :: Vector2 -- ^ Right vector
 transform r f p = mat3
     (V2.x r) (V2.x f) (V2.x p)
     (V2.y r) (V2.y f) (V2.y p)
-    0     0     1
+    0        0        1
 
 
 -- | Return the identity matrix.
-- 
cgit v1.2.3