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

add [r, g, b] field to triangle, so we can draw coloured objects (next: add ability to change current colour)

Browse Source
This commit is contained in:
Humza Shahid
2024-12-29 20:18:29 +00:00
parent cd1cef793e
commit 43eb5f4448
10 changed files with 197 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
imperative-shell/draw-thread.sml
View File

@@ -70,7 +70,7 @@ struct
val _ =
AppDraw.uploadTrianglesVector
(triangleDrawObject, triangleVec)
val triangleDrawLength = Vector.length triangleVec div 2
val triangleDrawLength = Vector.length triangleVec div 5
(* dots are reset by setting dotDrawLength to 0 *)
in
run
@@ -91,7 +91,7 @@ struct
val _ =
AppDraw.uploadTrianglesVector
(triangleDrawObject, triangleVec)
val triangleDrawLength = Vector.length triangleVec div 2
val triangleDrawLength = Vector.length triangleVec div 5
val _ = AppDraw.uploadDotVector (dotDrawObject, dotsVec)
val dotDrawLength = Vector.length dotsVec div 5
@@ -130,7 +130,7 @@ struct
let
val _ =
AppDraw.uploadTrianglesVector (triangleDrawObject, triangles)
val triangleDrawLength = Vector.length triangles div 2
val triangleDrawLength = Vector.length triangles div 5
val _ = AppDraw.uploadGraphLines (graphDrawObject, graphLines)
val drawGraphLength = Vector.length graphLines div 2