humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove hardcoded buttonVec, so later I can upload new vector data programmatically

Browse Source
This commit is contained in:
Humza Shahid
2024-07-31 08:44:14 +01:00
parent 5525725ef3
commit 6edb4f2556
2 changed files with 2 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
dot-to-dot
View File

Binary file not shown.

17
imperative-shell/app-draw.sml
View File

@@ -65,16 +65,6 @@ struct
() ()
end end
val buttonVec =
#[ 0.5, 0.5, 1.0, 0.0, 0.0
, 0.5, ~0.5, 1.0, 0.0, 0.0
, ~0.5, 0.5, 1.0, 0.0, 0.0
, 0.5, ~0.5, 0.0, 0.0, 1.0
, ~0.5, ~0.5, 0.0, 0.0, 1.0
, ~0.5, 0.5, 0.0, 0.0, 1.0
]
fun initButton () = fun initButton () =
let let
val buttonDrawObject = initDrawObject val buttonDrawObject = initDrawObject
@@ -84,9 +74,7 @@ struct
val {vertexBuffer, program, ...} = buttonDrawObject val {vertexBuffer, program, ...} = buttonDrawObject
val _ = Gles3.bindBuffer vertexBuffer val _ = Gles3.bindBuffer vertexBuffer
val _ = val _ = Gles3.bufferData (#[], 0, Gles3.STATIC_DRAW ())
Gles3.bufferData
(buttonVec, Vector.length buttonVec, Gles3.STATIC_DRAW ())
val _ = Gles3.vertexAttribPointer (0, 2, 5, 0) val _ = Gles3.vertexAttribPointer (0, 2, 5, 0)
val _ = Gles3.enableVertexAttribArray 0 val _ = Gles3.enableVertexAttribArray 0
@@ -114,8 +102,7 @@ struct
val _ = Gles3.vertexAttribPointer (1, 3, 5, 8) val _ = Gles3.vertexAttribPointer (1, 3, 5, 8)
val _ = Gles3.enableVertexAttribArray 1 val _ = Gles3.enableVertexAttribArray 1
val _ = Gles3.useProgram program val _ = Gles3.useProgram program
val _ = Gles3.drawArrays val _ = Gles3.drawArrays (Gles3.TRIANGLES (), 0, Vector.length vec div 5)
(Gles3.TRIANGLES (), 0, Vector.length buttonVec div 5)
in in
() ()
end end