Continue work on shadow rendering

2023-03-14 11:20:38 +00:00
parent 9947979b52
commit 6af041bb8c
20 changed files with 417 additions and 380 deletions
@@ -26,7 +26,7 @@ drawCPUShadows pdata s pos rad = do
        0
        (fromIntegral $ floatSize * i)
        (theshad ^. shadVAO' . vaoVBO . vboPtr)
-    glUseProgram (theshad ^. shadProg')
+    glUseProgram (theshad ^. shadName)
    glBindVertexArray . _vaoName $ _shadVAO' theshad
    glDrawArrays
        (marshalEPrimitiveMode $ _shadPrim' theshad)