1%%%% Drum pitch names.
2%%%% This file is part of LilyPond, the GNU music typesetter.
3%%%%
4%%%% Copyright (C) 2001--2020 Rune Zedeler <rune@zedeler.dk>,
5%%%%                          Han-Wen Nienhuys <hanwen@xs4all.nl>
6%%%%
7%%%% LilyPond is free software: you can redistribute it and/or modify
8%%%% it under the terms of the GNU General Public License as published by
9%%%% the Free Software Foundation, either version 3 of the License, or
10%%%% (at your option) any later version.
11%%%%
12%%%% LilyPond is distributed in the hope that it will be useful,
13%%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
14%%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15%%%% GNU General Public License for more details.
16%%%%
17%%%% You should have received a copy of the GNU General Public License
18%%%% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
19
20\version "2.16.0"
21
22drumPitchNames =
23#'((acousticbassdrum . acousticbassdrum)
24   (bassdrum . bassdrum)
25   (hisidestick . hisidestick)
26   (sidestick . sidestick)
27   (losidestick . losidestick)
28   (acousticsnare . acousticsnare)
29   (snare . snare)
30   (handclap . handclap)
31   (electricsnare . electricsnare)
32   (lowfloortom . lowfloortom)
33   (closedhihat . closedhihat)
34   (hihat . hihat)
35   (highfloortom . highfloortom)
36   (pedalhihat . pedalhihat)
37   (lowtom . lowtom)
38   (openhihat . openhihat)
39   (halfopenhihat . halfopenhihat)
40   (lowmidtom . lowmidtom)
41   (himidtom . himidtom)
42   (crashcymbala . crashcymbala)
43   (crashcymbal . crashcymbal)
44   (hightom . hightom)
45   (ridecymbala . ridecymbala)
46   (ridecymbal . ridecymbal)
47   (chinesecymbal . chinesecymbal)
48   (ridebell . ridebell)
49   (tambourine . tambourine)
50   (splashcymbal . splashcymbal)
51   (cowbell . cowbell)
52   (crashcymbalb . crashcymbalb)
53   (vibraslap . vibraslap)
54   (ridecymbalb . ridecymbalb)
55   (mutehibongo . mutehibongo)
56   (hibongo . hibongo)
57   (openhibongo . openhibongo)
58   (mutelobongo . mutelobongo)
59   (lobongo . lobongo)
60   (openlobongo . openlobongo)
61   (mutehiconga . mutehiconga)
62   (muteloconga . muteloconga)
63   (openhiconga . openhiconga)
64   (hiconga . hiconga)
65   (openloconga . openloconga)
66   (loconga . loconga)
67   (hitimbale . hitimbale)
68   (lotimbale . lotimbale)
69   (hiagogo . hiagogo)
70   (loagogo . loagogo)
71   (cabasa . cabasa)
72   (maracas . maracas)
73   (shortwhistle . shortwhistle)
74   (longwhistle . longwhistle)
75   (shortguiro . shortguiro)
76   (longguiro . longguiro)
77   (guiro . guiro)
78   (claves . claves)
79   (hiwoodblock . hiwoodblock)
80   (lowoodblock . lowoodblock)
81   (mutecuica . mutecuica)
82   (opencuica . opencuica)
83   (mutetriangle . mutetriangle)
84   (triangle . triangle)
85   (opentriangle . opentriangle)
86   (oneup . oneup)
87   (twoup . twoup)
88   (threeup . threeup)
89   (fourup . fourup)
90   (fiveup . fiveup)
91   (onedown . onedown)
92   (twodown . twodown)
93   (threedown . threedown)
94   (fourdown . fourdown)
95   (fivedown . fivedown)
96   (bda . acousticbassdrum)
97   (bd . bassdrum)
98   (ssh . hisidestick)
99   (ss . sidestick)
100   (ssl . losidestick)
101   (sna . acousticsnare)
102   (sn . snare)
103   (hc . handclap)
104   (sne . electricsnare)
105   (tomfl . lowfloortom)
106   (hhc . closedhihat)
107   (hh . hihat)
108   (tomfh . highfloortom)
109   (hhp . pedalhihat)
110   (toml . lowtom)
111   (hho . openhihat)
112   (hhho . halfopenhihat)
113   (tomml . lowmidtom)
114   (tommh . himidtom)
115   (cymca . crashcymbala)
116   (cymc . crashcymbal)
117   (tomh . hightom)
118   (cymra . ridecymbala)
119   (cymr . ridecymbal)
120   (cymch . chinesecymbal)
121   (rb . ridebell)
122   (tamb . tambourine)
123   (cyms . splashcymbal)
124   (cb . cowbell)
125   (cymcb . crashcymbalb)
126   (vibs . vibraslap)
127   (cymrb . ridecymbalb)
128   (bohm . mutehibongo)
129   (boh . hibongo)
130   (boho . openhibongo)
131   (bolm . mutelobongo)
132   (bol . lobongo)
133   (bolo . openlobongo)
134   (cghm . mutehiconga)
135   (cglm . muteloconga)
136   (cgho . openhiconga)
137   (cgh . hiconga)
138   (cglo . openloconga)
139   (cgl . loconga)
140   (timh . hitimbale)
141   (timl . lotimbale)
142   (agh . hiagogo)
143   (agl . loagogo)
144   (cab . cabasa)
145   (mar . maracas)
146   (whs . shortwhistle)
147   (whl . longwhistle)
148   (guis . shortguiro)
149   (guil . longguiro)
150   (gui . guiro)
151   (cl . claves)
152   (wbh . hiwoodblock)
153   (wbl . lowoodblock)
154   (cuim . mutecuica)
155   (cuio . opencuica)
156   (trim . mutetriangle)
157   (tri . triangle)
158   (trio . opentriangle)
159   (tt . tamtam)
160   (ua . oneup)
161   (ub . twoup)
162   (uc . threeup)
163   (ud . fourup)
164   (ue . fiveup)
165   (da . onedown)
166   (db . twodown)
167   (dc . threedown)
168   (dd . fourdown)
169   (de . fivedown)
170   )
171
172midiDrumPitches =
173#`((acousticbassdrum . ,(ly:make-pitch -3 6 NATURAL))
174   (bassdrum . ,(ly:make-pitch -2 0 NATURAL))
175   (hisidestick . ,(ly:make-pitch -3 6 DOUBLE-SHARP))
176   (sidestick . ,(ly:make-pitch -2 0 SHARP))
177   (losidestick . ,(ly:make-pitch -2 1 FLAT))
178   (acousticsnare . ,(ly:make-pitch -2 1 NATURAL))
179   (snare . ,(ly:make-pitch -2 2 DOUBLE-FLAT))
180   (handclap . ,(ly:make-pitch -2 1 SHARP))
181   (electricsnare . ,(ly:make-pitch -2 2 NATURAL))
182   (lowfloortom . ,(ly:make-pitch -2 3 NATURAL))
183   (closedhihat . ,(ly:make-pitch -2 3 SHARP))
184   (hihat . ,(ly:make-pitch -2 4 FLAT))
185   (highfloortom . ,(ly:make-pitch -2 4 NATURAL))
186   (pedalhihat . ,(ly:make-pitch -2 4 SHARP))
187   (lowtom . ,(ly:make-pitch -2 5 NATURAL))
188   (openhihat . ,(ly:make-pitch -2 5 SHARP))
189   (halfopenhihat . ,(ly:make-pitch -2 5 SHARP))
190   (lowmidtom . ,(ly:make-pitch -2 6 NATURAL))
191   (himidtom . ,(ly:make-pitch -1 0 NATURAL))
192   (crashcymbala . ,(ly:make-pitch -1 0 SHARP))
193   (crashcymbal . ,(ly:make-pitch -1 1 FLAT))
194   (hightom . ,(ly:make-pitch -1 1 NATURAL))
195   (ridecymbala . ,(ly:make-pitch -1 1 SHARP))
196   (ridecymbal . ,(ly:make-pitch -1 2 FLAT))
197   (chinesecymbal . ,(ly:make-pitch -1 2 NATURAL))
198   (ridebell . ,(ly:make-pitch -1 3 NATURAL))
199   (tambourine . ,(ly:make-pitch -1 3 SHARP))
200   (splashcymbal . ,(ly:make-pitch -1 4 NATURAL))
201   (cowbell . ,(ly:make-pitch -1 4 SHARP))
202   (crashcymbalb . ,(ly:make-pitch -1 5 NATURAL))
203   (vibraslap . ,(ly:make-pitch -1 5 SHARP))
204   (ridecymbalb . ,(ly:make-pitch -1 6 NATURAL))
205   (mutehibongo . ,(ly:make-pitch -1 6 SHARP))
206   (hibongo . ,(ly:make-pitch 0 0 NATURAL))
207   (openhibongo . ,(ly:make-pitch 0 1 DOUBLE-FLAT))
208   (mutelobongo . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
209   (lobongo . ,(ly:make-pitch 0 0 SHARP))
210   (openlobongo . ,(ly:make-pitch 0 1 FLAT))
211   (mutehiconga . ,(ly:make-pitch 0 1 NATURAL))
212   (muteloconga . ,(ly:make-pitch 0 2 DOUBLE-FLAT))
213   (openhiconga . ,(ly:make-pitch 0 1 SHARP))
214   (hiconga . ,(ly:make-pitch 0 2 FLAT))
215   (openloconga . ,(ly:make-pitch 0 1 DOUBLE-SHARP))
216   (loconga . ,(ly:make-pitch 0 2 NATURAL))
217   (hitimbale . ,(ly:make-pitch 0 3 NATURAL))
218   (lotimbale . ,(ly:make-pitch 0 3 SHARP))
219   (hiagogo . ,(ly:make-pitch 0 4 NATURAL))
220   (loagogo . ,(ly:make-pitch 0 4 SHARP))
221   (cabasa . ,(ly:make-pitch 0 5 NATURAL))
222   (maracas . ,(ly:make-pitch 0 5 SHARP))
223   (shortwhistle . ,(ly:make-pitch 0 6 NATURAL))
224   (longwhistle . ,(ly:make-pitch 1 0 NATURAL))
225   (shortguiro . ,(ly:make-pitch 1 0 SHARP))
226   (longguiro . ,(ly:make-pitch 1 1 NATURAL))
227   (guiro . ,(ly:make-pitch 1 0 DOUBLE-SHARP))
228   (claves . ,(ly:make-pitch 1 1 SHARP))
229   (hiwoodblock . ,(ly:make-pitch 1 2 NATURAL))
230   (lowoodblock . ,(ly:make-pitch 1 3 NATURAL))
231   (mutecuica . ,(ly:make-pitch 1 3 SHARP))
232   (opencuica . ,(ly:make-pitch 1 4 NATURAL))
233   (mutetriangle . ,(ly:make-pitch 1 4 SHARP))
234   (triangle . ,(ly:make-pitch 1 4 DOUBLE-SHARP))
235   (opentriangle . ,(ly:make-pitch 1 5 NATURAL))
236
237   ;; "transposing" pitches:
238   (oneup . ,(ly:make-pitch 0 1 NATURAL))
239   (twoup . ,(ly:make-pitch 0 2 NATURAL))
240   (threeup . ,(ly:make-pitch 0 3 NATURAL))
241   (fourup . ,(ly:make-pitch 0 4 NATURAL))
242   (fiveup . ,(ly:make-pitch 0 5 NATURAL))
243   (onedown . ,(ly:make-pitch -1 6 NATURAL))
244   (twodown . ,(ly:make-pitch -1 5 NATURAL))
245   (threedown . ,(ly:make-pitch -1 4 NATURAL))
246   (fourdown . ,(ly:make-pitch -1 3 NATURAL))
247   (fivedown . ,(ly:make-pitch -1 2 NATURAL))
248 )
249
250
251#(for-each
252  (lambda (k-v)
253    (module-define! (current-module)
254                    (car k-v)
255                    (alist->hash-table (cdr k-v)))
256    )
257   '((drums-style .
258     (
259      (acousticbassdrum () #f -3)
260      (bassdrum () #f -3)
261      (sidestick cross #f 1)
262      (acousticsnare () #f 1)
263      (snare () #f 1)
264      (handclap triangle #f 1)
265      (electricsnare () #f 1)
266      (lowfloortom () #f -4)
267      (closedhihat cross "stopped" 3)
268      (hihat cross #f 3)
269      (highfloortom () #f -2)
270      (pedalhihat cross #f -5)
271      (lowtom () #f -1)
272      (openhihat cross "open" 3)
273      (halfopenhihat xcircle #f 3)
274      (lowmidtom () #f 0)
275      (himidtom () #f 2)
276      (crashcymbala xcircle #f 5)
277      (crashcymbal xcircle #f 5)
278      (hightom () #f 4)
279      (ridecymbala cross #f 5)
280      (ridecymbal cross #f 5)
281      (chinesecymbal mensural #f 5)
282      (ridebell () #f 5)
283      (splashcymbal diamond #f 5)
284      (cowbell triangle #f 5)
285      (crashcymbalb cross #f 5)
286      (vibraslap diamond #f 4)
287      (ridecymbalb cross #f 5)
288      ))
289
290
291   (agostini-drums-style .
292     ((acousticbassdrum () #f -6)
293      (bassdrum () #f -5)
294      (sidestick cross #f 0)
295      (acousticsnare () #f 1)
296      (snare () #f 0)
297      (handclap triangle #f 0)
298      (electricsnare () #f 0)
299      (lowfloortom () #f -3)
300      (closedhihat cross #f 5)
301      (hihat cross #f 5)
302      (highfloortom () #f -2)
303      (pedalhihat cross #f -7)
304      (lowtom () #f -3)
305      (openhihat xcircle #f 5)
306      (halfopenhihat xcircle #f 5)
307      (lowmidtom () #f 2)
308      (himidtom () #f 3)
309      (crashcymbala cross #f 7)
310      (crashcymbal cross #f 8)
311      (hightom () #f 3)
312      (ridecymbala cross #f 6)
313      (ridecymbal cross #f 6)
314      (chinesecymbal mensural #f 6)
315      (ridebell mi #f 7)
316      (splashcymbal diamond #f 6)
317      (cowbell triangle #f 6)
318      (crashcymbalb cross #f 6)
319      (vibraslap diamond #f 4)
320      (ridecymbalb cross #f 7)
321      ))
322
323
324   (timbales-style .
325     ((losidestick cross #f -1)
326      (lotimbale () #f -1)
327      (cowbell triangle #f 2)
328      (hisidestick cross #f 1)
329      (hitimbale () #f 1)
330      ))
331
332
333   (congas-style .
334     ((losidestick cross #f -1)
335      (loconga () #f -1)
336      (openloconga () "open" -1)
337      (muteloconga () "stopped" -1)
338      (hisidestick cross #f 1)
339      (hiconga () #f 1)
340      (openhiconga () "open" 1)
341      (mutehiconga () "stopped" 1)
342      ))
343
344
345   (bongos-style .
346     ((losidestick cross #f -1)
347      (lobongo () #f -1)
348      (openlobongo () "open" -1)
349      (mutelobongo () "stopped" -1)
350      (hisidestick cross #f 1)
351      (hibongo () #f 1)
352      (openhibongo () "open" 1)
353      (mutehibongo () "stopped" 1)
354      ))
355
356
357   (percussion-style .
358     ((opentriangle cross "open" 0)
359      (mutetriangle cross "stopped" 0)
360      (triangle cross #f 0)
361      (shortguiro () "staccato" 0)
362      (longguiro () "tenuto" 0)
363      (guiro () #f 0)
364      (cowbell triangle #f 0)
365      (claves () #f 0)
366      (tambourine () #f 0)
367      (cabasa cross #f 0)
368      (maracas () #f 0)
369      (handclap () #f 0)
370      ))
371   ))
372