src/Main.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

module Main where

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

import Model.Game (Game, initialGame)
import Model.Vec2 (originVec)
import Model.Config (Config(White))

import Update.Update (update)

import Input (getInput)

import View.Page (page)

main : Signal Html
main = Signal.map page game

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

port initialTime : Int

initialSeed : Random.Seed
initialSeed = Random.initialSeed initialTime