blob: 6be576658d0fb982b1496403d7917fa7f70efbd0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
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
|
