madrona-rad 0.2.5 → 0.2.6

data/lib/examples/hysteresis_duel.rb

@@ -0,0 +1,39 @@
+class HysteresisDuel < ArduinoSketch
+  
+  # purpose 
+  # side by side demo of affect of hysteresis on two different sensor readings
+  # 
+  #
+
+  # requires one pa_lcd
+  # two sensors or potentiometers
+
+
+
+    output_pin 5, :as => :my_lcd, :device => :pa_lcd, :rate => 19200, :clear_screen => :true
+    input_pin 1, :as => :sensor_one, :device => :sensor
+    input_pin 2, :as => :sensor_two, :device => :sensor
+
+    def setup
+      delay 1000
+      my_lcd.setxy 0,0, "hysteresis duel"
+      delay 5000
+      my_lcd.clearscr
+    end
+
+    def loop
+      my_lcd.setxy 0,0, "direct"
+      my_lcd.setxy 0,1, "one: "
+      my_lcd.print analogRead sensor_one
+      my_lcd.print " two: "
+      my_lcd.print analogRead sensor_two
+      my_lcd.setxy 0,2, "with hysteresis"
+      my_lcd.setxy 0,3, "one: "
+      my_lcd.print sensor_one.with_hyst 4
+      my_lcd.print " two: "
+      my_lcd.print sensor_two.with_hyst 4
+      delay 230
+    end
+
+    
+end

data/lib/examples/motor_knob.rb

@@ -0,0 +1,30 @@
+class MotorKnob < ArduinoSketch
+
+# ----------------------------------------------------------
+#    MotorKnob adapted from Tom Igoe's Arduino Sketch
+#
+#      Brian Riley - Underhill Center, VT, USA  July 2008
+#                     <brianbr@wulfden.org>
+#
+#    A stepper motor follows the turns of a potentiometer
+#    (or other sensor) on analog input 0.
+#
+#     http://www.arduino.cc/en/Reference/Stepper
+# ----------------------------------------------------------
+
+  fourwire_stepper  8, 9, 10, 11, :as => :mystepper, :speed => 31, :steps => 200
+  input_pin  0, :as => :sensor
+  
+  
+  @previous = "0, int"
+  @value    = "0, int"
+  
+  def loop
+    
+    @value = analogRead(sensor)
+    mystepper.set_steps @value - @previous
+    @previous = @value 
+    
+  end
+
+end

data/lib/examples/orig_servo_throttle.rb

@@ -27,7 +27,7 @@ class OrigServoThrottle < ArduinoSketch
        
        def servo_status
          
-        my_lcd.home			# line 0, col 0
+        my_lcd.setxy 0,0			# line 0, col 0
      		my_lcd.print "Read  Send"
      		my_lcd.setxy 0,1		# line 1, col 0
      		my_lcd.print sensor_position # need method of blanking out previous reading

data/lib/examples/servo_calibrate_continuous.rb

@@ -0,0 +1,92 @@
+class ServoCalibrateContinuous < ArduinoSketch
+
+  # ----------------------------------------------------------------------
+  #    Program to calibrate a 'continuous' or 'modified' hobby servo
+  #
+  #    Basically uses teh servo 'spped' command to send a speed
+  #    of zero (0) to the servo continuously. You then use a small
+  #    screwdriver to adjust the potentiometer on the sero until there
+  #    is no motion whatsoever.
+  #
+  #    The program strats off by commanding max speed clockwise and then
+  #    counter clockwise. First the LED blinks rapidly for 2 seconds as
+  #    a warning that motion is coming. Then the LED is turned on solid
+  #    Then 2 seconds max rev clockwise, then two seconds max rev counter-
+  #    clockwise. Then the LED is turned off and this followed by twenty
+  #    second of the servo commanded to zero (0) speed. During this time
+  #    you may adjust the servo for no motion. If you stilll have more
+  #    adjustmenst to make you will be warned by the flashing LED to
+  #    back off while it moves back and forth. This full speed motion
+  #    is to let you knwo you have it right,
+  #
+  #    The 20 second timer uses the Arduino millis() counter which
+  #    rolls over after a couple million milliseconds. I made no attempt
+  #    to allow for ths. If your servo isn't calibrated after a couple
+  #    million milliseconds and the prgram jams up then (a) hit the reset
+  #    button, or (b) give up!
+  #
+  #      Brian Riley - Underhill Center, VT, USA  July 2008
+  #                     <brianbr@wulfden.org>
+  #
+  # ----------------------------------------------------------------------
+  
+   
+  @test_state = "2, int"
+  @cycle_time = "0, long"
+  
+  
+      # This sets up to do four units at once
+      # You can comment the extra lines out or leave them in, if there's nothing
+      # connected, no harm, no foul!
+      output_pin 12, :as => :servo4, :device => :servo, :minp => 400, :maxp => 2600
+      output_pin 11, :as => :servo3, :device => :servo, :minp => 400, :maxp => 2600
+      output_pin 10, :as => :servo2, :device => :servo, :minp => 400, :maxp => 2600
+      output_pin  9, :as => :servo1, :device => :servo, :minp => 400, :maxp => 2600
+ 
+      output_pin 13, :as => :led
+
+
+
+  def loop
+    if @test_state == 2
+
+      40.times { blink led, 50 }    # 40 x 50 ms is a 2 second blinking light
+                                    #  ** Warning! **  "... danger Will Robinson!"
+      toggle led                    # turn it on keep it on -- keep hands away
+      servo1.speed -90
+      servo2.speed -90
+      servo3.speed -90
+      servo4.speed -90
+      delay_servo 2000              # two full seconds max clockwise
+      servo1.speed 90
+      servo2.speed 90
+      servo3.speed 90
+      servo4.speed 90
+      delay_servo 2000              # two full seconds max counter clockwise
+      
+      @test_state = 1               # setup for zero speed test/adjust
+      @cycle_time = millis + 20000
+      servo1.speed 0
+      servo2.speed 0
+      servo3.speed 0
+      servo4.speed 0
+      toggle led                    # lights off, OK  you have 20 seconds to adjust
+    end
+
+    if @cycle_time - millis <= 0
+        @test_state = 2
+    else
+        servo_refresh
+    end
+        
+  end
+  
+  
+  def delay_servo(t)
+    t.times do
+      delay 1
+      servo_refresh
+    end
+  end
+  
+end

data/lib/examples/servo_throttle.rb

@@ -25,7 +25,7 @@ class ServoThrottle < ArduinoSketch
        
        def servo_status
          
-        my_lcd.home			# line 0, col 0
+        my_lcd.setxy 0,0			# line 0, col 0
      		my_lcd.print "Read  Send"
      		my_lcd.setxy 0,1		# line 1, col 0
      		my_lcd.print sensor_position # need method of blanking out previous reading

data/lib/examples/sparkfun_lcd.rb

@@ -21,7 +21,7 @@ class SparkfunLcd < ArduinoSketch
 # need a bit
 
   def say_hello
-    my_lcd.home			# line 0, col 0
+    my_lcd.setxy 0,0			# line 0, col 0
 		my_lcd.print "All your base   "
 		my_lcd.setxy 0,1		# line 1, col 0
 		my_lcd.print "are belong to us"
@@ -29,7 +29,7 @@ class SparkfunLcd < ArduinoSketch
   end 
   
   def	say_ruby
-		my_lcd.home			# line 0, col 0
+		my_lcd.setxy 0,0			# line 0, col 0
 		my_lcd.print " Ruby + Arduino "
 		my_lcd.setxy 0,1		# line 1, col 0
 		my_lcd.print " RAD 0.2.4+     "

data/lib/examples/spectra_soft_pot.rb

@@ -0,0 +1,34 @@
+class SpectraSoftPot < ArduinoSketch
+
+  # demonstrate capability to use soft pot as traditional pot
+  # the last pot reading remains "locked" to the last touch point
+  # similar same behavior as ipod
+  #
+  # this sketch assumes a pa_lcd operating at 19200 and one 
+  # spectra symbol softpot connected to analog pin 3
+  # 
+
+  output_pin 5, :as => :my_lcd, :device => :pa_lcd, :rate => 19200, :clear_screen => :true
+  input_pin 3, :as => :sensor_one, :device => :spectra
+
+
+   def setup
+     delay 1000
+     my_lcd.setxy 0,0, "spectra symbol"
+     my_lcd.setxy 0,1, "soft pot"
+     delay 5000
+     my_lcd.clearscr
+   end
+
+   def loop
+     my_lcd.setxy 0,1
+     # since lcd's have issues clearing tens and hundreds digits when reading ones, 
+     # we use pad_int_to_str, which is a hack to display these cleanly
+     # pad_int_to_str takes two arguments: an integer and the final string length
+     # 
+     my_lcd.print pad_int_to_str sensor_one.soft_lock, 3
+     delay 100
+   end
+    
+
+end

data/lib/libraries/SWSerLCDpa/SWSerLCDpa.cpp

@@ -62,11 +62,9 @@ void SWSerLCDpa::begin(long speed)
 
   digitalWrite(_transmitPin, HIGH);
   delayMicroseconds( _bitPeriod); // if we were low this establishes the end
-  delay(20);
-  clearscr();
+  delay(50);
   if (_geometry)
-  	setgeo(_geometry);
-  	
+	setgeo(_geometry);
 }
 
 void SWSerLCDpa::print(uint8_t b)
@@ -98,7 +96,7 @@ void SWSerLCDpa::print(const char *s)
 {
   while (*s) {
     print(*s++);
-    delay(1);
+    delay(2);
   }
 }
 
@@ -151,21 +149,69 @@ void SWSerLCDpa::println(void)
 void SWSerLCDpa::clearscr(void)
 {
   print("?f");
-  delay(100);
+  delay(30);
+}
+
+void SWSerLCDpa::clearscr(const char *s)
+{
+	clearscr();
+    print(s);
+}
+
+void SWSerLCDpa::clearscr(int n)
+{
+	clearscr();
+    print(n);
+}
+
+void SWSerLCDpa::clearline(int line)
+{
+  setxy(0,line);
+  print("?l");
+  delay(20);
 }
 
-void SWSerLCDpa::home(void)
+void SWSerLCDpa::clearline(int line, const char *s)
 {
-  print("?a");
+  clearline(line);
+  print(s);
+}
+
+void SWSerLCDpa::clearline(int line, int n)
+{
+  clearline(line);
+  print(n);
+}
+
+
+void SWSerLCDpa::setxy(int x, int y)
+{
+  print("?y");
+  print(y);	
+  print("?x");
+  if (x < 10)
+    print('0');
+  print(x);
   delay(10);
 }
 
+void SWSerLCDpa::setxy(int x, int y, const char *s)
+{
+	setxy(x,y);
+	print(s);
+}
+
+void SWSerLCDpa::setxy(int x, int y, int n)
+{
+	setxy(x,y);
+	print(n);
+}
 
 void SWSerLCDpa::setgeo(int geometry)
 {
-  print("?G");
-  print(geometry);
-  delay(200);
+	print("?G");
+	print(geometry);
+	delay(200);
 }
 
 void SWSerLCDpa::setintensity(int intensity)
@@ -188,17 +234,6 @@ void SWSerLCDpa::outofBignum(void)
 }
 
 
-void SWSerLCDpa::setxy(int x, int y)
-{
-  print("?y");
-  print(y);	
-  print("?x");
-  if (x < 10)
-    print('0');
-  print(x);
-  delay(10);
-}
-
 
 void SWSerLCDpa::println(char c)
 {
@@ -259,9 +294,9 @@ void SWSerLCDpa::printNumber(unsigned long n, uint8_t base)
     n /= base;
   }
 
-  for (; i > 0; i--)
+  for (; i > 0; i--) {
     print((char) (buf[i - 1] < 10 ? '0' + buf[i - 1] : 'A' + buf[i - 1] - 10));
-  
-  delay(8);
+	delay(2);
+  }
   
 }

data/lib/libraries/SWSerLCDpa/SWSerLCDpa.h

@@ -45,12 +45,18 @@ class SWSerLCDpa
     void print(long, int);
     void println(void);
 	void clearscr(void);
-	void home(void);
+	void clearline(int);
+	void setxy(int, int);
+	void clearscr(const char[]);
+	void clearline(int, const char[]);
+	void setxy(int, int, const char[]);
+	void clearscr(int);
+	void clearline(int, int);
+	void setxy(int, int, int);
 	void setgeo(int);
 	void setintensity(int);
 	void intoBignum(void);
 	void outofBignum(void);
-	void setxy(int, int);
     void println(char);
     void println(const char[]);
     void println(uint8_t);

data/lib/libraries/SWSerLCDsf/SWSerLCDsf.cpp

@@ -64,8 +64,7 @@ void SWSerLCDsf::begin(long speed)
 
   digitalWrite(_transmitPin, HIGH);
   delayMicroseconds( _bitPeriod); // if we were low this establishes the end
-  delay(20);
-  clearscr();
+  delay(50);
   if (_geometry)
   	setgeo(_geometry);
 }
@@ -142,7 +141,7 @@ void SWSerLCDsf::print(long n, int base)
     printNumber(n, base);
 }
 
-// -------- PHA unique codes -------------------------
+// -------- Spark Fun unique codes -------------------------
 
 void SWSerLCDsf::clearscr(void)
 {
@@ -151,13 +150,53 @@ void SWSerLCDsf::clearscr(void)
   delay(100);
 }
 
-void SWSerLCDsf::home(void)
+void SWSerLCDsf::clearscr(const char *s)
 {
+	clearscr();
+	print(s);
+}
+
+void SWSerLCDsf::clearscr(int n)
+{
+	clearscr();
+	print(n);
+}
+
+void SWSerLCDsf::setxy(byte x, byte y)
+{
+  byte posvar;
+  
+  switch (y) {
+    case 0:
+  		posvar = 128 + x;
+  		break;
+  	case 1:
+  		posvar = 192+ x;
+  		break;
+  	case 2:
+  		posvar = ((_cols == 16) ? 144 : 148) + x;
+  		break;
+  	case 3:
+  		posvar = ((_cols == 16) ? 208 : 212) + x;
+  		break;
+  }			
   print((uint8_t) 0xFE);
-  print((uint8_t) 0x80);
-  delay(10);
+  print((uint8_t) posvar);
+}
+
+void SWSerLCDsf::setxy(byte x, byte y, const char *s)
+{
+	setxy(x,y);
+	print(s);
 }
 
+void SWSerLCDsf::setxy(byte x, byte y, int n)
+{
+	setxy(x,y);
+	print(n);
+}
+
+
 void SWSerLCDsf::setcmd(byte code, byte cmd)
 {
   print((uint8_t) code);
@@ -205,27 +244,7 @@ void SWSerLCDsf::setintensity(int intensity)
   delay(100);
 }
 
-void SWSerLCDsf::setxy(byte x, byte y)
-{
-  byte posvar;
-  
-  switch (y) {
-    case 0:
-  		posvar = 128 + x;
-  		break;
-  	case 1:
-  		posvar = 192+ x;
-  		break;
-  	case 2:
-  		posvar = ((_cols == 16) ? 144 : 148) + x;
-  		break;
-  	case 3:
-  		posvar = ((_cols == 16) ? 208 : 212) + x;
-  		break;
-  }			
-  print((uint8_t) 0xFE);
-  print((uint8_t) posvar);	
-}
+