Refactor text rendering

2021-06-23 01:35:38 +02:00
parent 39218ed3b5
commit 899c1c5f6e
13 changed files with 48 additions and 56 deletions
@@ -20,7 +20,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) --scaled to make walls shorter
+            (V4 0             0             1 0) 
            (V4 0             0             0   1)
        rotMat = Linear.Matrix.transpose $
            V4 (V4 (cos rot) (sin (-rot)) 0 0)