Black out high walls

2021-03-20 13:28:39 +01:00
parent a2183151be
commit 0b1f7f50c3
4 changed files with 9 additions and 5 deletions
@@ -74,7 +74,10 @@ renderPicture' pdata rot zoom (tranx,trany) (winx,winy) wallPoints lightPoints
            ) :: IO (GLmatrix GLfloat)
    uniform ( (fromJust $ _shaderCustomUnis $ _wallShadowShader pdata) !! 1)
            $= pmat
+    uniform ( (fromJust $ _shaderCustomUnis $ _wallShadowShader pdata) !! 2)
+            $= (0 :: Float)
    cullFace $= Just Back
+    cullFace $= Nothing
    drawShader (_wallShadowShader pdata) nWalls

    depthMask $= Disabled