findFarthestPointToLine :: [Point] -> [Point] -> Point -> Double -> Point
findFarthestPointToLine [] line finalPoint dist = finalPoint
findFarthestPointToLine :: [Point] -> [Point] -> Point -> Double -> Point
findFarthestPointToLine [] line finalPoint dist = finalPoint
findFarthestPointToLine [] line finalPoint dist = finalPoint