-- | A list of vectors between a list of points.
pathToTrajectory :: [Point] -> [Vector]
pathToTrajectory [] = []
pathToTrajectory :: [Point] -> [Vector]
pathToTrajectory [] = []
pathToTrajectory [] = []