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"]