Tweak wall shadow geometry shader

This commit is contained in:
2021-08-19 14:57:23 +02:00
parent d7047c4b09
commit 743e190ddc
3 changed files with 3 additions and 4 deletions
+1 -1
View File
@@ -71,9 +71,9 @@ createLightMap pdata lightPoints nWalls nSils nsurfVs = do
stencilOp $= (OpKeep,OpKeep,OpDecr)
currentProgram $= Just (_shaderProgram $ _lightingOccludeShader pdata)
drawShader (_lightingOccludeShader pdata) nWalls
currentProgram $= Just (_shaderProgram $ _lightingLineShadowShader pdata)
drawShader (_lightingLineShadowShader pdata) nSils
-- draw geometry surfaces
cullFace $= Just Back
colorMask $= Color4 Disabled Disabled Disabled Enabled