findFarthestPoint :: [Point] -> Point -> Point -> Double -> Point
findFarthestPoint [] firstPoint finalPoint dist = finalPoint
findFarthestPoint :: [Point] -> Point -> Point -> Double -> Point
findFarthestPoint [] firstPoint finalPoint dist = finalPoint
findFarthestPoint [] firstPoint finalPoint dist = finalPoint