aboutsummaryrefslogtreecommitdiff
path: root/Spear/Math/MatrixUtils.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Spear/Math/MatrixUtils.hs')
-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 52d4014..68ad6cd 100644
--- a/Spear/Math/MatrixUtils.hs
+++ b/Spear/Math/MatrixUtils.hs
@@ -32,7 +32,7 @@ rpgTransform 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)
38 (V3.y r) (V3.y u) (V3.y f) (V3.y t) 38 (V3.y r) (V3.y u) (V3.y f) (V3.y t)