Fix regression in start perimeters at non-overhangs. #1442

This commit is contained in:
Alessandro Ranellucci 2013-09-16 18:42:28 +02:00
parent 9a51964e98
commit a88ce0cb5e
3 changed files with 17 additions and 16 deletions

View file

@ -69,9 +69,10 @@ sub subdivide {
sub concave_points {
my $self = shift;
my @points = @{$self->pp};
return map $self->[$_],
grep Slic3r::Geometry::angle3points(@points[$_, $_-1, $_+1]) < PI - epsilon,
my @points = @$self;
my @points_pp = @{$self->pp};
return map $points[$_],
grep Slic3r::Geometry::angle3points(@points_pp[$_, $_-1, $_+1]) < PI - epsilon,
-1 .. ($#points-1);
}