Working element buffer object

2021-09-20 12:36:35 +01:00
parent c605ac74ff
commit 5cbcbec101
22 changed files with 242 additions and 212 deletions
@@ -148,7 +148,7 @@ setupVBO sizes = do
    bufferData ArrayBuffer $=
        (fromIntegral $ floatSize * numDrawableElements * strd
        , nullPtr
-        , DynamicDraw
+        , StreamDraw
        )
    return $ VBO
        { _vbo = vboName
@@ -171,7 +171,7 @@ setupVBOSized sizes ndraw = do
    bufferData ArrayBuffer $=
        (fromIntegral $ floatSize * ndraw * strd
        , nullPtr
-        , DynamicDraw
+        , StreamDraw
        )
    return $ VBO
        { _vbo = vboName