# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1335441155 18000
# Node ID afdc51232e4fa3a0d8d3e77ab89ecabc2248154b
# Parent  58fe9c35d7c91e45c94be0913fb6b44284ea35ed
mapped more of RAM music-playing data structure.

diff -r 58fe9c35d7c9 -r afdc51232e4f clojure/com/aurellem/exp/music.clj
--- a/clojure/com/aurellem/exp/music.clj	Thu Apr 26 05:45:16 2012 -0500
+++ b/clojure/com/aurellem/exp/music.clj	Thu Apr 26 06:52:35 2012 -0500
@@ -98,32 +98,69 @@
 (def fight-gym-leader-song-simp
   [   
 
-   (Integer/parseInt "00000001" 2) ;; channel-on/off
-   ;; are active
+   (Integer/parseInt "00000111" 2) ;; channel-on/off
 
    0 ;; no-effect
 
    ;; channel 0
-   0   ;; note-counter low
-   92  ;; note-counter high
+   0   ;; note-counter low    0xC006
+   92  ;; note-counter high   0xC007
 
    ;; channel 1
-   43  ;; note-counter low
-   94  ;; note-counter high
+   43  ;; note-counter low    0xC008
+   94  ;; note-counter high   0xC009
 
    ;; channel 2
-   112 ;; note-counter low
-   95  ;; note-counter high
+   112 ;; note-counter low    0xC00A
+   95  ;; note-counter high   0xC00B
 
+   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
 
-   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
-   0 0 0 0 0 0 0 0 234 234 234 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
-   0 192 192 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0  0 0 0 0
-   0 0 0  0  0 0 0 0 0 0 0  0  0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+   1 ;;  if zero, mute channel                   0xC026
+   1 ;;
+   1 ;;
+
+
+   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+
+   ;; square wave duty  (only first two bits matter.)
+   ;; channel 0
+   (Integer/parseInt "11000000" 2)    ;; 0xC03E
+   ;; channel 1
+   (Integer/parseInt "11000000" 2)    ;; 0xC03F
+
    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
-   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 4 4 1 1 1 1 1 1 1
-   1 1 1 1 1 1 12 12 12 1 1 1 1 1 192 192 192 0 88 152 0 0 7 5 4 0 4 4
-   3 0 179 195 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 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+
+
+   4 4 4;; these change very quickly! 0xC0B6
+
+   0 0 0 0 0 0 0 0 0 0 0 0 0
+
+   ;; Tempo
+
+   ;; channel 0 tempo (higher is slower)
+   12 ;; 0xC0C6
+
+   ;; channel 1 tempo 
+   12 ;; 0xC0C7
+
+   ;; channel 2 tempo
+   12 ;; 0xC0C8
+   
+   0 0 0 0 0 0 0 0 0 0 0 0 0
+
+   0 ;; 0xC0D6 (transient pitch channel 0)
+
+   0 0 0 0 0 0 0
+
+   179
+   195
+   
+   32
+   0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255
 
    ])