Fixed spiral vase regressions. Includes regression tests. #1773

lib/Slic3r/GCode/Reader.pm

@@ -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) = @_;