Refactor text rendering

2021-06-23 01:35:38 +02:00
parent 39218ed3b5
commit 899c1c5f6e
13 changed files with 48 additions and 56 deletions
@@ -56,7 +56,8 @@ doDrawing pdata w = do
        pic = worldPictures w
        wallPoints = map fst wallPointsCol
    -- set the coordinate uniforms ready for drawing elements using world coordinates
-    setIsoMatrixUniforms pdata rot camzoom trans wins
+    --setIsoMatrixUniforms pdata rot camzoom trans wins
+    setPerpMatrixUniforms pdata rot camzoom trans wins viewFroms
    depthFunc $= Just Less
    pmat <- (newMatrix RowMajor $ perspectiveMatrix rot camzoom trans wins viewFroms) 
        :: IO (GLmatrix GLfloat)