Mercurial > vba-clojure
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")