allow width and height to have a different number of click points

2025-02-18 11:53:28 +00:00
parent 68cbf59f04
commit 78905b59f0
9 changed files with 129 additions and 75 deletions
--- a/imperative-shell/shell.sml
+++ b/imperative-shell/shell.sml
@@ -18,7 +18,8 @@ struct
      val initialModel = AppInit.fromWindowWidthAndHeight
        ( Constants.windowWidth
        , Constants.windowHeight
-        , Constants.initialNumClickPoints
+        , Constants.initialWidthClickPoints
+        , Constants.initialHeightClickPoints
        )

      val graphLines = GraphLines.generate initialModel
@@ -27,7 +28,7 @@ struct

      val dotDrawObject = AppDraw.initDot ()
      val triangleDrawObject = AppDraw.initTriangles ()
-      
+
      val modalTextDrawObject = AppDraw.initModalText ()

      val inputMailbox = Mailbox.mailbox ()