module Main where import Signal import Random import Graphics.Element (Element) import Game (Game, initialGame) import Display (display) import Step (step) import Input (getInput) import Vec2 (originVec) main : Signal Element 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