madrona-rad 0.2.7 → 0.3.1

data/lib/examples/basic_blink.rb

@@ -0,0 +1,10 @@
+class BasicBlink < ArduinoSketch
+  # hello world (uncomment to run)
+  
+  output_pin 13, :as => :led
+  
+  def loop
+    blink led, 100 
+    x = 4
+  end
+end

data/lib/examples/blink_with_serial.rb

@@ -0,0 +1,16 @@
+class BlinkWithSerial < ArduinoSketch
+  
+  # hello world (uncomment to run)
+  @i  = "0, long"
+  
+  output_pin 13, :as => :led
+  
+  serial_begin
+  
+    def loop
+      @i += 1
+      serial_println @i
+      blink led, 100 
+    end
+
+end

data/lib/examples/external_variable_fu.rb

@@ -1,24 +1,26 @@
 class ExternalVariableFu < ArduinoSketch
   
-@one = int
-@two = long
-@three = unsigned
-@four = short
-@five = byte
-@six = 1
-@seven = 1.2
-@eight = "0x00"
-@nine = "arduino"
-@ten = true
-@eleven = false
-@twelve = "1, long"
-@thirteen = "1, unsigned"
-@fourteen = "1, byte"
+  @one = int
+  @two = long
+  @three = unsigned
+  @four = short
+  @five = byte
+  @six = 1
+  @seven = 1.2
+  @eight = "0x00"
+  @nine = "arduino"
+  @ten = true
+  @eleven = false
+  @twelve = "1, long"
+  @thirteen = "1, unsigned"
+  @fourteen = "1, byte"
+  @fifteen = HIGH
+  @sixteen = LOW
+  @seventeen = ON 
+  @eighteen = OFF
 
-
-
-     def loop
-      delay @six
-     end
+  def loop
+   delay @six
+  end
      
 end

data/lib/examples/external_variables.rb

@@ -14,10 +14,7 @@ class ExternalVariables < ArduinoSketch
   @boom = "1, int"
   @rad = "1.00"
   
-  
-  
   def loop
-
 	  delay 1
 	  @foo = 2
     @foo = KOOL

data/lib/examples/hello_array2.rb

@@ -24,7 +24,12 @@ class HelloArray2 < ArduinoSketch
  array "int pizzas[] = {1,2,3,4}"
  array "byte buffer[20] = {'A', 'B', 'Z', 'C', 'Y', 'D', 'W', 'E', '%', 'H', '*', '!', ')', '=', 'P', '-', '+', 'R', 'I', 'K'}"
  
- output_pin 14, :as => :my_lcd, :device => :pa_lcd, :rate => 19200, :clear_screen => :true
+ ## multidimensional arrays
+ array 'int @my_numbers[3][4] = {{1,2,3,4},{5,6,7,8},{9,10,11,12}}'
+ array 'char* @pizzas[2][4] = {{"margherita","funghi","napoletana","prosciutto cotto"},{"veggie","pepperoni","cheese","kitchen sink"}}'
+ 
+ 
+ output_pin 5, :as => :my_lcd, :device => :pa_lcd, :rate => 19200, :clear_screen => :true
  
  
  def setup
@@ -56,6 +61,8 @@ class HelloArray2 < ArduinoSketch
    
    delay 3000
    
+
+   
    my_lcd.clearline 1, @names[2]
    my_lcd.print " [ "
    my_lcd.print pizzas[1]
@@ -63,6 +70,32 @@ class HelloArray2 < ArduinoSketch
    
    delay 2000
    
+   my_lcd.clearscr "Multidimensional ?n"
+   
+   0.upto(2) do |f|
+     0.upto(3) do |s|
+       my_lcd.print @my_numbers[f][s]
+       my_lcd.print ", "
+       delay 500
+     end
+   end
+   
+   delay 1000
+   
+   my_lcd.clearscr
+
+    0.upto(1) do |f|
+      0.upto(3) do |s|
+        my_lcd.print @pizzas[f][s]
+        my_lcd.print ", "
+        delay 500
+      end
+    end
+
+
+
+    delay 2000
+   
    my_lcd.clearscr "Array Load?n"
    1.upto(20) do |x|
 #     buffer[x] = 64 + x  # we cannot set array elements yet except to initialize in declaration

data/lib/examples/hello_array_eeprom.rb

@@ -15,14 +15,12 @@ class HelloArrayEeprom < ArduinoSketch
  # is at odds with original style array naming  
 
  define "THROWAWAY 0"
- define "EEPROM_ADDR 0x50"
- 
 
  # when we just need to declare an array, or need more control, such as specific type requirements
- array "byte page_data[20] = {'A', 'B', 'Z', 'C', 'Y', 'D', 'W', 'E', '%', 'H', '*', '!', ')', '=', 'P', '-', '+', 'R', 'I', 'K'}"
+ array "byte page_data[20] = {'R', 'A', 'D', ' ', 'i', 's', ' ', 'B', 'A', 'D', '*', '!', ')', '=', 'P', '-', '+', 'R', 'I', 'K'}"
  array "byte in_buffer[20]"
  
- output_pin 19, :as => :mem0, :device => :i2c_eeprom, :enable => :true
+ output_pin 19, :as => :mem0, :device => :i2c_eeprom, :address => 1     # w/o :address defaults to  :address => 0  which is  0x50
  output_pin 14, :as => :my_lcd, :device => :pa_lcd, :rate => 19200
  
  
@@ -37,13 +35,13 @@ class HelloArrayEeprom < ArduinoSketch
    
    my_lcd.clearscr    "  I2C EEPROM Demo?n    block write"
 
-   i2c_eeprom_write_page 0x50, 0x0040, page_data, 20 
+   mem0.write_page 0x0100, page_data, 20 
 
    delay 1000
    
    my_lcd.clearline 1, "  block readback"
    
-   i2c_eeprom_read_buffer 0x50, 0x0040, in_buffer, 20 
+   mem0.read_buffer 0x0100, in_buffer, 20 
    
    my_lcd.setxy 0, 2
    

data/lib/examples/hello_clock.rb

@@ -0,0 +1,84 @@
+class HelloClock < 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
+#
+#   Comment
+#     - This is a straight forward program to read the Real Time Clock and Display
+#     delay() calls waiting for temperature conversion readings
+#
+#     - for the external data busses make sure you have 4.7K pullup resistors on the 
+#      the SDA/SCL (I2C)
+#
+# ----------------------------------------------------------------------------------
+ 
+    @flag    = int
+
+    array "byte clock[8]"
+    
+    @days   = ["Sun","Mon","Tue","Wed","Thu","Fri","Sat"]
+    @months = ["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"]
+
+                              # implicit in :device => :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
+    loop_timer :as => :mainloop
+    
+
+    def setup
+      myLCD.clearscr "   --<Date/Time>--"
+      myLCD.setxy 1,3, "looptime = "
+      rtc.get clock, 1
+      print_main
+      @flag = 1
+    end
+    
+    def loop
+        mainloop.track
+        myLCD.setxy 12,3,  mainloop.get_total
+        rtc.get clock, 1
+        if clock[0] == 0
+          if @flag == 0
+            print_main
+            @flag = 1
+          end
+        else
+          @flag = 0
+        end
+       	myLCD.setxy 6,2
+       	printlz clock[2]
+       	myLCD.print ":"
+  	    printlz clock[1]
+       	myLCD.print ":"
+  	    printlz clock[0]
+
+       delay 50
+        
+    end
+
+    def	printlz(w)
+    			myLCD.print "0" if w < 10
+    			myLCD.print w
+    end
+
+    def	print_main
+ 	    myLCD.setxy 1,1, @days[clock[3]-1]
+		  myLCD.print ", "
+      myLCD.print @months[clock[5]-1]
+   	  myLCD.print " "
+      printlz clock[4]
+   	  myLCD.print ", "
+      printlz clock[6] + 2000
+      
+    end
+    
+end

data/lib/examples/hello_eeprom.rb

@@ -12,7 +12,7 @@ class HelloEeprom < ArduinoSketch
 	    myLCD.print rtc.get(4, 0)	# no need to refresh (=0) get day 
      	myLCD.print "/"
 	    myLCD.print rtc.get(6, 0)	# get year
-     	myLCD.setxy(1,1)			# set in 1 byte line 1 (second line)
+     	myLCD.setxy(0,1)			# set in 1 byte line 1 (second line)
      	printlz 2					# print hours with lead zero
      	myLCD.print ":"
 	    printlz 1					# print minutes with lead zero
@@ -24,7 +24,7 @@ class HelloEeprom < ArduinoSketch
 		myLCD.print "write test"
 		myLCD.setxy 0,2
 		32.upto(109) do				# write address of byte to that b yte
-			|x| i2c_eeprom_write_byte  0x50, x, x
+			|x| mem0.write_byte  x, x
 			myLCD.print(".") if x%2
 			delay 10
 		end
@@ -37,7 +37,7 @@ class HelloEeprom < ArduinoSketch
 		myLCD.setxy 10,0, "read test "
 		myLCD.setxy 0,2
 									# read and print 39 addresses with printable numbers
-		75.upto(113) { |x| myLCD.print(i2c_eeprom_read_byte(0x50, x)) }
+		75.upto(113) { |x| myLCD.print(mem0.read_byte(x)) }
 		delay 10000
 		myLCD.clearscr
   end

data/lib/examples/hello_eeprom_lcdpa.rb

@@ -47,7 +47,7 @@ class HelloEepromLcdpa < ArduinoSketch
       
       myLCD.setxy 0, 2
       32.upto(109) do				# write address of byte to that b yte
-			  |x| i2c_eeprom_write_byte  0x50, x, x
+			  |x| mem0.write_byte  x, x+7
         myLCD.print(".") if x%2
         delay 10      # EEPROM write _requires_ 3-10 ms pause
       end
@@ -57,7 +57,7 @@ class HelloEepromLcdpa < ArduinoSketch
 
       myLCD.setxy 0, 2
 									# read and print 39 addresses with printable numbers
-      75.upto(113) { |x| myLCD.print(i2c_eeprom_read_byte(0x50, x)) }
+      70.upto(105) { |x| myLCD.print(mem0.read_byte(x)) }
 
       delay 2000
       clear_off_test

data/lib/examples/hello_format_print.rb

@@ -0,0 +1,94 @@
+class HelloFormatPrint < ArduinoSketch
+
+  # ----------------------------------------------------------------------
+  #    Demonstrattion of Crude Adaptaion of C Function sprintf()
+  #    to do formatted printing. For now there are some absolutes:
+  #    The write_line method atkes as arguemnst the formatting string
+  #    and the appropriate arguments. It format them to an internal
+  #    buffer sepcified and created when you invoke formatted printing
+  #       formatted_print :as => :line_buf, :buffer_size => 80
+  #    now, to actual do it you use write_line
+  #       write_line "Pies $%02d.%02d", pie_cents/100, pie_cents%100
+  #    then print the string pointed at by string_line
+  #       my_lcd.setxy 3, 2, line_buf 
+  #
+  #      Brian Riley - Underhill Center, VT, USA  Aug 2008
+  #                     <brianbr@wulfden.org>
+  #
+  # ----------------------------------------------------------------------
+
+# 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 = "0, int"
+  @pie_cents = "403, int"
+  @pie_price = "7.08"
+
+  
+  input_pin 8,  :as => :button_one, :device => :button
+  input_pin 9,  :as => :button_two, :device => :button
+  input_pin 10, :as => :button_three, :device => :button
+  
+  formatted_print :as => :string_line, :buffer_size => 65   # generally this statement should precede any serial_begin or
+                                                            # LCD display directive
+
+  output_pin 14, :as => :my_lcd, :device => :pa_lcd, :rate => 19200, :clear_screen => :true
+
+  
+  def setup
+    my_lcd.clearscr " --<Press Button>--?nOne, Two, or Three"
+  end
+  
+  def loop 
+    if millis % 500 == 0
+      write_line "millis()= %ld", millis
+      my_lcd.setxy 1, 2, string_line
+    end 
+    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 "This sketch has?nbeen running for?n "
+    write_line "%ld mins and %d secs?n", millis/60000, (millis/1000)%60
+    my_lcd.print string_line
+    delay 3000
+    my_lcd.clearscr " --<Press Button>--?nOne, Two, or Three"
+  end
+  
+  def say_more # passing print strings to home and setxy (also works on clearscr)
+    @toggle = false
+    my_lcd.clearscr "Food Store Prices"
+    write_line "Pies $%2d.%02d", @pie_cents/100, @pie_cents%100
+#    write_line "Pies $%6.2f", @pie_price # float doessn't seem to work .....
+    my_lcd.setxy 2, 1, string_line
+#    write_line "toggle state is [%s]", @toggle ? "ON" : "OFF"  # RubyToC screws this construct up and RAD mistajekl put 1 ad 0
+                                                                # in place of "ON" and "OFF"
+    write_line "toggle state is [%d]", @toggle
+    my_lcd.setxy 2, 3, string_line
+    delay 3000
+    my_lcd.clearscr " --<Press Button>--?nOne, Two, or Three"
+  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
+    delay 3000
+    my_lcd.clearscr " --<Press Button>--?nOne, Two, or Three"      
+  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

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