# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1335546971 18000
# Node ID ea5ed834be11d5e2d271381b92b1be04246f825b
# Parent  3ee628fea5c21523f143148a2f8c98e4337625ea
saving progress.

diff -r 3ee628fea5c2 -r ea5ed834be11 clojure/com/aurellem/exp/music.clj
--- a/clojure/com/aurellem/exp/music.clj	Thu Apr 26 08:14:03 2012 -0500
+++ b/clojure/com/aurellem/exp/music.clj	Fri Apr 27 12:16:11 2012 -0500
@@ -98,7 +98,7 @@
 (def fight-gym-leader-song-simp
   [   
 
-   (Integer/parseInt "00000100" 2) ;; channel-on/off
+   (Integer/parseInt "00000001" 2) ;; channel-on/off
 
    0 ;; no-effect
 
@@ -125,7 +125,7 @@
 
    ;; square wave duty  (only first two bits matter.)
    ;; channel 0
-   (Integer/parseInt "11000000" 2)    ;; 0xC03E
+   (Integer/parseInt "10000000" 2)    ;; 0xC03E
    ;; channel 1
    (Integer/parseInt "11000000" 2)    ;; 0xC03F
 
diff -r 3ee628fea5c2 -r ea5ed834be11 clojure/com/aurellem/music/midi_util.clj
--- a/clojure/com/aurellem/music/midi_util.clj	Thu Apr 26 08:14:03 2012 -0500
+++ b/clojure/com/aurellem/music/midi_util.clj	Fri Apr 27 12:16:11 2012 -0500
@@ -400,3 +400,4 @@
 ;; 7C2E2-7C2EA Meet Bad Trainer 
 ;; 7C2EB-7C2F3 Meet Girl Trainer 
 ;; 7C2F4-7C2FC Meet Angry Trainer 
+