diff clojure/com/aurellem/exp/music.clj @ 442:58fe9c35d7c9

discovered meanig of first 8 bytes of music.
author Robert McIntyre <rlm@mit.edu>
date Thu, 26 Apr 2012 05:45:16 -0500
parents e682c9ed3056
children afdc51232e4f
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/exp/music.clj	Thu Apr 26 05:05:16 2012 -0500
     1.2 +++ b/clojure/com/aurellem/exp/music.clj	Thu Apr 26 05:45:16 2012 -0500
     1.3 @@ -96,20 +96,41 @@
     1.4  
     1.5  
     1.6  (def fight-gym-leader-song-simp
     1.7 -  [234 0 0 255 0 0 92 43 94 112 95 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
     1.8 -   0 0 0 0 0 0 0 0 234 234 234 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
     1.9 -   0 192 192 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 7 0 0 0 0 0 0 33 17 17 0 0 0
    1.10 -   0 0 68 82 0 0 0 0 0 0 89 90 57 0 0 0 0 0 8 8 0 0 0 0 0 0 0 0 0 0 0 0
    1.11 +  [   
    1.12 +
    1.13 +   (Integer/parseInt "00000001" 2) ;; channel-on/off
    1.14 +   ;; are active
    1.15 +
    1.16 +   0 ;; no-effect
    1.17 +
    1.18 +   ;; channel 0
    1.19 +   0   ;; note-counter low
    1.20 +   92  ;; note-counter high
    1.21 +
    1.22 +   ;; channel 1
    1.23 +   43  ;; note-counter low
    1.24 +   94  ;; note-counter high
    1.25 +
    1.26 +   ;; channel 2
    1.27 +   112 ;; note-counter low
    1.28 +   95  ;; note-counter high
    1.29 +
    1.30 +
    1.31 +   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
    1.32 +   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
    1.33 +   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
    1.34 +   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.35     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.36     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.37     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
    1.38 -   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
    1.39 -   0 0 0 0 0 0 0 0 0 0 0])
    1.40 +   3 0 179 195 32 0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255
    1.41 +
    1.42 +   ])
    1.43  
    1.44  (defn change-music
    1.45    ([#^SaveState state start length song]
    1.46  
    1.47 -     (set-memory-range state (+ 0xC001 start)
    1.48 +     (set-memory-range state (+ 0xC004 start)
    1.49                         (take length (drop start song))))
    1.50    ([start length song]
    1.51       (continue! (change-music (read-state "rlm-viridian-forest")