3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-31 04:31:15 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Use support material speed for skirt and brim instead of perimeter speed so that perimeter speed can be set on a per-region basis

Browse source
This commit is contained in:
Alessandro Ranellucci 2014-05-18 17:02:18 +02:00
parent 58ffaca2df
commit 0ddcefe956
3 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/Slic3r/GCode.pm
View file

@ -141,7 +141,7 @@ sub extrude {
}
sub extrude_loop {
my ($self, $loop, $description) = @_;
my ($self, $loop, $description, $speed) = @_;
# make a copy; don't modify the orientation of the original loop object otherwise
# next copies (if any) would not detect the correct orientation
@ -199,10 +199,10 @@ sub extrude_loop {
return '' if !@paths;
# apply the small perimeter speed
my $speed = -1;
if ($paths[0]->is_perimeter && $loop->length <= &Slic3r::SMALL_PERIMETER_LENGTH) {
$speed = $self->config->get_abs_value('small_perimeter_speed');
$speed //= $self->config->get_abs_value('small_perimeter_speed');
}
$speed //= -1;
# extrude along the path
my $gcode = join '', map $self->extrude_path($_, $description, $speed), @paths;
@ -267,7 +267,7 @@ sub extrude_path {
# set speed
my $F;
if ($path->role == EXTR_ROLE_PERIMETER || $path->role == EXTR_ROLE_SKIRT) {
if ($path->role == EXTR_ROLE_PERIMETER) {
$F = $self->config->get_abs_value('perimeter_speed');
} elsif ($path->role == EXTR_ROLE_EXTERNAL_PERIMETER) {
$F = $self->config->get_abs_value('external_perimeter_speed');