diff options
Diffstat (limited to 'Spear/Math/MatrixUtils.hs')
-rw-r--r-- | Spear/Math/MatrixUtils.hs | 2 |
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) |