fix stepper protocol constants and example

ntruchsess · Mar 4, 2014 · 72a9d09 · 72a9d09
1 parent 6c99551
commit 72a9d09
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 9 deletions.
diff --git a/examples/example_stepper.pl b/examples/example_stepper.pl
@@ -13,18 +13,20 @@
 $device->observe_string( \&onStringMessage, undef );
 
 my $steps = [
-	[0,100,10],
-	[1,200,20],
-	[0,100,40],
+	[0,1000,5000],
+	[1,500,5000],
+	[0,1000,5000],
+	[1,1500,5000]
 ];
 
 my $stepperContext = { position => 0, progStep => 0, program => $steps };
 
-$device->observe_stepper( \&onStepperMessage, $stepperContext );
+$device->observe_stepper(0, \&onStepperMessage, $stepperContext );
 
-$device->stepper_config(0,'DRIVER',1000,4,5);  #   $stepperNum, $interface, $stepsPerRev, $directionPin, $stepPin,[$motorPin3, $motorPin4] 
+#$device->stepper_config(0,'DRIVER',1000,4,5);  #   $stepperNum, $interface, $stepsPerRev, $directionPin, $stepPin,[$motorPin3, $motorPin4] 
 #$device->stepper_config(0,'TWO_WIRE',1000,4,5);  #   $stepperNum, $interface, $stepsPerRev, $directionPin, $stepPin,[$motorPin3, $motorPin4] 
-#$device->stepper_config(0,'FOUR_WIRE',1000,4,5,6,7);  #   $stepperNum, $interface, $stepsPerRev, $directionPin, $stepPin,[$motorPin3, $motorPin4] 
+$device->stepper_config(0,'FOUR_WIRE',64,8,6,5,7);  #   $stepperNum, $interface, $stepsPerRev, $directionPin, $stepPin,[$motorPin3, $motorPin4] 
+
 
 nextStep($stepperContext,0);
 

diff --git a/lib/Device/Firmata/Protocol.pm b/lib/Device/Firmata/Protocol.pm
@@ -79,9 +79,9 @@ our $STEPPER_COMMANDS = {
 };
 
 our $STEPPER_INTERFACES = {
-  DRIVER                      => 0,
-  TWO_WIRE                    => 1,
-  FOUR_WIRE                   => 2,
+  DRIVER                      => 1,
+  TWO_WIRE                    => 2,
+  FOUR_WIRE                   => 4,
 };
 
 our $ENCODER_COMMANDS = {