1 files changed, 0 insertions, 9 deletions

diff --git a/Spear/Math/MatrixUtils.hs b/Spear/Math/MatrixUtils.hs
index 24d9778..567bee1 100644
--- a/Spear/Math/MatrixUtils.hs
+++ b/Spear/Math/MatrixUtils.hs
@@ -11,14 +11,12 @@ module Spear.Math.MatrixUtils
 )

 where

 

-

 import Spear.Math.Camera as Cam

 import Spear.Math.Matrix3 as M3

 import Spear.Math.Matrix4 as M4

 import Spear.Math.Spatial3 as S

 import Spear.Math.Vector as V

 

-

 -- | Compute the normal matrix of the given matrix.

 fastNormalMatrix :: Matrix4 -> Matrix3

 fastNormalMatrix m =

@@ -28,7 +26,6 @@ fastNormalMatrix m =
         (M4.m01 m') (M4.m11 m') (M4.m21 m')

         (M4.m02 m') (M4.m12 m') (M4.m22 m')

 

-

 -- | Transform the given point in window coordinates to object coordinates.

 unproject :: Matrix4 -- ^ Inverse projection matrix

           -> Matrix4 -- ^ Inverse modelview matrix.

@@ -48,7 +45,6 @@ unproject projI modelviewI vpx vpy w h x y z =
     in

         (modelviewI * projI) `M4.mulp` vec3 xmouse ymouse zmouse

 

-

 -- | Transform the given point in window coordinates to 2d coordinates.

 --

 -- The line defined by the given point in window space is intersected with

@@ -72,7 +68,6 @@ rpgUnproject projI viewI vpx vpy w h wx wy =
     in

         vec2 (x p') (-(z p'))

 

-

 -- | Map an object's transform in view space to world space.

 rpgTransform

     :: Float   -- ^ The height above the ground

@@ -97,7 +92,6 @@ rpgTransform h a axis pos viewI =
          (z r) (z u) (z f) (z t)

          0        0        0        1

 

-

 -- | Map an object's transform in view space to world space.

 pltTransform :: Matrix3 -> Matrix4

 pltTransform mat =

@@ -111,7 +105,6 @@ pltTransform mat =
         (z r) (z u) (z f) (z t)

         0        0        0        1

 

-

 -- | Map an object's transform in world space to view space.

 --

 -- The XY plane in 2D translates to the X(-Z) plane in 3D.

@@ -127,7 +120,6 @@ rpgInverse
 rpgInverse h a axis pos viewI =

     M4.inverseTransform $ rpgTransform h a axis pos viewI

 

-

 -- | Map an object's transform in world space to view space.

 --

 -- This function maps an object's transform in 2D to the object's inverse in 3D.

@@ -138,7 +130,6 @@ rpgInverse h a axis pos viewI =
 pltInverse :: Matrix3 -> Matrix4

 pltInverse = M4.inverseTransform . pltTransform

 

-

 -- | Transform an object from object to clip space coordinates.

 objToClip :: Camera -> Matrix4 -> Vector3 -> Vector2

 objToClip cam model p =