Implement low res shadows

src/Dodge/Render/PerspectiveMatrix.hs

@@ -1,21 +1,20 @@
 module Dodge.Render.PerspectiveMatrix
     where
-import Dodge.Data
-
 import Geometry
 
 import Linear.Matrix
 import Linear.V4
 import Graphics.Rendering.OpenGL (GLfloat)
 
-perspectiveMatrix :: World -> [GLfloat]
-perspectiveMatrix w =
-    let rot     = _cameraRot w
-        zoom    = _cameraZoom w
-        (tranx,trany)   = _cameraCenter w
-        (winx,winy)     = (_windowX w,_windowY w)
-        (viewFromx,viewFromy)   = _cameraViewFrom w
-        scalMat = Linear.Matrix.transpose $ V4 
+perspectiveMatrix 
+    :: Float        -- ^ Rotation
+    -> Float        -- ^ Zoom
+    -> Point2       -- ^ Translation
+    -> Point2       -- ^ Window size
+    -> Point2       -- ^ View froms
+    -> [GLfloat]
+perspectiveMatrix rot zoom (tranx,trany) (winx,winy) (viewFromx,viewFromy) =
+    let scalMat = Linear.Matrix.transpose $ V4 
             (V4 (2*zoom/winx) 0             0   (0::GLfloat))
             (V4 0             (2*zoom/winy) 0   0)
             (V4 0             0             0.5 0) --scaled to make walls shorter