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)
153 midiDrumPitches = #`(
154 (acousticbassdrum . ,(ly:make-pitch -3 6 NATURAL))
155 (bassdrum . ,(ly:make-pitch -2 0 NATURAL))
156 (hisidestick . ,(ly:make-pitch -3 6 DOUBLE-SHARP))
157 (sidestick . ,(ly:make-pitch -2 0 SHARP))
158 (losidestick . ,(ly:make-pitch -2 1 FLAT))
159 (acousticsnare . ,(ly:make-pitch -2 1 NATURAL))
160 (snare . ,(ly:make-pitch -2 2 DOUBLE-FLAT))
161 (handclap . ,(ly:make-pitch -2 1 SHARP))
162 (electricsnare . ,(ly:make-pitch -2 2 NATURAL))
163 (lowfloortom . ,(ly:make-pitch -2 3 NATURAL))
164 (closedhihat . ,(ly:make-pitch -2 3 SHARP))
165 (hihat . ,(ly:make-pitch -2 4 FLAT))
166 (highfloortom . ,(ly:make-pitch -2 4 NATURAL))
167 (pedalhihat . ,(ly:make-pitch -2 4 SHARP))
168 (lowtom . ,(ly:make-pitch -2 5 NATURAL))
169 (openhihat . ,(ly:make-pitch -2 5 SHARP))
170 (halfopenhihat . ,(ly:make-pitch -2 5 SHARP))
171 (lowmidtom . ,(ly:make-pitch -2 6 NATURAL))
172 (himidtom . ,(ly:make-pitch -1 0 NATURAL))
173 (crashcymbala . ,(ly:make-pitch -1 0 SHARP))
174 (crashcymbal . ,(ly:make-pitch -1 1 FLAT))
175 (hightom . ,(ly:make-pitch -1 1 NATURAL))
176 (ridecymbala . ,(ly:make-pitch -1 1 SHARP))
177 (ridecymbal . ,(ly:make-pitch -1 2 FLAT))
178 (chinesecymbal . ,(ly:make-pitch -1 2 NATURAL))
179 (ridebell . ,(ly:make-pitch -1 3 NATURAL))
180 (tambourine . ,(ly:make-pitch -1 3 SHARP))
181 (splashcymbal . ,(ly:make-pitch -1 4 NATURAL))
182 (cowbell . ,(ly:make-pitch -1 4 SHARP))
183 (crashcymbalb . ,(ly:make-pitch -1 5 NATURAL))
184 (vibraslap . ,(ly:make-pitch -1 5 SHARP))
185 (ridecymbalb . ,(ly:make-pitch -1 6 NATURAL))
186 (mutehibongo . ,(ly:make-pitch -1 6 SHARP))
187 (hibongo . ,(ly:make-pitch 0 0 NATURAL))
188 (openhibongo . ,(ly:make-pitch 0 1 DOUBLE-FLAT))
189 (mutelobongo . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
190 (lobongo . ,(ly:make-pitch 0 0 SHARP))
191 (openlobongo . ,(ly:make-pitch 0 1 FLAT))
192 (mutehiconga . ,(ly:make-pitch 0 1 NATURAL))
193 (muteloconga . ,(ly:make-pitch 0 2 DOUBLE-FLAT))
194 (openhiconga . ,(ly:make-pitch 0 1 SHARP))
195 (hiconga . ,(ly:make-pitch 0 2 FLAT))
196 (openloconga . ,(ly:make-pitch 0 1 DOUBLE-SHARP))
197 (loconga . ,(ly:make-pitch 0 2 NATURAL))
198 (hitimbale . ,(ly:make-pitch 0 3 NATURAL))
199 (lotimbale . ,(ly:make-pitch 0 3 SHARP))
200 (hiagogo . ,(ly:make-pitch 0 4 NATURAL))
201 (loagogo . ,(ly:make-pitch 0 4 SHARP))
202 (cabasa . ,(ly:make-pitch 0 5 NATURAL))
203 (maracas . ,(ly:make-pitch 0 5 SHARP))
204 (shortwhistle . ,(ly:make-pitch 0 6 NATURAL))
205 (longwhistle . ,(ly:make-pitch 1 0 NATURAL))
206 (shortguiro . ,(ly:make-pitch 1 0 SHARP))
207 (longguiro . ,(ly:make-pitch 1 1 NATURAL))
208 (guiro . ,(ly:make-pitch 1 0 DOUBLE-SHARP))
209 (claves . ,(ly:make-pitch 1 1 SHARP))
210 (hiwoodblock . ,(ly:make-pitch 1 2 NATURAL))
211 (lowoodblock . ,(ly:make-pitch 1 3 NATURAL))
212 (mutecuica . ,(ly:make-pitch 1 3 SHARP))
213 (opencuica . ,(ly:make-pitch 1 4 NATURAL))
214 (mutetriangle . ,(ly:make-pitch 1 4 SHARP))
215 (triangle . ,(ly:make-pitch 1 4 DOUBLE-SHARP))
216 (opentriangle . ,(ly:make-pitch 1 5 NATURAL))
218 ;; "transposing" pitches:
219 (oneup . ,(ly:make-pitch 0 1 NATURAL))
220 (twoup . ,(ly:make-pitch 0 2 NATURAL))
221 (threeup . ,(ly:make-pitch 0 3 NATURAL))
222 (fourup . ,(ly:make-pitch 0 4 NATURAL))
223 (fiveup . ,(ly:make-pitch 0 5 NATURAL))
224 (onedown . ,(ly:make-pitch -1 6 NATURAL))
225 (twodown . ,(ly:make-pitch -1 5 NATURAL))
226 (threedown . ,(ly:make-pitch -1 4 NATURAL))
227 (fourdown . ,(ly:make-pitch -1 3 NATURAL))
228 (fivedown . ,(ly:make-pitch -1 2 NATURAL))
234 (module-define! (current-module)
236 (alist->hash-table (cdr k-v)))
240 (acousticbassdrum () #f -3)
242 (sidestick cross #f 1)
243 (acousticsnare () #f 1)
245 (handclap triangle #f 1)
246 (electricsnare () #f 1)
247 (lowfloortom () #f -4)
248 (closedhihat cross "stopped" 3)
250 (highfloortom () #f -2)
251 (pedalhihat cross #f -5)
253 (openhihat cross "open" 3)
254 (halfopenhihat xcircle #f 3)
257 (crashcymbala xcircle #f 5)
258 (crashcymbal xcircle #f 5)
260 (ridecymbala cross #f 5)
261 (ridecymbal cross #f 5)
262 (chinesecymbal mensural #f 5)
264 (splashcymbal diamond #f 5)
265 (cowbell triangle #f 5)
266 (crashcymbalb cross #f 5)
267 (vibraslap diamond #f 4)
268 (ridecymbalb cross #f 5)
272 ((losidestick cross #f -1)
274 (cowbell triangle #f 2)
275 (hisidestick cross #f 1)
281 ((losidestick cross #f -1)
283 (openloconga () "open" -1)
284 (muteloconga () "stopped" -1)
285 (hisidestick cross #f 1)
287 (openhiconga () "open" 1)
288 (mutehiconga () "stopped" 1)
293 ((losidestick cross #f -1)
295 (openlobongo () "open" -1)
296 (mutelobongo () "stopped" -1)
297 (hisidestick cross #f 1)
299 (openhibongo () "open" 1)
300 (mutehibongo () "stopped" 1)
305 ((opentriangle cross "open" 0)
306 (mutetriangle cross "stopped" 0)
307 (triangle cross #f 0)
308 (shortguiro () staccato 0)
309 (longguiro () tenuto 0)
311 (cowbell triangle #f 0)