getSparePoint :: [Point] -> Double -> [Point]
getSparePoint listOfPoints epsi
    | (length listOfPoints) <= 2 = []
    | otherwise                  = listOfPoints \\ (rdpFinal listOfPoints listOfPoints epsi [])
getSparePoint :: [Point] -> Double -> [Point]
getSparePoint listOfPoints epsi
    | (length listOfPoints) <= 2 = []
    | otherwise                  = listOfPoints \\ (rdpFinal listOfPoints listOfPoints epsi [])
getSparePoint listOfPoints epsi
    | (length listOfPoints) <= 2 = []
    | otherwise                  = listOfPoints \\ (rdpFinal listOfPoints listOfPoints epsi [])