recurProcess :: All -> [Point] -> Double -> Range -> Int -> [Point]
recurProcess (All fC []) srcContours epsi right_slice count = fC
recurProcess :: All -> [Point] -> Double -> Range -> Int -> [Point]
recurProcess (All fC []) srcContours epsi right_slice count = fC
recurProcess (All fC []) srcContours epsi right_slice count = fC