roguestar-engine-0.2.1: src/Position.hs

module Position
    (Position(..),
     distanceBetweenSquared,
     distanceBetweenChessboard,
     offsetPosition)
    where

newtype Position = Position { fromPosition :: (Integer,Integer) }
    deriving (Eq,Ord,Read,Show)

offsetPosition :: (Integer,Integer) -> Position -> Position
offsetPosition (x,y) (Position (u,v)) = Position (x+u,y+v)

distanceBetweenSquared :: Position -> Position -> Integer
distanceBetweenSquared (Position (x,y)) (Position (u,v)) = (x - u)^2 + (y - v)^2

distanceBetweenChessboard :: Position -> Position -> Integer
distanceBetweenChessboard (Position (x,y)) (Position (u,v)) = max (abs $ u - x) (abs $ v - y)