3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-26 16:13:58 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Remove unnecessary retractions

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-10-24 19:38:18 +02:00
parent 44016b38c5
commit 355031fe2f
1 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/Slic3r/Print.pm
View file

@ -745,10 +745,13 @@ sub write_gcode {
my $region = $self->regions->[$region_id]; my $region = $self->regions->[$region_id];
# extrude perimeters # extrude perimeters
if (@{ $layerm->perimeters }) {
$gcode .= $gcodegen->set_extruder($region->extruders->{perimeter}); $gcode .= $gcodegen->set_extruder($region->extruders->{perimeter});
$gcode .= $gcodegen->extrude($_, 'perimeter') for @{ $layerm->perimeters }; $gcode .= $gcodegen->extrude($_, 'perimeter') for @{ $layerm->perimeters };
}
# extrude fills # extrude fills
if (@{ $layerm->fills }) {
$gcode .= $gcodegen->set_extruder($region->extruders->{infill}); $gcode .= $gcodegen->set_extruder($region->extruders->{infill});
$gcode .= $gcodegen->set_acceleration($Slic3r::Config->infill_acceleration); $gcode .= $gcodegen->set_acceleration($Slic3r::Config->infill_acceleration);
for my $fill (@{ $layerm->fills }) { for my $fill (@{ $layerm->fills }) {
@ -760,6 +763,7 @@ sub write_gcode {
} }
} }
} }
}
# extrude support material # extrude support material
if ($layer->support_fills) { if ($layer->support_fills) {