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

2024-07-31 14:02:23 +01:00
parent d90ed8afa2
commit a2c499c933
5 changed files with 16 additions and 14 deletions
--- a/imperative-shell/shell.sml
+++ b/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 ()