diff options
| author | Alessandro Ranellucci <aar@cpan.org> | 2013-11-21 21:42:16 +0400 |
|---|---|---|
| committer | Alessandro Ranellucci <aar@cpan.org> | 2013-11-21 21:42:16 +0400 |
| commit | 5f2b2c90b6030e00677433bdfb19ad39cea9c18b (patch) | |
| tree | 36face3acb85757531b029c43ac3993e7fec4edb /t/perimeters.t | |
| parent | 3aef663f7f367bc92ecab98ff9abc021b3a6323b (diff) | |
Fix error in contains_point() port
Diffstat (limited to 't/perimeters.t')
| -rw-r--r-- | t/perimeters.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/perimeters.t b/t/perimeters.t index 6647bada0..7ce92fa39 100644 --- a/t/perimeters.t +++ b/t/perimeters.t @@ -59,10 +59,10 @@ use Slic3r::Test; if ($self->F == $config->external_perimeter_speed*60) { my $move_dest = Slic3r::Point->new_scale(@$info{qw(new_X new_Y)}); $external_loops{$self->Z}++; + my $loop_contains_point = Slic3r::Polygon->new_scale(@$cur_loop)->contains_point($move_dest); $has_outwards_move = 1 - if !Slic3r::Polygon->new_scale(@$cur_loop)->contains_point($move_dest) - ? ($external_loops{$self->Z} == 2) # contour should include destination - : ($external_loops{$self->Z} == 1); # hole should not + if (!$loop_contains_point && $external_loops{$self->Z} == 2) # contour should include destination + || ($loop_contains_point && $external_loops{$self->Z} == 1); # hole should not } $cur_loop = undef; } |