add 'numClickPoints' field to app type, and add parameter with same name to

ClickPoints.generate function
2024-09-20 21:33:35 +01:00
parent 2816ff0875
commit 2098a4eda7
7 changed files with 72 additions and 18 deletions
--- a/imperative-shell/constants.sml
+++ b/imperative-shell/constants.sml
@@ -2,6 +2,7 @@ structure Constants =
 struct
  val windowWidth = 1000
  val windowHeight = 900
+  val initialNumClickPoints = 26

  val graphVertexShaderString =
    "#version 300 es\n\
--- a/imperative-shell/shell.sml
+++ b/imperative-shell/shell.sml
@@ -15,9 +15,11 @@ struct
      val _ = Glfw.makeContextCurrent window
      val _ = Gles3.loadGlad ()

-      val initialModel =
-        AppInit.fromWindowWidthAndHeight
-          (Constants.windowWidth, Constants.windowHeight)
+      val initialModel = AppInit.fromWindowWidthAndHeight
+        ( Constants.windowWidth
+        , Constants.windowHeight
+        , Constants.initialNumClickPoints
+        )

      val graphLines = GraphLines.generate initialModel
      val graphDrawObject = AppDraw.initGraphLines ()