module Model.Player ( Player , initPlayer , playerSize , playerSpeed ) where import Model.Vec2 exposing (..) import Model.Config exposing (..) type alias Player = { pos : Vec2 , speed : Vec2 , config : Config } initPlayer : Player initPlayer = { pos = originVec , speed = originVec , config = White } playerSize : Float playerSize = 15 playerSpeed : Float -> Float playerSpeed dt = dt / 200