a bit of fiddling to support different resolutions (as long as aspect ratio of window is 1:1)

imperative-shell/constants.sml

@@ -1,5 +1,8 @@
 structure Constants =
 struct
+  val windowWidth = 900
+  val windowHeight = 900
+
   val graphVertexShaderString =
     "#version 300 es\n\
     \layout (location = 0) in vec2 apos;\n\

imperative-shell/shell.sml

@@ -9,7 +9,8 @@ struct
       val _ = Glfw.windowHint (Glfw.CONTEXT_VERSION_MAJOR (), 3)
       val _ = Glfw.windowHint (Glfw.DEPRECATED (), Glfw.FALSE ())
       val _ = Glfw.windowHint (Glfw.SAMPLES (), 4)
-      val window = Glfw.createWindow (500, 500, "MLton - box x box")
+      val window = 
+        Glfw.createWindow (Constants.windowWidth, Constants.windowHeight, "MLton - dot to dot")
       val _ = Glfw.makeContextCurrent window
       val _ = Gles3.loadGlad ()