readDstPt :: [Point] -> Int -> Point
readDstPt dstContours pos = dstContours !! pos
readDstPt :: [Point] -> Int -> Point
readDstPt dstContours pos = dstContours !! pos
readDstPt dstContours pos = dstContours !! pos