module Main where

import Signal
import Random
import Graphics.Element (Element)
import Html (Html)

import Game (Game, initialGame)
import Display (display)
import Step (step)
import Input (getInput)
import Vec2 (originVec)
import Config (Config(White))

main : Signal Html
main = Signal.map display game

game : Signal Game
game = Signal.foldp step (initialGame initialSeed originVec White 0) getInput

port initialTime : Int

initialSeed : Random.Seed
initialSeed = Random.initialSeed initialTime