Fixed regression causing small perimeter speed not to be applied anymore. #2365

This commit is contained in:
Alessandro Ranellucci 2014-11-23 19:15:28 +01:00
parent 2c64c3dd5b
commit a1193d28bc

View file

@ -279,7 +279,8 @@ sub _extrude_path {
$e_per_mm = 0 if !$self->writer->extrusion_axis; $e_per_mm = 0 if !$self->writer->extrusion_axis;
# set speed # set speed
my $F; my $F = $speed // -1;
if (!defined $F) {
if ($path->role == EXTR_ROLE_PERIMETER) { if ($path->role == EXTR_ROLE_PERIMETER) {
$F = $self->config->get_abs_value('perimeter_speed'); $F = $self->config->get_abs_value('perimeter_speed');
} elsif ($path->role == EXTR_ROLE_EXTERNAL_PERIMETER) { } elsif ($path->role == EXTR_ROLE_EXTERNAL_PERIMETER) {
@ -295,8 +296,8 @@ sub _extrude_path {
} elsif ($path->role == EXTR_ROLE_GAPFILL) { } elsif ($path->role == EXTR_ROLE_GAPFILL) {
$F = $self->config->get_abs_value('gap_fill_speed'); $F = $self->config->get_abs_value('gap_fill_speed');
} else { } else {
$F = $speed // -1; die "Invalid speed";
die "Invalid speed" if $F < 0; # $speed == -1 }
} }
$F *= 60; # convert mm/sec to mm/min $F *= 60; # convert mm/sec to mm/min