aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Spear/Math/MatrixUtils.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Spear/Math/MatrixUtils.hs b/Spear/Math/MatrixUtils.hs
index 434e36a..52d4014 100644
--- a/Spear/Math/MatrixUtils.hs
+++ b/Spear/Math/MatrixUtils.hs
@@ -31,7 +31,7 @@ rpgTransform :: Float -- ^ The height above the ground.
31rpgTransform h mat = 31rpgTransform h mat =
32 let r = let r' = M3.right mat in vec3 (V2.x r') (V2.y r') 0 32 let r = let r' = M3.right mat in vec3 (V2.x r') (V2.y r') 0
33 u = V3.unity 33 u = V3.unity
34 f = let f' = M3.forward mat in vec3 (V2.x f') 0 (-V2.y f') 34 f = let f' = M3.forward mat in vec3 (V2.x f') 0 (V2.y f')
35 t = (vec3 0 h 0) + let t' = M3.position mat in -(vec3 (V2.x t') 0 (-V2.y t')) 35 t = (vec3 0 h 0) + let t' = M3.position mat in -(vec3 (V2.x t') 0 (-V2.y t'))
36 in mat4 36 in mat4
37 (V3.x r) (V3.x u) (V3.x f) (V3.x t) 37 (V3.x r) (V3.x u) (V3.x f) (V3.x t)