juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-19 19:33:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

Perimeters test modified to skip lines M73

Browse Source
This commit is contained in:
Enrico Turri
2018-07-13 10:46:30 +02:00
parent 3839d26e9b
commit cf1ccacd41
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
t/perimeters.t
View File

@@ -175,7 +175,7 @@ use Slic3r::Test;
if ($info->{extruding} && $info->{dist_XY} > 0) { if ($info->{extruding} && $info->{dist_XY} > 0) {
$cur_loop ||= [ [$self->X, $self->Y] ]; $cur_loop ||= [ [$self->X, $self->Y] ];
push @$cur_loop, [ @$info{qw(new_X new_Y)} ]; push @$cur_loop, [ @$info{qw(new_X new_Y)} ];
} else { } elsif ($cmd ne 'M73') { # skips remaining time lines (M73)
if ($cur_loop) { if ($cur_loop) {
$has_cw_loops = 1 if Slic3r::Polygon->new(@$cur_loop)->is_clockwise; $has_cw_loops = 1 if Slic3r::Polygon->new(@$cur_loop)->is_clockwise;
$cur_loop = undef; $cur_loop = undef;
@@ -201,7 +201,7 @@ use Slic3r::Test;
if ($info->{extruding} && $info->{dist_XY} > 0) { if ($info->{extruding} && $info->{dist_XY} > 0) {
$cur_loop ||= [ [$self->X, $self->Y] ]; $cur_loop ||= [ [$self->X, $self->Y] ];
push @$cur_loop, [ @$info{qw(new_X new_Y)} ]; push @$cur_loop, [ @$info{qw(new_X new_Y)} ];
} else { } elsif ($cmd ne 'M73') { # skips remaining time lines (M73)
if ($cur_loop) { if ($cur_loop) {
$has_cw_loops = 1 if Slic3r::Polygon->new_scale(@$cur_loop)->is_clockwise; $has_cw_loops = 1 if Slic3r::Polygon->new_scale(@$cur_loop)->is_clockwise;
if ($self->F == $config->external_perimeter_speed*60) { if ($self->F == $config->external_perimeter_speed*60) {
@@ -306,7 +306,7 @@ use Slic3r::Test;
if ($info->{extruding} && $info->{dist_XY} > 0 && ($args->{F} // $self->F) == $config->perimeter_speed*60) { if ($info->{extruding} && $info->{dist_XY} > 0 && ($args->{F} // $self->F) == $config->perimeter_speed*60) {
$perimeters{$self->Z}++ if !$in_loop; $perimeters{$self->Z}++ if !$in_loop;
$in_loop = 1; $in_loop = 1;
} else { } elsif ($cmd ne 'M73') { # skips remaining time lines (M73)
$in_loop = 0; $in_loop = 0;
} }
}); });
@@ -430,7 +430,7 @@ use Slic3r::Test;
push @seam_points, Slic3r::Point->new_scale($self->X, $self->Y); push @seam_points, Slic3r::Point->new_scale($self->X, $self->Y);
} }
$was_extruding = 1; $was_extruding = 1;
} else { } elsif ($cmd ne 'M73') { # skips remaining time lines (M73)
$was_extruding = 0; $was_extruding = 0;
} }
}); });