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