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)

main : Signal Html
main = Signal.map display game

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

port initialTime : Int

initialSeed : Random.Seed
initialSeed = Random.initialSeed initialTime