More fixes.

This commit is contained in:
Alessandro Ranellucci 2011-10-10 17:27:00 +02:00
parent 34681af6ae
commit bca3abb755
4 changed files with 43 additions and 2 deletions

View file

@ -596,7 +596,6 @@ sub polygon_remove_parallel_continuous_edges {
sub polyline_remove_acute_vertices {
my ($points, $isPolygon) = @_;
for (my $i = $isPolygon ? -1 : 1; $i < $#$points; $i++) {
my $angle = angle3points($points->[$i], $points->[$i-1], $points->[$i+1]);
if ($angle < 0.01 || $angle >= 2*PI - 0.01) {