Ramer-Douglas-Peucker line simplification: Difference between revisions
Ramer-Douglas-Peucker line simplification (view source)
Revision as of 17:47, 16 June 2017
, 6 years ago→{{header|Perl 6}}: minor simplification
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: minor simplification) |
|||
Line 235:
if $dmax > ε {
return Ramer-Douglas-Peucker( @points[0..$index] , ε )[
Ramer-Douglas-Peucker( @points[$index..*-1], ε )
return @points[0, *-1];▼
}
}
# TESTING
say flat Ramer-Douglas-Peucker(
|