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

change graph lines to draw dots at clickable points rather than lines which are similar to graph paper

Browse Source
This commit is contained in:
Humza Shahid
2024-09-21 13:23:25 +01:00
parent 29755c2ddb
commit 967dd2433e
6 changed files with 54 additions and 192 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
functional-core/app/app-update.sml
View File

@@ -15,10 +15,12 @@ struct
fun getDotVecFromIndices (model, hIdx, vIdx) =
let
val {windowWidth, windowHeight, ...} = model
val xpos = Vector.sub (#xClickPoints model, hIdx)
val ypos = Vector.sub (#yClickPoints model, vIdx)
in
ClickPoints.getDrawDot (xpos, ypos, 1.0, 0.0, 0.0, model)
ClickPoints.getDrawDotRgb
(xpos, ypos, 1.0, 0.0, 0.0, windowWidth, windowHeight)
end
fun mouseMoveOrRelease (model: app_type) =
@@ -133,7 +135,8 @@ struct
val xpos = Vector.sub (xClickPoints, hIdx)
val ypos = Vector.sub (yClickPoints, vIdx)
val dotVec = ClickPoints.getDrawDot (xpos, ypos, 0.0, 0.0, 1.0, model)
val dotVec = ClickPoints.getDrawDotRgb
(xpos, ypos, 0.0, 0.0, 1.0, windowWidth, windowHeight)
val halfWidth = Real32.fromInt (windowWidth div 2)
val halfHeight = Real32.fromInt (windowHeight div 2)