Implement (not fully working) alternate shadow volumes

2023-02-24 19:51:41 +00:00
parent ed9a46a18d
commit bf1bd5bb0b
9 changed files with 136 additions and 116 deletions
@@ -121,10 +121,9 @@ preloadRender = do
                >>= addUniforms ["lightPos"]
    lightingLineShadowShad
        <- makeShaderUsingVAO "lighting/lineShadow" [vert,geom,frag] ELinesAdjacency shEdgeVAO
-                >>= addUniforms ["lightPos","lumRad"]
+                >>= addUniforms ["lightPos","radiusUniform"]
 -- positional shader
-    positionalBlankShad <- makeShader "positional/blank" [vert,frag] [3] ETriangles 
-    
+    positionalBlankShad <- makeShader "positional/blank" [vert,frag] [3] ETriangles
 -- 2D draw shaders
    bslist <- makeShader "dualTwoD/basic"   [vert,frag] [3,4]   ETriangles 
    bslista <- makeShader "dualTwoD/basic"   [vert,frag] [3,4]   ETriangles