Cleanup

2023-03-08 18:31:32 +00:00
parent 2279af5510
commit 48966dde1a
9 changed files with 283 additions and 407 deletions
@@ -32,7 +32,7 @@ drawCPUShadows pdata s pos rad = do
        (theshad ^. shadVAO' . vaoVBO . vboPtr)
    --currentProgram $= theshad ^? shadProg
    glUseProgram (theshad ^. shadProg')
-    bindVertexArrayObject $= Just (_vao $ _shadVAO' theshad)
+    bindVertexArrayObject $= Just (_vaoName $ _shadVAO' theshad)
    glDrawArrays
        (marshalEPrimitiveMode $ _shadPrim' theshad) 
        0