Add 'game-sml/' from commit '113c3e67abe635f714f972a1e2ab0e4b24ff10f4'

git-subtree-dir: game-sml
git-subtree-mainline: aa5357714d
git-subtree-split: 113c3e67ab

game-sml/shell/shell.sml

@@ -0,0 +1,21 @@
+structure Shell =
+struct
+  fun main () =
+    let
+      (* Set up GLFW. *)
+      val _ = Glfw.init ()
+      val _ = Glfw.windowHint (Glfw.CONTEXT_VERSION_MAJOR (), 3)
+      val _ = Glfw.windowHint (Glfw.DEPRECATED (), Glfw.FALSE ())
+      val _ = Glfw.windowHint (Glfw.WINDOW_MAX (), Glfw.TRUE ())
+
+      val window = Glfw.createWindow (1920, 1080, "shf")
+      val _ = Glfw.makeContextCurrent window
+      val _ = Gles3.loadGlad ()
+
+      val _ = InputState.registerCallbacks window
+    in
+      GlDraw.loop window
+    end
+end
+
+val _ = Shell.main ()