fix bug in not properly updating squares vector

2025-07-06 15:52:10 +01:00
parent 270481a0ba
commit bba293d406
4 changed files with 30 additions and 9 deletions
--- a/fcore/normal-mode.sml
+++ b/fcore/normal-mode.sml
@@ -150,7 +150,7 @@ struct
      val ypos = Vector.sub (yClickPoints, vIdx)

      val model = AppWith.addSquare
-        (model, realToInt xpos, realToInt ypos, hIdx, vIdx)
+        (model, hIdx, vIdx, hIdx, vIdx)
      val squares = #squares model

      val dotVec = getDotVecFromIndices (model, hIdx, vIdx)