5 #'((acousticbassdrum
. acousticbassdrum
)
7 (hisidestick
. hisidestick
)
8 (sidestick
. sidestick
)
9 (losidestick
. losidestick
)
10 (acousticsnare
. acousticsnare
)
13 (electricsnare
. electricsnare
)
14 (lowfloortom
. lowfloortom
)
15 (closedhihat
. closedhihat
)
17 (highfloortom
. highfloortom
)
18 (pedalhihat
. pedalhihat
)
20 (openhihat
. openhihat
)
21 (halfopenhihat
. halfopenhihat
)
22 (lowmidtom
. lowmidtom
)
24 (crashcymbala
. crashcymbala
)
25 (crashcymbal
. crashcymbal
)
27 (ridecymbala
. ridecymbala
)
28 (ridecymbal
. ridecymbal
)
29 (chinesecymbal
. chinesecymbal
)
31 (tambourine
. tambourine
)
32 (splashcymbal
. splashcymbal
)
34 (crashcymbalb
. crashcymbalb
)
35 (vibraslap
. vibraslap
)
36 (ridecymbalb
. ridecymbalb
)
37 (mutehibongo
. mutehibongo
)
39 (openhibongo
. openhibongo
)
40 (mutelobongo
. mutelobongo
)
42 (openlobongo
. openlobongo
)
43 (mutehiconga
. mutehiconga
)
44 (muteloconga
. muteloconga
)
45 (openhiconga
. openhiconga
)
47 (openloconga
. openloconga
)
49 (hitimbale
. hitimbale
)
50 (lotimbale
. lotimbale
)
55 (shortwhistle
. shortwhistle
)
56 (longwhistle
. longwhistle
)
57 (shortguiro
. shortguiro
)
58 (longguiro
. longguiro
)
61 (hiwoodblock
. hiwoodblock
)
62 (lowoodblock
. lowoodblock
)
63 (mutecuica
. mutecuica
)
64 (opencuica
. opencuica
)
65 (mutetriangle
. mutetriangle
)
67 (opentriangle
. opentriangle
)
75 (threedown
. threedown
)
78 (bda
. acousticbassdrum
)
90 (tomfh
. highfloortom
)
94 (hhho
. halfopenhihat
)
97 (cymca
. crashcymbala
)
100 (cymra
. ridecymbala
)
102 (cymch
. chinesecymbal
)
105 (cyms
. splashcymbal
)
107 (cymcb
. crashcymbalb
)
109 (cymrb
. ridecymbalb
)
138 (trim
. mutetriangle
)
140 (trio
. opentriangle
)
154 midiDrumPitches
= #`
(
155 (acousticbassdrum
. ,(ly
:make-pitch -
3 6 NATURAL
))
156 (bassdrum
. ,(ly
:make-pitch -
2 0 NATURAL
))
157 (hisidestick
. ,(ly
:make-pitch -
3 6 DOUBLE-SHARP
))
158 (sidestick
. ,(ly
:make-pitch -
2 0 SHARP
))
159 (losidestick
. ,(ly
:make-pitch -
2 1 FLAT
))
160 (acousticsnare
. ,(ly
:make-pitch -
2 1 NATURAL
))
161 (snare
. ,(ly
:make-pitch -
2 2 DOUBLE-FLAT
))
162 (handclap
. ,(ly
:make-pitch -
2 1 SHARP
))
163 (electricsnare
. ,(ly
:make-pitch -
2 2 NATURAL
))
164 (lowfloortom
. ,(ly
:make-pitch -
2 3 NATURAL
))
165 (closedhihat
. ,(ly
:make-pitch -
2 3 SHARP
))
166 (hihat
. ,(ly
:make-pitch -
2 4 FLAT
))
167 (highfloortom
. ,(ly
:make-pitch -
2 4 NATURAL
))
168 (pedalhihat
. ,(ly
:make-pitch -
2 4 SHARP
))
169 (lowtom
. ,(ly
:make-pitch -
2 5 NATURAL
))
170 (openhihat
. ,(ly
:make-pitch -
2 5 SHARP
))
171 (halfopenhihat
. ,(ly
:make-pitch -
2 5 SHARP
))
172 (lowmidtom
. ,(ly
:make-pitch -
2 6 NATURAL
))
173 (himidtom
. ,(ly
:make-pitch -
1 0 NATURAL
))
174 (crashcymbala
. ,(ly
:make-pitch -
1 0 SHARP
))
175 (crashcymbal
. ,(ly
:make-pitch -
1 1 FLAT
))
176 (hightom
. ,(ly
:make-pitch -
1 1 NATURAL
))
177 (ridecymbala
. ,(ly
:make-pitch -
1 1 SHARP
))
178 (ridecymbal
. ,(ly
:make-pitch -
1 2 FLAT
))
179 (chinesecymbal
. ,(ly
:make-pitch -
1 2 NATURAL
))
180 (ridebell
. ,(ly
:make-pitch -
1 3 NATURAL
))
181 (tambourine
. ,(ly
:make-pitch -
1 3 SHARP
))
182 (splashcymbal
. ,(ly
:make-pitch -
1 4 NATURAL
))
183 (cowbell
. ,(ly
:make-pitch -
1 4 SHARP
))
184 (crashcymbalb
. ,(ly
:make-pitch -
1 5 NATURAL
))
185 (vibraslap
. ,(ly
:make-pitch -
1 5 SHARP
))
186 (ridecymbalb
. ,(ly
:make-pitch -
1 6 NATURAL
))
187 (mutehibongo
. ,(ly
:make-pitch -
1 6 SHARP
))
188 (hibongo
. ,(ly
:make-pitch
0 0 NATURAL
))
189 (openhibongo
. ,(ly
:make-pitch
0 1 DOUBLE-FLAT
))
190 (mutelobongo
. ,(ly
:make-pitch -
1 6 DOUBLE-SHARP
))
191 (lobongo
. ,(ly
:make-pitch
0 0 SHARP
))
192 (openlobongo
. ,(ly
:make-pitch
0 1 FLAT
))
193 (mutehiconga
. ,(ly
:make-pitch
0 1 NATURAL
))
194 (muteloconga
. ,(ly
:make-pitch
0 2 DOUBLE-FLAT
))
195 (openhiconga
. ,(ly
:make-pitch
0 1 SHARP
))
196 (hiconga
. ,(ly
:make-pitch
0 2 FLAT
))
197 (openloconga
. ,(ly
:make-pitch
0 1 DOUBLE-SHARP
))
198 (loconga
. ,(ly
:make-pitch
0 2 NATURAL
))
199 (hitimbale
. ,(ly
:make-pitch
0 3 NATURAL
))
200 (lotimbale
. ,(ly
:make-pitch
0 3 SHARP
))
201 (hiagogo
. ,(ly
:make-pitch
0 4 NATURAL
))
202 (loagogo
. ,(ly
:make-pitch
0 4 SHARP
))
203 (cabasa
. ,(ly
:make-pitch
0 5 NATURAL
))
204 (maracas
. ,(ly
:make-pitch
0 5 SHARP
))
205 (shortwhistle
. ,(ly
:make-pitch
0 6 NATURAL
))
206 (longwhistle
. ,(ly
:make-pitch
1 0 NATURAL
))
207 (shortguiro
. ,(ly
:make-pitch
1 0 SHARP
))
208 (longguiro
. ,(ly
:make-pitch
1 1 NATURAL
))
209 (guiro
. ,(ly
:make-pitch
1 0 DOUBLE-SHARP
))
210 (claves
. ,(ly
:make-pitch
1 1 SHARP
))
211 (hiwoodblock
. ,(ly
:make-pitch
1 2 NATURAL
))
212 (lowoodblock
. ,(ly
:make-pitch
1 3 NATURAL
))
213 (mutecuica
. ,(ly
:make-pitch
1 3 SHARP
))
214 (opencuica
. ,(ly
:make-pitch
1 4 NATURAL
))
215 (mutetriangle
. ,(ly
:make-pitch
1 4 SHARP
))
216 (triangle
. ,(ly
:make-pitch
1 4 DOUBLE-SHARP
))
217 (opentriangle
. ,(ly
:make-pitch
1 5 NATURAL
))
219 ;;
"transposing" pitches
:
220 (oneup
. ,(ly
:make-pitch
0 1 NATURAL
))
221 (twoup
. ,(ly
:make-pitch
0 2 NATURAL
))
222 (threeup
. ,(ly
:make-pitch
0 3 NATURAL
))
223 (fourup
. ,(ly
:make-pitch
0 4 NATURAL
))
224 (fiveup
. ,(ly
:make-pitch
0 5 NATURAL
))
225 (onedown
. ,(ly
:make-pitch -
1 6 NATURAL
))
226 (twodown
. ,(ly
:make-pitch -
1 5 NATURAL
))
227 (threedown
. ,(ly
:make-pitch -
1 4 NATURAL
))
228 (fourdown
. ,(ly
:make-pitch -
1 3 NATURAL
))
229 (fivedown
. ,(ly
:make-pitch -
1 2 NATURAL
))
235 (module-define
! (current-module
)
237 (alist-
>hash-table
(cdr k-v
)))
241 (acousticbassdrum
() #f -
3)
243 (sidestick cross
#f 1)
244 (acousticsnare
() #f 1)
246 (handclap triangle
#f 1)
247 (electricsnare
() #f 1)
248 (lowfloortom
() #f -
4)
249 (closedhihat cross
"stopped" 3)
251 (highfloortom
() #f -
2)
252 (pedalhihat cross
#f -
5)
254 (openhihat cross
"open" 3)
255 (halfopenhihat xcircle
#f 3)
258 (crashcymbala xcircle
#f 5)
259 (crashcymbal xcircle
#f 5)
261 (ridecymbala cross
#f 5)
262 (ridecymbal cross
#f 5)
263 (chinesecymbal mensural
#f 5)
265 (splashcymbal diamond
#f 5)
266 (cowbell triangle
#f 5)
267 (crashcymbalb cross
#f 5)
268 (vibraslap diamond
#f 4)
269 (ridecymbalb cross
#f 5)
273 ((losidestick cross
#f -
1)
275 (cowbell triangle
#f 2)
276 (hisidestick cross
#f 1)
282 ((losidestick cross
#f -
1)
284 (openloconga
() "open" -
1)
285 (muteloconga
() "stopped" -
1)
286 (hisidestick cross
#f 1)
288 (openhiconga
() "open" 1)
289 (mutehiconga
() "stopped" 1)
294 ((losidestick cross
#f -
1)
296 (openlobongo
() "open" -
1)
297 (mutelobongo
() "stopped" -
1)
298 (hisidestick cross
#f 1)
300 (openhibongo
() "open" 1)
301 (mutehibongo
() "stopped" 1)
306 ((opentriangle cross
"open" 0)
307 (mutetriangle cross
"stopped" 0)
308 (triangle cross
#f 0)
309 (shortguiro
() staccato
0)
310 (longguiro
() tenuto
0)
312 (cowbell triangle
#f 0)