Simplify shader records

2025-11-13 14:57:46 +00:00
parent 56aa8c6697
commit 0ea7af4bdd
4 changed files with 19 additions and 52 deletions
@@ -182,12 +182,12 @@ renderShadows shadrendertype nWalls nSils nCaps positiontexture normaltexture li
            GeoObjShads -> do
                --draw silhouette shadows
                glEnable GL_DEPTH_CLAMP
-                glUseProgram (_shaderUINT llinesShad)
+                glUseProgram llinesShad
                glDrawArrays GL_TRIANGLES 0 ((fromIntegral nSils * 6) `div` 4)
                --draw caps on the near plane as required
                glEnable GL_CULL_FACE
                glCullFace GL_BACK
-                glUseProgram (_shaderUINT lcapShad)
+                glUseProgram lcapShad
 --                glUniform3f 0 x y z
 --                glUniform4f 1 r g b rad
 --                glFrontFace(GL_CW)