Provisional working coloured lights

2021-08-21 12:34:49 +02:00
parent e35b95bf36
commit b396d6c857
9 changed files with 30 additions and 26 deletions
@@ -57,10 +57,10 @@ preloadRender = do
                >>= addUniforms ["lightPos"]
    wlLightShad 
         <- makeShaderUsingShaderVAO "lighting/wall" [vert,geom,frag] EPoints wsShad
-                >>= addUniforms ["lightPos","radLum"]
+                >>= addUniforms ["lightPos","lumRad"]
    lightingSurfaceShad
         <- makeShader "lighting/surface" [vert,frag] [3] ETriangles
-                >>= addUniforms ["lightPos","radLum"]
+                >>= addUniforms ["lightPos","lumRad"]
    lightingLineShadowShad
        <- makeShader "lighting/lineShadow" [vert,geom,frag] [3] ELinesAdjacency
                >>= addUniforms ["lightPos"]