justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Unify shadow stencil tests, inverts shadow when light source occluded

Browse Source
This commit is contained in:
justin
2021-08-30 11:13:23 +01:00
parent eba8ff121c
commit f87b53bbf9
1 changed files with 4 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Render.hs
+4 -13
View File
@@ -62,8 +62,9 @@ createLightMap pdata lightPoints nWalls nSils nsurfVs = do
-- stencil out shadows -- stencil out shadows
colorMask $= Color4 Disabled Disabled Disabled Disabled colorMask $= Color4 Disabled Disabled Disabled Disabled
clear [StencilBuffer] clear [StencilBuffer]
cullFace $= Just Back cullFace $= Nothing
stencilOp $= (OpKeep,OpKeep,OpIncr) stencilOpSeparate Front $= (OpKeep,OpKeep,OpIncrWrap)
stencilOpSeparate Back $= (OpKeep,OpKeep,OpDecrWrap)
stencilFunc $= (Always, 0, 255) stencilFunc $= (Always, 0, 255)
currentProgram $= Just (_shaderProgram $ _lightingOccludeShader pdata) currentProgram $= Just (_shaderProgram $ _lightingOccludeShader pdata)
uniform (head $ _shaderCustomUnis $ _lightingOccludeShader pdata) uniform (head $ _shaderCustomUnis $ _lightingOccludeShader pdata)
@@ -78,21 +79,11 @@ createLightMap pdata lightPoints nWalls nSils nsurfVs = do
drawShader (_lightingLineShadowShader pdata) nSils drawShader (_lightingLineShadowShader pdata) nSils
depthClamp $= Disabled depthClamp $= Disabled
cullFace $= Just Front
stencilOp $= (OpKeep,OpKeep,OpDecr)
currentProgram $= Just (_shaderProgram $ _lightingOccludeShader pdata)
drawShader (_lightingOccludeShader pdata) nWalls
--stencilOp $= (OpKeep,OpIncr,OpKeep)
currentProgram $= Just (_shaderProgram $ _lightingLineShadowShader pdata)
depthClamp $= Enabled
drawShader (_lightingLineShadowShader pdata) nSils
depthClamp $= Disabled
-- draw geometry surfaces -- draw geometry surfaces
cullFace $= Just Back cullFace $= Just Back
--colorMask $= Color4 Disabled Disabled Disabled Enabled --colorMask $= Color4 Disabled Disabled Disabled Enabled
colorMask $= Color4 Enabled Enabled Enabled Enabled colorMask $= Color4 Enabled Enabled Enabled Enabled
stencilOp $= (OpKeep,OpKeep,OpKeep)
stencilFunc $= (Equal, 0, 255) stencilFunc $= (Equal, 0, 255)
currentProgram $= Just (_shaderProgram $ _lightingSurfaceShader pdata) currentProgram $= Just (_shaderProgram $ _lightingSurfaceShader pdata)
uniform (head $ _shaderCustomUnis $ _lightingSurfaceShader pdata) uniform (head $ _shaderCustomUnis $ _lightingSurfaceShader pdata)