diff options
Diffstat (limited to 'CAMM.pm')
-rw-r--r-- | CAMM.pm | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -188,7 +188,7 @@ BEGIN { # local $CAMM::Commands::escape_char = $c; # $self->emit(CAMM::Commands::set_escape_char($c)); # } - + # getters, setters. for my $name (keys %setters) { my $sub = sub { @@ -319,7 +319,7 @@ sub content { # $polyline = ["open"|"closed",[point,...]] # options: # boolean: header, footer, headerfooter, relative -# float: epsilon, offset, shortline, smallangle +# float: epsilon, offset, shortline, smallangle, speed sub from_polylines { my $self = shift; @@ -328,6 +328,7 @@ sub from_polylines { my ($paths,%options) = @_; @options{qw(header footer)} = (1,1) if $options{headerfooter}; $self->header() if $options{header}; + $self->set_speed($options{speed}) if defined $options{speed}; my $eps = $options{epsilon}//0.00001; # since the knife follows the machine's current (pen) position by an offset, # we need to keep track of the knife's position as well as the pen position. |