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