shell.sml

structure Shell =
struct
  open GameTypes

  fun loop (window, game: game_board) =
    if not (Glfw.windowShouldClose window) then
      let
        val _ = Gles3.clearColor (0.1, 0.1, 0.1, 0.1)
        val _ = Gles3.clear ()
        val game = GameUpdate.update game
        val _ = GameDraw.draw game
        val _ = Glfw.pollEvents ()
        val _ = Glfw.swapBuffers window
      in
        loop (window, game)
      end
    else
      Glfw.terminate ()

  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.SAMPLES (), 4)
      val window = Glfw.createWindow (500, 500, "MLton - Pong Wars")
      val _ = Glfw.makeContextCurrent window
      val _ = Gles3.loadGlad ()
      (* Note: Create initial game state. *)
      val game = GameInit.initBoard ()
    in
      loop (window, game)
    end
end

val _ = Shell.main ()