Get shape shader working using vertex pulling

Seems slow, will try to improve
2025-11-11 18:54:48 +00:00
parent f136d0cd19
commit 7f6e7d2741
4 changed files with 32 additions and 24 deletions
@@ -176,12 +176,13 @@ doDrawing' win pdata u = do
    --draw object shapes onto base buffer
    let fs = _shapeShader pdata
    glUseProgram (_shaderUINT fs)
-    glBindVertexArray $ fs ^. shaderVAO . vaoName
-    glDrawElements
-        (_unPrimitiveMode $ _shaderPrimitive fs)
-        (fromIntegral nIndices)
-        GL_UNSIGNED_INT
-        nullPtr
+--    glBindVertexArray $ fs ^. shaderVAO . vaoName
+    glDrawArrays GL_TRIANGLES 0 (fromIntegral nIndices)
+--    glDrawElements
+--        (_unPrimitiveMode $ _shaderPrimitive fs)
+--        (fromIntegral nIndices)
+--        GL_UNSIGNED_INT
+--        nullPtr
    -- draw chasm shader blocking floor
    glUseProgram (pdata ^. chasmShader . shaderUINT)
    glBindVertexArray $ pdata ^. chasmShader . shaderVAO . vaoName