Mercurial > vba-clojure
comparison clojure/com/aurellem/exp/music.clj @ 444:3ee628fea5c2
mapped most of music-playing RAM
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Thu, 26 Apr 2012 08:14:03 -0500 |
parents | afdc51232e4f |
children | ea5ed834be11 |
comparison
equal
deleted
inserted
replaced
443:afdc51232e4f | 444:3ee628fea5c2 |
---|---|
96 | 96 |
97 | 97 |
98 (def fight-gym-leader-song-simp | 98 (def fight-gym-leader-song-simp |
99 [ | 99 [ |
100 | 100 |
101 (Integer/parseInt "00000111" 2) ;; channel-on/off | 101 (Integer/parseInt "00000100" 2) ;; channel-on/off |
102 | 102 |
103 0 ;; no-effect | 103 0 ;; no-effect |
104 | 104 |
105 ;; channel 0 | 105 ;; channel 0 |
106 0 ;; note-counter low 0xC006 | 106 0 ;; note-counter low 0xC006 |
150 ;; channel 2 tempo | 150 ;; channel 2 tempo |
151 12 ;; 0xC0C8 | 151 12 ;; 0xC0C8 |
152 | 152 |
153 0 0 0 0 0 0 0 0 0 0 0 0 0 | 153 0 0 0 0 0 0 0 0 0 0 0 0 0 |
154 | 154 |
155 0 ;; 0xC0D6 (transient pitch channel 0) | 155 7 ;; 0xC0D6 (transient pitch channel 0) |
156 | 156 |
157 0 0 0 0 0 0 0 | 157 5 4 0 4 4 3 0 |
158 | 158 |
159 179 | 159 ;; volume |
160 195 | 160 ;; channel 0 volume (first 4 bits) |
161 (Integer/parseInt "11110000" 2) ;; 0xC0DE | |
162 ;; channel 1 volume (first 4 bits) | |
163 (Integer/parseInt "11000000" 2) ;; 0xC0DF | |
164 ;; channel 2 volume (unknown syntax) | |
165 (Integer/parseInt "00100000" 2) ;; 0xC0E0 | |
161 | 166 |
162 32 | 167 0 0 0 0 0 0 0 0 |
163 0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255 | 168 |
164 | 169 104 ;; MASTER TEMPO 0xC0E9 |
170 | |
171 0 0 0 0 0 | |
172 | |
173 | |
174 8 ;; checksum? address? | |
165 ]) | 175 ]) |
166 | 176 |
167 (defn change-music | 177 (defn change-music |
168 ([#^SaveState state start length song] | 178 ([#^SaveState state start length song] |
169 | 179 |