Reverted perl perimeter test bypass

This commit is contained in:
PavelMikus 2022-04-25 17:34:22 +02:00
parent 77b5885f7d
commit 7cccb736de

View File

@ -221,9 +221,7 @@ use Slic3r::Test;
if (!$loop_contains_point && $is_contour) # contour should include destination if (!$loop_contains_point && $is_contour) # contour should include destination
|| ($loop_contains_point && $is_hole); # hole should not || ($loop_contains_point && $is_hole); # hole should not
if ($model eq 'cube_with_concave_hole' if ($model eq 'cube_with_concave_hole') {
#FIXME skip the 1st layer in the test 'loops start on concave point if any'
&& $self->Z > 0.36) {
# check that loop starts at a concave vertex # check that loop starts at a concave vertex
my $ccw_angle = $loop->[-2]->ccw($loop->first_point, $loop->[1]); my $ccw_angle = $loop->[-2]->ccw($loop->first_point, $loop->[1]);
my $convex = ($ccw_angle > PI); # whether the angle on the *right* side is convex my $convex = ($ccw_angle > PI); # whether the angle on the *right* side is convex