# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1335446043 18000
# Node ID 3ee628fea5c21523f143148a2f8c98e4337625ea
# Parent  afdc51232e4fa3a0d8d3e77ab89ecabc2248154b
mapped most of music-playing RAM

diff -r afdc51232e4f -r 3ee628fea5c2 clojure/com/aurellem/exp/music.clj
--- a/clojure/com/aurellem/exp/music.clj	Thu Apr 26 06:52:35 2012 -0500
+++ b/clojure/com/aurellem/exp/music.clj	Thu Apr 26 08:14:03 2012 -0500
@@ -98,7 +98,7 @@
 (def fight-gym-leader-song-simp
   [   
 
-   (Integer/parseInt "00000111" 2) ;; channel-on/off
+   (Integer/parseInt "00000100" 2) ;; channel-on/off
 
    0 ;; no-effect
 
@@ -152,16 +152,26 @@
    
    0 0 0 0 0 0 0 0 0 0 0 0 0
 
-   0 ;; 0xC0D6 (transient pitch channel 0)
+   7 ;; 0xC0D6 (transient pitch channel 0)
 
-   0 0 0 0 0 0 0
+   5 4 0 4 4 3 0
 
-   179
-   195
+   ;; volume
+   ;; channel 0 volume (first 4 bits)
+   (Integer/parseInt "11110000" 2) ;; 0xC0DE
+   ;; channel 1 volume (first 4 bits)
+   (Integer/parseInt "11000000" 2) ;; 0xC0DF
+   ;; channel 2 volume (unknown syntax)
+   (Integer/parseInt "00100000" 2) ;; 0xC0E0
    
-   32
-   0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255
+   0 0 0 0 0 0 0 0
 
+   104 ;; MASTER TEMPO  0xC0E9 
+
+   0 0 0 0 0
+
+
+   8 ;; checksum? address? 
    ])
 
 (defn change-music