This commit is contained in:
Alessandro Ranellucci 2012-12-05 01:12:50 +01:00
parent cf90033fd0
commit ac6dc67e6a
2 changed files with 3 additions and 3 deletions

View File

@ -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{$_};
} }
} }

View File

@ -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__