Fixed spiral vase regressions. Includes regression tests. #1773

This commit is contained in:
Alessandro Ranellucci 2014-02-13 16:06:52 +01:00
parent 0060873f1c
commit 49d290accf
4 changed files with 66 additions and 47 deletions

View file

@ -10,6 +10,13 @@ has 'F' => (is => 'rw', default => sub {0});
our $Verbose = 0;
my @AXES = qw(X Y Z E);
sub clone {
my $self = shift;
return (ref $self)->new(
map { $_ => $self->$_ } (@AXES, 'F'),
);
}
sub parse {
my $self = shift;
my ($gcode, $cb) = @_;