mirror of
https://github.com/FULU-Foundation/OrcaSlicer-bambulab.git
synced 2026-05-14 13:02:39 -07:00
Tidy
This commit is contained in:
@@ -58,7 +58,7 @@ has 'E' => (is => 'rw', default => sub {0});
|
|||||||
has 'F' => (is => 'rw', default => sub {0});
|
has 'F' => (is => 'rw', default => sub {0});
|
||||||
|
|
||||||
our $Verbose = 0;
|
our $Verbose = 0;
|
||||||
my @AXES = qw(X Y Z E F);
|
my @AXES = qw(X Y Z E);
|
||||||
|
|
||||||
sub parse {
|
sub parse {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
@@ -100,7 +100,7 @@ sub parse {
|
|||||||
|
|
||||||
# update coordinates
|
# update coordinates
|
||||||
if ($command =~ /^(?:G[01]|G92)$/) {
|
if ($command =~ /^(?:G[01]|G92)$/) {
|
||||||
for (@AXES) {
|
for (@AXES, 'F') {
|
||||||
$self->$_($args{$_}) if exists $args{$_};
|
$self->$_($args{$_}) if exists $args{$_};
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -44,6 +44,6 @@ $config->set('retract_before_travel', [3]);
|
|||||||
ok $test->(), 'retraction';
|
ok $test->(), 'retraction';
|
||||||
|
|
||||||
$config->set('retract_restart_extra', [1]);
|
$config->set('retract_restart_extra', [1]);
|
||||||
ok $test->(), 'retraction with restart extra length';
|
ok $test->(), 'restart extra length';
|
||||||
|
|
||||||
__END__
|
__END__
|
||||||
|
|||||||
Reference in New Issue
Block a user