direction :: Position -> Target -> Direction
direction (Position pos) (Target tar) =
  Direction $ vnormalise $ tar - pos
direction :: Position -> Target -> Direction
direction (Position pos) (Target tar) =
  Direction $ vnormalise $ tar - pos
direction (Position pos) (Target tar) =
  Direction $ vnormalise $ tar - pos