Translate VAOs to DSA

2023-03-09 10:10:57 +00:00
parent 18fa216dff
commit 7b797dfdb4
9 changed files with 61 additions and 32 deletions
@@ -32,7 +32,8 @@ drawCPUShadows pdata s pos rad = do
        (theshad ^. shadVAO' . vaoVBO . vboPtr)
    --currentProgram $= theshad ^? shadProg
    glUseProgram (theshad ^. shadProg')
-    bindVertexArrayObject $= Just (_vaoName $ _shadVAO' theshad)
+    --bindVertexArrayObject $= Just (_vaoName $ _shadVAO' theshad)
+    glBindVertexArray $ (_vaoName $ _shadVAO' theshad)
    glDrawArrays
        (marshalEPrimitiveMode $ _shadPrim' theshad) 
        0