Partial fix to near plane clipping shadows

2021-08-28 21:25:59 +01:00
parent 55f1d89a5e
commit d23f36ea95
5 changed files with 10 additions and 4 deletions
@@ -72,14 +72,18 @@ createLightMap pdata lightPoints nWalls nSils nsurfVs = do
        currentProgram $= Just (_shaderProgram $ _lightingLineShadowShader pdata)
        uniform (head $  _shaderCustomUnis $ _lightingLineShadowShader pdata)
            $= Vector3 x y z
+        depthClamp $= Enabled
        drawShader (_lightingLineShadowShader pdata) nSils
+        depthClamp $= Disabled

        cullFace $= Just Front
        stencilOp $= (OpKeep,OpKeep,OpDecr)
        currentProgram $= Just (_shaderProgram $ _lightingOccludeShader pdata)
        drawShader (_lightingOccludeShader pdata) nWalls
        currentProgram $= Just (_shaderProgram $ _lightingLineShadowShader pdata)
+        depthClamp $= Enabled
        drawShader (_lightingLineShadowShader pdata) nSils
+        depthClamp $= Disabled

        -- draw geometry surfaces
        cullFace $= Just Back