Refactor EBO to use DSA

2023-03-09 12:49:34 +00:00
parent 2fc08a4d96
commit 01268e4c8a
4 changed files with 55 additions and 30 deletions
@@ -33,7 +33,7 @@ drawCPUShadows pdata s pos rad = do
    --currentProgram $= theshad ^? shadProg
    glUseProgram (theshad ^. shadProg')
    --bindVertexArrayObject $= Just (_vaoName $ _shadVAO' theshad)
-    glBindVertexArray $ (_vaoName $ _shadVAO' theshad)
+    glBindVertexArray . _vaoName $ _shadVAO' theshad
    glDrawArrays
        (marshalEPrimitiveMode $ _shadPrim' theshad) 
        0