Rosetta Code

Ramer-Douglas-Peucker line simplification: Difference between revisions

Page Discussion

Ramer-Douglas-Peucker line simplification (view source)

Revision as of 02:18, 21 December 2016

77 bytes removed ,  7 years ago
m
→‎{{header|Perl 6}}: yet more code twiddling
m (→‎{{header|Perl 6}}: more minor code tweaking)
m (→‎{{header|Perl 6}}: yet more code twiddling)
Line 140:
sub Ramer-Douglas-Peucker( @points where * > 1, \ε = 1 ) {
return @points if @points == 2;
my ($index, $dmax)@d = (0,0^@points);.map:
for { perpendicular-distance(@points[0], ^..^@points[*-1], @points[$_]) {};
my ($index, $dmax) = @d.grep: @d.max, :kv;
my $d = perpendicular-distance(@points[0], @points[*-1], @points[$_]);
 
if $d > $dmax {
$dmax = $d;
$index = $_
}
}
if $dmax > ε {
return Ramer-Douglas-Peucker( @points[0..$index] , ε )[0..*-2],
Thundergnat
10,333

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/272084"