module Point where

import Vec2 (..)
import Board (boardDiagonal)

type alias Point =
  { initTime : Float
  , initPos : Vec2
  , initDest : Vec2
  , move : Float -> Vec2 -> Vec2 -> Float -> Vec2
  }

pointMove : Point -> Float -> Vec2
pointMove {initTime, initPos, initDest, move} time =
  move initTime initPos initDest time

pointSize : Float
pointSize = 5

pointSpeed : Float -> Float
pointSpeed dt = dt / 20

pointSpawnDist : Float
pointSpawnDist = boardDiagonal * 3 / 5

pointAwayDist : Float
pointAwayDist = boardDiagonal * 3 / 4