Mercurial > vba-clojure
comparison 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 |
comparison
equal
deleted
inserted
replaced
441:e682c9ed3056 | 442:58fe9c35d7c9 |
---|---|
94 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 | 94 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 |
95 0 0 0 0 0 0 0 0 0 0 0]) | 95 0 0 0 0 0 0 0 0 0 0 0]) |
96 | 96 |
97 | 97 |
98 (def fight-gym-leader-song-simp | 98 (def fight-gym-leader-song-simp |
99 [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 | 99 [ |
100 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 | 100 |
101 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 | 101 (Integer/parseInt "00000001" 2) ;; channel-on/off |
102 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 | 102 ;; are active |
103 | |
104 0 ;; no-effect | |
105 | |
106 ;; channel 0 | |
107 0 ;; note-counter low | |
108 92 ;; note-counter high | |
109 | |
110 ;; channel 1 | |
111 43 ;; note-counter low | |
112 94 ;; note-counter high | |
113 | |
114 ;; channel 2 | |
115 112 ;; note-counter low | |
116 95 ;; note-counter high | |
117 | |
118 | |
119 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 | |
120 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 | |
121 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 | |
122 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 | |
103 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 | 123 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 |
104 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 | 124 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 |
105 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 | 125 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 |
106 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 | 126 3 0 179 195 32 0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255 |
107 0 0 0 0 0 0 0 0 0 0 0]) | 127 |
128 ]) | |
108 | 129 |
109 (defn change-music | 130 (defn change-music |
110 ([#^SaveState state start length song] | 131 ([#^SaveState state start length song] |
111 | 132 |
112 (set-memory-range state (+ 0xC001 start) | 133 (set-memory-range state (+ 0xC004 start) |
113 (take length (drop start song)))) | 134 (take length (drop start song)))) |
114 ([start length song] | 135 ([start length song] |
115 (continue! (change-music (read-state "rlm-viridian-forest") | 136 (continue! (change-music (read-state "rlm-viridian-forest") |
116 start length song)))) | 137 start length song)))) |
117 | 138 |