2017-06-25 04:45:03 +00:00
|
|
|
module Types exposing (..)
|
|
|
|
|
|
|
|
import Time exposing (Time)
|
|
|
|
|
|
|
|
|
|
|
|
type Direction
|
|
|
|
= Up
|
|
|
|
| Down
|
|
|
|
| Left
|
|
|
|
| Right
|
|
|
|
|
|
|
|
|
|
|
|
type alias Model =
|
|
|
|
{ time : Time
|
|
|
|
, player : PlayerModel
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2017-06-26 21:48:17 +00:00
|
|
|
type Msg
|
|
|
|
= Tick Time
|
|
|
|
| Tock Time
|
|
|
|
|
|
|
|
|
2017-06-25 04:45:03 +00:00
|
|
|
type alias PlayerModel =
|
|
|
|
{ direction : Direction
|
|
|
|
, location : ( Float, Float )
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
type alias Range =
|
|
|
|
( Float, Float )
|