Mercurial > vba-clojure

changeset 445:ea5ed834be11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
saving progress.
author Robert McIntyre <rlm@mit.edu>
date Fri, 27 Apr 2012 12:16:11 -0500
parents 3ee628fea5c2
children 2e147bf3616b c02108ddcb35
files clojure/com/aurellem/exp/music.clj clojure/com/aurellem/music/midi_util.clj
diffstat 2 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/exp/music.clj	Thu Apr 26 08:14:03 2012 -0500
     1.2 +++ b/clojure/com/aurellem/exp/music.clj	Fri Apr 27 12:16:11 2012 -0500
     1.3 @@ -98,7 +98,7 @@
     1.4  (def fight-gym-leader-song-simp
     1.5    [   
     1.6  
     1.7 -   (Integer/parseInt "00000100" 2) ;; channel-on/off
     1.8 +   (Integer/parseInt "00000001" 2) ;; channel-on/off
     1.9  
    1.10     0 ;; no-effect
    1.11  
    1.12 @@ -125,7 +125,7 @@
    1.13  
    1.14     ;; square wave duty  (only first two bits matter.)
    1.15     ;; channel 0
    1.16 -   (Integer/parseInt "11000000" 2)    ;; 0xC03E
    1.17 +   (Integer/parseInt "10000000" 2)    ;; 0xC03E
    1.18     ;; channel 1
    1.19     (Integer/parseInt "11000000" 2)    ;; 0xC03F
    1.20  

     2.1 --- a/clojure/com/aurellem/music/midi_util.clj	Thu Apr 26 08:14:03 2012 -0500
     2.2 +++ b/clojure/com/aurellem/music/midi_util.clj	Fri Apr 27 12:16:11 2012 -0500
     2.3 @@ -400,3 +400,4 @@
     2.4  ;; 7C2E2-7C2EA Meet Bad Trainer 
     2.5  ;; 7C2EB-7C2F3 Meet Girl Trainer 
     2.6  ;; 7C2F4-7C2FC Meet Angry Trainer 
     2.7 +