add functionality to move player by using arrow keys

2024-12-14 07:59:43 +00:00
parent 9144c97fba
commit 1901043535
9 changed files with 134 additions and 34 deletions
--- a/shell/shell.sml
+++ b/shell/shell.sml
@@ -1,7 +1,5 @@
 structure Shell =
 struct
-  open CML
-
  fun main () =
    let
      (* Set up GLFW. *)
@@ -13,6 +11,8 @@ struct
      val window = Glfw.createWindow (1920, 1080, "shf")
      val _ = Glfw.makeContextCurrent window
      val _ = Gles3.loadGlad ()
+
+      val _ = InputState.registerCallbacks window
    in
      GlDraw.loop window
    end