Bugfix: any retraction_lift value different from "0" caused no retraction before layer changes. #453
This commit is contained in:
parent
7d6545dd07
commit
217a6f2525
1 changed files with 5 additions and 5 deletions
|
@ -227,13 +227,13 @@ sub retract {
|
||||||
# combine Z change and retraction
|
# combine Z change and retraction
|
||||||
my $travel = [undef, $params{move_z}, $retract->[2], 'change layer and retract'];
|
my $travel = [undef, $params{move_z}, $retract->[2], 'change layer and retract'];
|
||||||
$gcode .= $self->G0(@$travel);
|
$gcode .= $self->G0(@$travel);
|
||||||
} elsif (defined $params{move_z} && $Slic3r::retract_lift) {
|
|
||||||
my $travel = [undef, $params{move_z} + $Slic3r::retract_lift, 0, 'move to next layer (' . $self->layer->id . ') and lift'];
|
|
||||||
$gcode .= $self->G0(@$travel);
|
|
||||||
$self->lifted(1);
|
|
||||||
} else {
|
} else {
|
||||||
$gcode .= $self->G1(@$retract);
|
$gcode .= $self->G1(@$retract);
|
||||||
if ($lift) {
|
if (defined $params{move_z} && $Slic3r::retract_lift > 0) {
|
||||||
|
my $travel = [undef, $params{move_z} + $Slic3r::retract_lift, 0, 'move to next layer (' . $self->layer->id . ') and lift'];
|
||||||
|
$gcode .= $self->G0(@$travel);
|
||||||
|
$self->lifted(1);
|
||||||
|
} elsif ($lift) {
|
||||||
$gcode .= $self->G1(@$lift);
|
$gcode .= $self->G1(@$lift);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue