rdpFinal :: [Point] -> [Point] -> Double -> [Point] -> [Point]
rdpFinal [x] original epsi acc           = acc ++ [x]
rdpFinal :: [Point] -> [Point] -> Double -> [Point] -> [Point]
rdpFinal [x] original epsi acc           = acc ++ [x]
rdpFinal [x] original epsi acc           = acc ++ [x]