Fix wall normals

2023-03-16 23:31:17 +00:00
parent 100fdc102d
commit 539cbe8b18
11 changed files with 32 additions and 46 deletions
@@ -127,8 +127,8 @@ doDrawing' win pdata u = do
    glDepthFunc GL_LESS
    -- draw wall occlusions from the camera's point of view
    glUseProgram (pdata ^. lightingWallShadShader . shadName)
-    glUniform3f (pdata ^?! lightingWallShadShader . shadUnis' . ix 0) vfx vfy 20
-    glUniform1f (pdata ^?! lightingWallShadShader . shadUnis' . ix 1) 100
+    glUniform3f (pdata ^?! lightingWallShadShader . shadUnis . ix 0) vfx vfy 20
+    glUniform1f (pdata ^?! lightingWallShadShader . shadUnis . ix 1) 1000
    glBindVertexArray $ pdata ^. lightingWallShadShader . shadVAO . vaoName
    unless (debugOn Remove_LOS cfig) $
        glDrawArrays