Tidy
This commit is contained in:
parent
cf90033fd0
commit
ac6dc67e6a
@ -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__
|
||||||
|
Loading…
Reference in New Issue
Block a user