3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-25 15:44:12 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 3

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

24
lib/Slic3r/Print.pm
View file

@ -745,18 +745,22 @@ sub write_gcode {
my $region = $self->regions->[$region_id]; my $region = $self->regions->[$region_id];
# extrude perimeters # extrude perimeters
$gcode .= $gcodegen->set_extruder($region->extruders->{perimeter}); if (@{ $layerm->perimeters }) {
$gcode .= $gcodegen->extrude($_, 'perimeter') for @{ $layerm->perimeters }; $gcode .= $gcodegen->set_extruder($region->extruders->{perimeter});
$gcode .= $gcodegen->extrude($_, 'perimeter') for @{ $layerm->perimeters };
}
# extrude fills # extrude fills
$gcode .= $gcodegen->set_extruder($region->extruders->{infill}); if (@{ $layerm->fills }) {
$gcode .= $gcodegen->set_acceleration($Slic3r::Config->infill_acceleration); $gcode .= $gcodegen->set_extruder($region->extruders->{infill});
for my $fill (@{ $layerm->fills }) { $gcode .= $gcodegen->set_acceleration($Slic3r::Config->infill_acceleration);
if ($fill->isa('Slic3r::ExtrusionPath::Collection')) { for my $fill (@{ $layerm->fills }) {
$gcode .= $gcodegen->extrude($_, 'fill') if ($fill->isa('Slic3r::ExtrusionPath::Collection')) {
for $fill->shortest_path($gcodegen->last_pos); $gcode .= $gcodegen->extrude($_, 'fill')
} else { for $fill->shortest_path($gcodegen->last_pos);
$gcode .= $gcodegen->extrude($fill, 'fill') ; } else {
$gcode .= $gcodegen->extrude($fill, 'fill') ;
}
} }
} }
} }