dxf2camm.pl: added option "--speed".

1 files changed, 3 insertions, 2 deletions

diff --git a/CAMM.pm b/CAMM.pm
index 5b79c7b..49027c4 100644
--- a/CAMM.pm
+++ b/CAMM.pm
@@ -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.