rad 0.2.2 → 0.2.9

data/lib/examples/midi_scales.rb

@@ -0,0 +1,94 @@
+class MidiScales < ArduinoSketch
+  
+# purpose
+# trigger midi output with buttons and
+# spectra soft pots
+#
+#
+
+
+  @current_note = int
+  @last_note_one = 0
+  @last_note_two = 0
+  @last_note_three = 0
+  @note = int
+
+  input_pin 1, :as => :sensor_one, :device => :spectra
+  input_pin 2, :as => :sensor_two, :device => :spectra
+  input_pin 3, :as => :sensor_three, :device => :spectra
+  input_pin 7, :as => :button_one, :device => :button
+  input_pin 8, :as => :button_two, :device => :button
+  input_pin 9, :as => :button_three, :device => :button
+  output_pin 13, :as => :led
+
+  serial_begin :rate => 31250
+
+  def setup
+    delay 3000
+  end
+
+  def loop
+    change_tone if button_one.read_input
+    change_pressure if button_two.read_input
+    change_channels if button_three.read_input
+    read_sensor_one
+    read_sensor_two
+    read_sensor_three
+  end
+     
+  def change_tone 
+    110.upto(127) do |note|
+      play 0, note, 127
+    end
+  end
+
+  def change_pressure
+    110.upto(127) do |pressure| 
+       play 0, 45, pressure
+    end
+  end
+     
+  def change_channels 
+    0.upto(6) do |channel| 
+      play channel, 50, 100
+    end
+  end
+
+  def read_sensor_one
+    @current_note = sensor_one.soft_lock
+    pre_play(@current_note, @last_note_one, 13)
+    @last_note_one = @current_note
+  end
+
+  def read_sensor_two
+    @current_note = sensor_two.soft_lock
+    pre_play(@current_note, @last_note_two, 14)
+    @last_note_two = @current_note
+  end
+
+  def read_sensor_three
+    @current_note = sensor_three.soft_lock
+    pre_play(@current_note, @last_note_three, 15)
+    @last_note_three = @current_note
+  end
+
+  def pre_play(current_note, last_note, channel) # warning, don't use last as a parameter...
+    n = 1 + channel
+    unless current_note == last_note
+      @note = ((current_note /16) + 40)
+      play_with_no_delay( channel, @note, 100 )
+    end
+  end
+    
+  def play(chan, note, pressure)
+    note_on(chan, note, pressure)
+    delay 100 # adjust to need
+    note_off(chan, note, 0)
+  end
+  
+  def play_with_no_delay(chan, note, pressure) # note is not turned off
+    note_on(chan, note, pressure)
+  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/servo_buttons.rb

@@ -0,0 +1,23 @@
+class ServoButtons < ArduinoSketch
+  
+  # original syntax
+  input_pin 6, :as => :button_one, :latch => :off
+  # preferred syntax
+  input_pin 7, :as => :button_two, :device => :button
+  input_pin 8, :as => :button_three, :device => :button
+  output_pin 13, :as => :led 
+  output_pin 2, :as => :my_servo, :device => :servo 
+  
+
+  def loop
+   check_buttons
+   servo_refresh 
+  end
+
+  def check_buttons
+  	read_and_toggle button_one, led
+  	my_servo.position 180 if read_input button_two
+  	my_servo.position 60 if read_input button_three
+  end
+  
+end

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

@@ -0,0 +1,40 @@
+class ServoThrottle < ArduinoSketch
+
+     # updated 20080731 
+     # replaced external variables with instance style variables
+     
+     # potentiometer to control servo
+     # with a bit of hysteresis
+     # use analog pin for sensor
+     # need to format the output of sensor_position and sensor_amount
+
+     @sensor_position = 0
+     @servo_amount = 0
+
+     output_pin 5, :as => :my_lcd, :device => :sf_lcd
+     input_pin 1, :as => :sensor
+     output_pin 2, :as => :my_servo, :device => :servo
+
+
+       def loop
+         servo_refresh
+         #delay 9 # comment out if using servo status, since it will add enough delay
+         @sensor_position = analogRead(sensor)
+         @servo_amount = (add_hysteresis(@sensor_position, 10)*0.36)
+         my_servo.position @servo_amount
+         servo_status
+         
+       end
+       
+       def servo_status
+         
+        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
+     		my_lcd.setxy 6,1 
+     		my_lcd.print @servo_amount
+       end
+
+  
+end

data/lib/examples/sparkfun_lcd.rb

@@ -0,0 +1,48 @@
+class SparkfunLcd < ArduinoSketch
+
+
+  input_pin 6, :as => :button_one, :latch => :off
+  input_pin 7, :as => :button_two, :latch => :off
+  input_pin 8, :as => :button_three, :latch => :off
+  output_pin 13, :as => :led
+  
+  swser_LCDsf 5, :as => :my_lcd
+  
+
+
+
+#serial_begin # not necessary when using :device => :sf_lcd or :pa_lcd
+
+  def loop
+   check_buttons
+  end
+  
+
+# need a bit
+
+  def say_hello
+    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"
+  
+  end 
+  
+  def	say_ruby
+		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+     "
+		# un comment to change display startup
+		#myLCD.setcmd 0x7C, 10
+	end
+
+  def check_buttons
+  	read_and_toggle button_one, led
+  	say_hello if read_input button_two
+  	say_ruby if read_input button_three
+  	
+  	
+  end
+  
+end

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/examples/times_method.rb

@@ -0,0 +1,8 @@
+class TimesMethod < ArduinoSketch
+
+  def loop
+    5.times { delay 200 }
+  end
+
+  
+end

data/lib/examples/toggle.rb

@@ -0,0 +1,10 @@
+class Toggle < ArduinoSketch
+
+    output_pin 13, :as => :led
+
+       def loop
+         led.toggle
+         delay 300
+       end
+
+  end

data/lib/examples/twitter.rb

@@ -0,0 +1,57 @@
+class Twitter < ArduinoSketch
+  
+  #include <avr/io.h>
+  #include <string.h>
+
+
+
+  define "TWEETLEN 141"
+  define "HOSTNAME www.twitter.com"
+  
+  define 'IPADDR "128.121.146.100"'  # twitter.com
+  define "PORT 80"                 # // HTTP
+  define "HTTPPATH /atduskgreg/"    # // the person we want to follow
+  
+
+  define "TWEETLEN 141"
+  array "char linebuffer[256]" # // our large buffer for data
+  array "char tweet[TWEETLEN]" # // the tweet
+  @lines = 0
+
+  
+  define "XPORT_RXPIN 2"
+  define "XPORT_TXPIN 3"
+  define "XPORT_RESETPIN 4"
+  define "XPORT_DTRPIN 5"
+  define "XPORT_CTSPIN 6"
+  define "XPORT_RTSPIN 7"
+  
+
+  @errno = 0
+  @laststatus = 0
+  @currstatus = 0
+
+
+  
+# in setup
+#xport = AF_XPort(XPORT_RX, XPORT_TX, XPORT_RESET, XPORT_DTR, XPORT_RTS, XPORT_CTS)
+  
+  
+  output_pin 10, :as => :shield, :device => :ethernet
+  
+  serial_begin :rate => 57600
+  
+  def loop
+    
+#  local_connect()
+    # kind of a problem... fixed
+    get_tweet
+    fetchtweet
+    delay 30000
+
+
+  end
+  
+
+  
+end