3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Give priority to infill extruder if it was used last. #940

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-03-10 17:40:19 +01:00
parent 107f48d894
commit ab3d1ac820
1 changed files with 15 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lib/Slic3r/Print.pm
View file

@ -851,7 +851,7 @@ sub write_gcode {
if ($gcodegen->multiple_extruders) {
my $last_extruder = $gcodegen->extruder;
my $best_region_id = first { $self->regions->[$_]->extruders->{perimeter} eq $last_extruder } @region_ids;
@region_ids = ($best_region_id, grep $_ != $best_region_id, @region_ids);
@region_ids = ($best_region_id, grep $_ != $best_region_id, @region_ids) if $best_region_id;
}
foreach my $region_id (@region_ids) {
@ -889,14 +889,14 @@ sub write_gcode {
}
foreach my $island (@islands) {
# extrude perimeters
if (@{ $island->{perimeters} }) {
my $extrude_perimeters = sub {
next if !@{ $island->{perimeters} };
$gcode .= $gcodegen->set_extruder($region->extruders->{perimeter});
$gcode .= $gcodegen->extrude($_, 'perimeter') for @{ $island->{perimeters} };
}
};
# extrude fills
if (@{ $island->{fills} }) {
my $extrude_fills = sub {
next if !@{ $island->{fills} };
$gcode .= $gcodegen->set_extruder($region->extruders->{infill});
for my $fill (@{ $island->{fills} }) {
if ($fill->isa('Slic3r::ExtrusionPath::Collection')) {
@ -906,6 +906,15 @@ sub write_gcode {
$gcode .= $gcodegen->extrude($fill, 'fill') ;
}
}
};
# give priority to infill if we were already using its extruder
if ($gcodegen->multiple_extruders && $region->extruders->{infill} eq $gcodegen->extruder) {
$extrude_fills->();
$extrude_perimeters->();
} else {
$extrude_perimeters->();
$extrude_fills->();
}
}
}