amd/orcaslicer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Fix for the recent commit about the new retraction settings

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-08-22 19:47:59 +02:00
parent 8e363ee070
commit edfdf236da
1 changed files with 17 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lib/Slic3r/GCode.pm
View file

@ -378,13 +378,25 @@ sub set_tool {
my $self = shift; my $self = shift;
my ($tool) = @_; my ($tool) = @_;
# return nothing if this tool was already selected
return "" if (defined $self->extruder_idx) && ($self->extruder_idx == $tool); return "" if (defined $self->extruder_idx) && ($self->extruder_idx == $tool);
$self->extruder_idx($tool);
return "" if @{$Slic3r::extruders} == 1;
return $self->retract(toolchange => 1) # if we are running a single-extruder setup, just set the extruder and return nothing
. (sprintf "T%d%s\n", $tool, ($Slic3r::Config->gcode_comments ? ' ; change tool' : '')) if (@{$Slic3r::extruders} == 1) {
. $self->reset_e; $self->extruder_idx($tool);
return "";
}
# trigger retraction on the current tool (if any)
my $gcode = "";
$gcode .= $self->retract(toolchange => 1) if defined $self->extruder_idx;
# set the new tool
$self->extruder_idx($tool);
$gcode .= sprintf "T%d%s\n", $tool, ($Slic3r::Config->gcode_comments ? ' ; change tool' : '');
$gcode .= $self->reset_e;
return $gcode;
} }
sub set_fan { sub set_fan {