Add "cap" shadow shader

2021-08-29 18:13:55 +01:00
parent d23f36ea95
commit eba8ff121c
12 changed files with 66 additions and 8 deletions
@@ -61,6 +61,9 @@ preloadRender = do
    lightingSurfaceShad
         <- makeShader "lighting/surface" [vert,frag] [3] ETriangles
                >>= addUniforms ["lightPos","lumRad"]
+    lightingCapShad
+         <- makeShaderUsingShaderVAO "lighting/cap" [vert,geom,frag] ETriangles lightingSurfaceShad
+                >>= addUniforms ["lightPos"]
    lightingLineShadowShad
        <- makeShader "lighting/lineShadow" [vert,geom,frag] [3] ELinesAdjacency
                >>= addUniforms ["lightPos"]
@@ -133,6 +136,7 @@ preloadRender = do
    return $ RenderData
        { _pictureShaders = shadV
        , _lightingSurfaceShader    = lightingSurfaceShad
+        , _lightingCapShader        = lightingCapShad
        , _lightingLineShadowShader = lightingLineShadowShad
        , _lightingOccludeShader    = wsShad        {_shaderVAO = wpVAO}
        , _lightingWallShader       = wlLightShad   {_shaderVAO = wpVAO}