# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1335337124 18000
# Node ID 988f0fda6c9318d5443378ac523eb30ec1616497
# Parent  985c90ffa1fe9d878a990e40bcd218318070a866
paramaterized music-step

diff -r 985c90ffa1fe -r 988f0fda6c93 clojure/com/aurellem/run/music.clj
--- a/clojure/com/aurellem/run/music.clj	Wed Apr 25 01:56:39 2012 -0500
+++ b/clojure/com/aurellem/run/music.clj	Wed Apr 25 01:58:44 2012 -0500
@@ -226,7 +226,7 @@
 ;;    0x2A   ;; load duration
 ;;    ]) 
 
-(defn music-step []
+(defn music-step [sound-base-address]
   ;; C == current-ticks
   ;; A == desired-ticks
 
@@ -249,13 +249,15 @@
     ;;   go to next note ; set current set ticks to 0.
 
     0x20
-    (+ (count (do-message)) 2)
+    (+ (count (do-message 0)) 2)
 
-    (do-message)
+    (do-message sound-base-address)
     
     0x0E
     0x00])) ;; 0->C (current-ticks)
 
+(def music-2 0x16)
+
 (defn music-kernel []
   (flatten
    [;; global initilization section
@@ -284,9 +286,9 @@
 
     
 
-    (music-step)
+    (music-step music-2)
     0x18
-    (->signed-8-bit (+ (- (count (music-step)))
+    (->signed-8-bit (+ (- (count (music-step 0)))
                        -2))]))
 
 (defn frequency-code->frequency