src/Model/Player.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

module Model.Player
  ( Player
  , playerSize
  , playerSpeed
  ) where

import Model.Vec2 (..)
import Model.Config (Config)

type alias Player =
  { pos : Vec2
  , speed : Vec2
  , config : Config
  }

playerSize : Float
playerSize = 15

playerSpeed : Float -> Float
playerSpeed dt = dt / 200