2024-12-10 19:48:07 +00:00
|
|
|
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 ()
|
2024-12-14 07:59:43 +00:00
|
|
|
|
|
|
|
|
val _ = InputState.registerCallbacks window
|
2024-12-10 19:48:07 +00:00
|
|
|
in
|
|
|
|
|
GlDraw.loop window
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
val _ = Shell.main ()
|
