Mercurial > vba-clojure

comparison clojure/com/aurellem/exp/music.clj @ 443:afdc51232e4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mapped more of RAM music-playing data structure.
author Robert McIntyre <rlm@mit.edu>
date Thu, 26 Apr 2012 06:52:35 -0500
parents 58fe9c35d7c9
children 3ee628fea5c2
comparison
equal deleted inserted replaced
442:58fe9c35d7c9 443:afdc51232e4f
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 "00000001" 2) ;; channel-on/off 101 (Integer/parseInt "00000111" 2) ;; channel-on/off
102 ;; are active
103 102
104 0 ;; no-effect 103 0 ;; no-effect
105 104
106 ;; channel 0 105 ;; channel 0
107 0 ;; note-counter low 106 0 ;; note-counter low 0xC006
108 92 ;; note-counter high 107 92 ;; note-counter high 0xC007
109 108
110 ;; channel 1 109 ;; channel 1
111 43 ;; note-counter low 110 43 ;; note-counter low 0xC008
112 94 ;; note-counter high 111 94 ;; note-counter high 0xC009
113 112
114 ;; channel 2 113 ;; channel 2
115 112 ;; note-counter low 114 112 ;; note-counter low 0xC00A
116 95 ;; note-counter high 115 95 ;; note-counter high 0xC00B
116
117 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
118
119 1 ;; if zero, mute channel 0xC026
120 1 ;;
121 1 ;;
117 122
118 123
119 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 124 0 0 0 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 125
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 126 ;; square wave duty (only first two bits matter.)
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 127 ;; channel 0
128 (Integer/parseInt "11000000" 2) ;; 0xC03E
129 ;; channel 1
130 (Integer/parseInt "11000000" 2) ;; 0xC03F
131
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 132 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
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 133 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
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 134 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
126 3 0 179 195 32 0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255 135 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
136
137
138 4 4 4;; these change very quickly! 0xC0B6
139
140 0 0 0 0 0 0 0 0 0 0 0 0 0
141
142 ;; Tempo
143
144 ;; channel 0 tempo (higher is slower)
145 12 ;; 0xC0C6
146
147 ;; channel 1 tempo
148 12 ;; 0xC0C7
149
150 ;; channel 2 tempo
151 12 ;; 0xC0C8
152
153 0 0 0 0 0 0 0 0 0 0 0 0 0
154
155 0 ;; 0xC0D6 (transient pitch channel 0)
156
157 0 0 0 0 0 0 0
158
159 179
160 195
161
162 32
163 0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255
127 164
128 ]) 165 ])
129 166
130 (defn change-music 167 (defn change-music
131 ([#^SaveState state start length song] 168 ([#^SaveState state start length song]