Program.fs


open Substrate
open GameCore.GameModel
open GameCore.GameRunner
open Microsoft.Xna.Framework
open Microsoft.Xna.Framework.Input

let width, height  = 900, 900
let backColour = Color.White
let foreColour = Color.Black

[<EntryPoint>]
let main _ =

    let config = {
        clearColour = Some backColour
        resolution = Windowed (width, height)
        assetsToLoad = []
        fpsFont = None
    }

    let updateModel runState world =
        match world with
        | None -> Some <| initWorld width height
        | _ when wasJustPressed Keys.Escape runState -> None
        | Some world -> 
            Some <| advanceWorld world

    let getView _ world =
        [
            yield! world.grid |> Map.toList |> List.map (fun ((x, y), _) -> 
                Colour ((x, y, 1, 1), foreColour))
        ]

    runGame config updateModel getView
    0