refactor to allow graph lines to be shown at start up

2024-08-03 06:05:26 +01:00
parent ee2274ffbc
commit 0d1ea9444b
6 changed files with 27 additions and 14 deletions
--- a/imperative-shell/app-draw.sml
+++ b/imperative-shell/app-draw.sml
@@ -41,11 +41,7 @@ struct

      val _ = Gles3.bindBuffer vertexBuffer
      val _ =
-        Gles3.bufferData
-          ( Constants.graphLines
-          , Vector.length Constants.graphLines
-          , Gles3.STATIC_DRAW ()
-          )
+        Gles3.bufferData (#[], 0, Gles3.STATIC_DRAW ())
      val _ = Gles3.vertexAttribPointer (0, 2, 2, 0)
      val _ = Gles3.enableVertexAttribArray 0
    in