Reorganise rendering in Dodge

2021-04-01 11:28:53 +02:00
parent e62ff391a5
commit 1e9a07d1c8
13 changed files with 217 additions and 113 deletions
@@ -11,7 +11,7 @@ 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) --scale to make walls shorter
+            (V4 0             0             0.5 0) --scaled to make walls shorter
            (V4 0             0             0   1)
        rotMat = Linear.Matrix.transpose $
            V4 (V4 (cos rot) (sin (-rot)) 0 0)