Start to move vbo objects to use DSA

2023-03-09 13:17:43 +00:00
parent 9f37ed9944
commit f14d9bef60
5 changed files with 24 additions and 21 deletions
@@ -23,7 +23,7 @@ drawCPUShadows pdata s pos rad = do
    let theshad = pdata ^. positionalBlankShader  
        theptr = _vboPtr $ _vaoVBO $ _shadVAO' theshad
    i <- VFSM.foldlM' (pokeShapeShad pos rad theptr) 0 $ VFSM.fromList s
-    bindBuffer ArrayBuffer $= (theshad ^? shadVAO' . vaoVBO . vbo)
+    glBindBuffer GL_ARRAY_BUFFER (theshad ^. shadVAO' . vaoVBO . vboName)
    bufferSubData
        ArrayBuffer
        WriteToBuffer