rad 0.2.2 → 0.2.9

data/lib/examples/hello_pa_lcd.rb

@@ -0,0 +1,59 @@
+class HelloPaLcd < ArduinoSketch
+
+
+# demonstrate 4 x 20 pa_lcd toggle between normal and Bignum mode
+# with @toggle external variable thrown in for fun
+
+# change your pins to suit your setup
+  
+  @toggle = false
+  
+  input_pin 6,  :as => :button_one, :device => :button
+  input_pin 7,  :as => :button_two, :device => :button
+  input_pin 8, :as => :button_three, :device => :button
+  
+  output_pin 5, :as => :my_lcd, :device => :pa_lcd, :rate => 19200, :clear_screen => :true
+
+  def setup
+    delay 3000
+    my_lcd.setxy 0,0
+    my_lcd.print "Press button"
+    my_lcd.setxy 0,1
+    my_lcd.print "One, two or three...."
+  end
+  
+  def loop  
+    say_hello     if button_one.read_input 
+    say_more      if button_two.read_input 
+    say_it_large  if button_three.read_input 
+  end
+  
+  def say_hello
+    @toggle = true
+    my_lcd.clearscr "Any sufficiently    advanced technology"
+    my_lcd.setxy 0,2
+    my_lcd.setxy 0,3, "toggle state: "
+    my_lcd.print @toggle
+  end
+  
+  def say_more # passing print strings to home and setxy (also works on clearscr)
+    @toggle = false
+    my_lcd.clearscr "is indistinguishablefrom magic"
+    my_lcd.setxy 0,3, "toggle state: "
+    my_lcd.print @toggle
+  end
+  
+  
+  def say_it_large
+
+    my_lcd.intoBignum
+    my_lcd.clearscr            # line 0, col 0
+    1.upto(32) do |i|
+      my_lcd.setxy 0,1
+      my_lcd.print i * i
+      delay 200
+    end
+    my_lcd.outofBignum
+  end
+ 
+end

data/lib/examples/hello_servos.rb

@@ -0,0 +1,88 @@
+class HelloServos < ArduinoSketch
+  
+  output_pin 2, :as => :servo_1, :max => 2400, :min => 800
+  output_pin 3, :as => :servo_2, :max => 2400, :min => 800
+  output_pin 4, :as => :servo_3, :max => 2400, :min => 800
+
+
+     # time to go old school
+     def loop
+       song_sheet_two
+     end
+     
+     def song_sheet_two
+       e
+       d
+       e
+       d 
+       c
+       d
+       d
+       c
+       b
+       c
+       b
+       a
+       e
+       a
+       e
+       a
+       e
+       a
+       b
+       c
+       b
+       c
+       d
+       d
+       c
+       d
+       e
+       d
+       e
+     end
+     
+     def a
+       pulse_servo servo_1, 1450
+       delay 100
+       home servo_1
+       delay 20
+     end
+
+     def b
+       pulse_servo servo_1, 1350
+       delay 100
+       home servo_1
+       delay 20
+     end
+
+     def c
+       pulse_servo servo_2, 1450
+       delay 100
+       home servo_2
+       delay 20
+     end
+
+     def d
+       pulse_servo servo_2, 1350
+       delay 100
+       home servo_2
+       delay 20
+     end
+
+     def e
+       pulse_servo servo_3, 1500
+       delay 100
+       home servo_3
+       delay 20
+     end
+
+
+     # center servos
+
+     def home(s)
+       pulse_servo s, 1400
+       f = s + 0
+     end
+
+end

data/lib/examples/hello_spectra_sound.rb

@@ -0,0 +1,38 @@
+class HelloSpectraSound < 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
+  # 
+  @reading  = int
+  output_pin 14, :as => :my_lcd, :device => :pa_lcd, :rate => 9600, :clear_screen => :true
+  output_pin 11, :as => :sound, :device => :freq_out, :frequency => 100, :enable => :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 sound"
+     delay 3000
+     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 analogRead(sensor_one), 5
+     @reading = sensor_one.soft_lock
+     sound.set_frequency @reading * 10
+     my_lcd.print pad_int_to_str @reading, 3
+     delay 30
+   end
+    
+
+end

data/lib/examples/hello_world.rb

@@ -0,0 +1,11 @@
+class HelloWorld < ArduinoSketch
+  
+  output_pin 13, :as => :led
+
+  def loop
+    blink led, 100
+  end
+
+end
+
+

data/lib/examples/hello_xbee.rb

@@ -0,0 +1,12 @@
+class HelloXbee < ArduinoSketch
+  
+  output_pin 13, :as => :led
+  
+  serial_begin
+  def loop
+    led.blink 200
+    serial_print "...testing..."
+    delay 1000
+  end
+  
+end

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/i2c_with_clock_chip.rb

@@ -0,0 +1,124 @@
+class I2cWithClockChip < ArduinoSketch
+  
+# ----------------------------------------------------------------------------------
+#   <b>Time and Temp  (20 July 2008)</b>
+#   Example #1 - Brian Riley, Underhill Center, VT USA <brianbr@wulden.org>
+#   
+#   Connections
+#     I2C bus - DS1307 Real Time Clock chip
+#     Analog 0 (a.k.a Digital 14) - Wulfden K107 seria LCD Controller
+#                                   Peter Anderson chip
+#     Digital 8 - Dallas SemiConductor DS18B20 One-Wire temperature Sensor (12 bit)
+#
+#   Comment
+#     - This is a straight forward, program with minimal error checking and brute force
+#     delay() calls waiting for temperature conversion readings
+#
+#     - for the external data busses make sure you have 4.7K pullup resistors on the 
+#     data line (OnewWire) and the SDA/SCL (I2C)
+
+# ----------------------------------------------------------------------------------
+ 
+    @hi_byte    = int
+    @lo_byte    = int
+    @t_reading  = int
+    @device_crc = int
+    @sign_bit   = int
+    @tc_100     = int
+                              # implicit in :device => Z:ds1307 is that this i i2c
+                              # :enable => true issues the Wire.begin to ick over i2c
+    output_pin 19, :as => :rtc, :device => :i2c_ds1307, :enable => :true
+                              # software serial tx drives LCD display, screen cleared at startup
+                              # defines the softare protocol for controller as Peter Anderson
+    output_pin 14, :as => :myLCD, :device => :pa_lcd, :rate => 19200, :clear_screen => :true
+                              # defines  this pin as being connected to a DalSemi 1-Wire device
+                              # no specific device drivers yet, the specific device code is on you
+    output_pin 8, :as => :myTemp, :device => :onewire
+
+
+    def loop
+  		  until myTemp.reset do   # reset bus, verify its clear and high
+  		    clear_bottom_line
+  		    myLCD.print " <1Wire Buss Error>"
+  		    delay 2000
+  		  end
+   		
+    		myTemp.skip                 # "listen up - everybody!"
+    		myTemp.write 0x44, 1        # temperature sensors, strta conversion
+
+    		myLCD.setxy 6,0             # while they do that, lets print date/time
+  	    myLCD.print rtc.get(5, 1)
+       	myLCD.print "/"
+  	    myLCD.print rtc.get(4, 0)
+       	myLCD.print "/"
+  	    myLCD.print rtc.get(6, 0)
+       	myLCD.setxy 6,1
+       	printlz rtc.get(2, 0)
+       	myLCD.print ":"
+  	    printlz rtc.get(1, 0)
+       	myLCD.print ":"
+  	    printlz rtc.get(0, 0)
+
+    		delay 800                   # conversion takes about 750 msecs
+
+    		until myTemp.reset do       # reset bus, verify its clear and high
+    		  clear_bottom_line
+    		  myLCD.print " <1Wire Buss Error>"
+    		  delay 2000
+    		end
+     		myTemp.skip                 # listen up!
+    		myTemp.write 0xBE, 1        # send me your data conversions
+
+        @lo_byte = myTemp.read      # get irst byte
+        @hi_byte = myTemp.read      # get second byte
+        
+        # -------------------------------------------------------------
+        clear_bottom_line       # this code is debug - not necessary
+        myLCD.setxy 4,3         # raw hex display of temp value
+        myLCD.print "raw = 0x"
+        print_hexbyte @hi_byte  # prints 2 digit hex w/lead 0
+        print_hexbyte @lo_byte
+        # -------------------------------------------------------------
+
+        7.times { @device_crc = myTemp.read } # get next 6 bytes, drop them on floor
+                                              # next byte the ninth byte is the CRC
+        
+                                # DS18B20 brings data temperature back as 12 bits
+                                # in degrees centigrade with 4 bits fractional, that is 
+                                # each bit s 1/16 of a degreeC
+                                
+        @t_reading  =   build_int @hi_byte, @lo_byte
+        @sign_bit   =   bit_and @t_reading, 0x8000
+        @t_reading  =   twos_comp @t_reading   if @sign_bit  # negative
+
+        @tc_100 = (6 * @t_reading) + (@t_reading / 4)   #multiply by (100 * 0.0625) or 6.25
+
+        myLCD.setxy 2,2
+        if @sign_bit
+            myLCD.print "-"
+        else
+            myLCD.print " "
+        end
+        myLCD.print(@tc_100 / 100)             # separate off the whole 
+        myLCD.print "."
+        printlz(@tc_100 % 100)                  # and fractional portions
+        myLCD.print " degrees C"
+
+    end
+
+    def	printlz(w)
+    			myLCD.print "0" if w < 10
+    			myLCD.print w
+    end
+
+    def	print_hexbyte(w)
+    			myLCD.print "0" if w < 0x10
+    			myLCD.print w, 0x10
+    end
+
+    def clear_bottom_line
+		      myLCD.setxy 0,3
+		      myLCD.print "?l"
+    end
+    
+end

data/lib/examples/midi_beat_box.rb

@@ -0,0 +1,86 @@
+class MidiBeatBox < ArduinoSketch
+  
+  # midi synthesiser output on channel 2
+  # with speed controlled by spectra soft pot
+
+    @channel = 2
+    input_pin 1, :as => :sensor_one, :device => :spectra
+    output_pin 13, :as => :led
+
+    serial_begin :rate => 31250
+
+    def setup
+      delay 3000
+    end
+
+    def loop
+      8.times {first}
+      2.times do 
+        second
+        third
+      end
+      4.times {first}
+      2.times {second}
+    end
+    
+    def first
+      play 39, 52, 37
+      play  0,  0,  0
+      play 36, 52,  0
+      play 37, 52, 39
+
+      play 37,  0,  0
+      play 36,  0,  0
+      play 39, 50,  0
+      play  0,  0,  0
+
+      play 52, 36, 37
+      play 0,  0,   0
+      play 39,  0,  0
+      play 36, 37,  0
+
+      play 36, 37, 39
+      play 36, 38,  0
+      play 50,  0,  0
+      play 0,   0,  0
+    end
+    
+    def second
+      play 39, 52, 37
+      play 36,  0,  0
+      play  0,  0,  0
+      play 37, 52, 39
+
+      play 38,  0,  0
+      play 36,  0,  0
+      play 39, 50,  0
+      play  0,  0,  0
+    end
+    
+    def third
+      play  0, 36, 37
+      play  0,  0,   0
+      play 39, 36,  0
+      play 36, 37, 50
+
+      play 36, 37, 39
+      play 36, 37,  0
+      play 50,  0,  0
+      play 39,  0,  0
+    end
+    
+
+    def play(one, two, three)
+      n = 1 + one + two + three # ack to coerce parameters to int
+      note_on(@channel, one, 127) unless one == 0
+      note_on(@channel, two, 127) unless two == 0
+      note_on(@channel, three, 127) unless three == 0
+      delay 310 - sensor_one.soft_lock # start slowly 
+      note_off(@channel, one, 0) unless one == 0
+      note_off(@channel, two, 0) unless two == 0
+      note_off(@channel, three, 0) unless three == 0
+    end
+    
+
+    
+end