Remove unused prototype in score.hh.
[lilypond/mpolesky.git] / ly / drumpitch-init.ly
blob6574a762589a9cc271c8fd104d098416be9e6948
2 \version "2.12.0"
4 drumPitchNames =
5 #'((acousticbassdrum . acousticbassdrum)
6 (bassdrum . bassdrum)
7 (hisidestick . hisidestick)
8 (sidestick . sidestick)
9 (losidestick . losidestick)
10 (acousticsnare . acousticsnare)
11 (snare . snare)
12 (handclap . handclap)
13 (electricsnare . electricsnare)
14 (lowfloortom . lowfloortom)
15 (closedhihat . closedhihat)
16 (hihat . hihat)
17 (highfloortom . highfloortom)
18 (pedalhihat . pedalhihat)
19 (lowtom . lowtom)
20 (openhihat . openhihat)
21 (halfopenhihat . halfopenhihat)
22 (lowmidtom . lowmidtom)
23 (himidtom . himidtom)
24 (crashcymbala . crashcymbala)
25 (crashcymbal . crashcymbal)
26 (hightom . hightom)
27 (ridecymbala . ridecymbala)
28 (ridecymbal . ridecymbal)
29 (chinesecymbal . chinesecymbal)
30 (ridebell . ridebell)
31 (tambourine . tambourine)
32 (splashcymbal . splashcymbal)
33 (cowbell . cowbell)
34 (crashcymbalb . crashcymbalb)
35 (vibraslap . vibraslap)
36 (ridecymbalb . ridecymbalb)
37 (mutehibongo . mutehibongo)
38 (hibongo . hibongo)
39 (openhibongo . openhibongo)
40 (mutelobongo . mutelobongo)
41 (lobongo . lobongo)
42 (openlobongo . openlobongo)
43 (mutehiconga . mutehiconga)
44 (muteloconga . muteloconga)
45 (openhiconga . openhiconga)
46 (hiconga . hiconga)
47 (openloconga . openloconga)
48 (loconga . loconga)
49 (hitimbale . hitimbale)
50 (lotimbale . lotimbale)
51 (hiagogo . hiagogo)
52 (loagogo . loagogo)
53 (cabasa . cabasa)
54 (maracas . maracas)
55 (shortwhistle . shortwhistle)
56 (longwhistle . longwhistle)
57 (shortguiro . shortguiro)
58 (longguiro . longguiro)
59 (guiro . guiro)
60 (claves . claves)
61 (hiwoodblock . hiwoodblock)
62 (lowoodblock . lowoodblock)
63 (mutecuica . mutecuica)
64 (opencuica . opencuica)
65 (mutetriangle . mutetriangle)
66 (triangle . triangle)
67 (opentriangle . opentriangle)
68 (oneup . oneup)
69 (twoup . twoup)
70 (threeup . threeup)
71 (fourup . fourup)
72 (fiveup . fiveup)
73 (onedown . onedown)
74 (twodown . twodown)
75 (threedown . threedown)
76 (fourdown . fourdown)
77 (fivedown . fivedown)
78 (bda . acousticbassdrum)
79 (bd . bassdrum)
80 (ssh . hisidestick)
81 (ss . sidestick)
82 (ssl . losidestick)
83 (sna . acousticsnare)
84 (sn . snare)
85 (hc . handclap)
86 (sne . electricsnare)
87 (tomfl . lowfloortom)
88 (hhc . closedhihat)
89 (hh . hihat)
90 (tomfh . highfloortom)
91 (hhp . pedalhihat)
92 (toml . lowtom)
93 (hho . openhihat)
94 (hhho . halfopenhihat)
95 (tomml . lowmidtom)
96 (tommh . himidtom)
97 (cymca . crashcymbala)
98 (cymc . crashcymbal)
99 (tomh . hightom)
100 (cymra . ridecymbala)
101 (cymr . ridecymbal)
102 (cymch . chinesecymbal)
103 (rb . ridebell)
104 (tamb . tambourine)
105 (cyms . splashcymbal)
106 (cb . cowbell)
107 (cymcb . crashcymbalb)
108 (vibs . vibraslap)
109 (cymrb . ridecymbalb)
110 (bohm . mutehibongo)
111 (boh . hibongo)
112 (boho . openhibongo)
113 (bolm . mutelobongo)
114 (bol . lobongo)
115 (bolo . openlobongo)
116 (cghm . mutehiconga)
117 (cglm . muteloconga)
118 (cgho . openhiconga)
119 (cgh . hiconga)
120 (cglo . openloconga)
121 (cgl . loconga)
122 (timh . hitimbale)
123 (timl . lotimbale)
124 (agh . hiagogo)
125 (agl . loagogo)
126 (cab . cabasa)
127 (mar . maracas)
128 (whs . shortwhistle)
129 (whl . longwhistle)
130 (guis . shortguiro)
131 (guil . longguiro)
132 (gui . guiro)
133 (cl . claves)
134 (wbh . hiwoodblock)
135 (wbl . lowoodblock)
136 (cuim . mutecuica)
137 (cuio . opencuica)
138 (trim . mutetriangle)
139 (tri . triangle)
140 (trio . opentriangle)
141 (tt . tamtam)
142 (ua . oneup)
143 (ub . twoup)
144 (uc . threeup)
145 (ud . fourup)
146 (ue . fiveup)
147 (da . onedown)
148 (db . twodown)
149 (dc . threedown)
150 (dd . fourdown)
151 (de . fivedown)
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))
233 #(map
234 (lambda (k-v)
235 (module-define! (current-module)
236 (car k-v)
237 (alist->hash-table (cdr k-v)))
239 '((drums-style .
241 (acousticbassdrum () #f -3)
242 (bassdrum () #f -3)
243 (sidestick cross #f 1)
244 (acousticsnare () #f 1)
245 (snare () #f 1)
246 (handclap triangle #f 1)
247 (electricsnare () #f 1)
248 (lowfloortom () #f -4)
249 (closedhihat cross "stopped" 3)
250 (hihat cross #f 3)
251 (highfloortom () #f -2)
252 (pedalhihat cross #f -5)
253 (lowtom () #f -1)
254 (openhihat cross "open" 3)
255 (halfopenhihat xcircle #f 3)
256 (lowmidtom () #f 0)
257 (himidtom () #f 2)
258 (crashcymbala xcircle #f 5)
259 (crashcymbal xcircle #f 5)
260 (hightom () #f 4)
261 (ridecymbala cross #f 5)
262 (ridecymbal cross #f 5)
263 (chinesecymbal mensural #f 5)
264 (ridebell () #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)
272 (timbales-style .
273 ((losidestick cross #f -1)
274 (lotimbale () #f -1)
275 (cowbell triangle #f 2)
276 (hisidestick cross #f 1)
277 (hitimbale () #f 1)
281 (congas-style .
282 ((losidestick cross #f -1)
283 (loconga () #f -1)
284 (openloconga () "open" -1)
285 (muteloconga () "stopped" -1)
286 (hisidestick cross #f 1)
287 (hiconga () #f 1)
288 (openhiconga () "open" 1)
289 (mutehiconga () "stopped" 1)
293 (bongos-style .
294 ((losidestick cross #f -1)
295 (lobongo () #f -1)
296 (openlobongo () "open" -1)
297 (mutelobongo () "stopped" -1)
298 (hisidestick cross #f 1)
299 (hibongo () #f 1)
300 (openhibongo () "open" 1)
301 (mutehibongo () "stopped" 1)
305 (percussion-style .
306 ((opentriangle cross "open" 0)
307 (mutetriangle cross "stopped" 0)
308 (triangle cross #f 0)
309 (shortguiro () staccato 0)
310 (longguiro () tenuto 0)
311 (guiro () #f 0)
312 (cowbell triangle #f 0)
313 (claves () #f 0)
314 (tambourine () #f 0)
315 (cabasa cross #f 0)
316 (maracas () #f 0)
317 (handclap () #f 0)