Mercurial > vba-clojure

comparison clojure/com/aurellem/exp/music.clj @ 444:3ee628fea5c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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