summaryrefslogtreecommitdiff
path: root/CAMM.pm
diff options
context:
space:
mode:
Diffstat (limited to 'CAMM.pm')
-rw-r--r--CAMM.pm5
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.