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
@@ -46,7 +46,7 @@ preloadRender = do
                                "data/texture/smudgedDirt.png"

    wsShad <- makeShaderCustomUnis "wallShadow" [vert,geom,frag] [(0,4)] Points pokeWPStrat
-                ["lightPos","perpMat"]
+                ["lightPos","perpMat","facesToDraw"]

    wlLightShad <- makeShaderCustomUnis "wallLight" [vert,frag] [(0,3)] TriangleStrip pokeLightWallStrat
                    ["lightPosRadLum"]
@@ -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