ly/drumpitch-init.ly

   1
   2 \version "2.16.0"
   3
   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)
 152    )
 153
 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))
 218
 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))
 230  )
 231
 232
 233 #(for-each
 234   (lambda (k-v)
 235     (module-define! (current-module)
 236                     (car k-v)
 237                     (alist->hash-table (cdr k-v)))
 238     )
 239    '((drums-style .
 240      (
 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)
 270       ))
 271
 272
 273    (agostini-drums-style .
 274      ((acousticbassdrum () #f -6)
 275       (bassdrum () #f -5)
 276       (sidestick cross #f 0)
 277       (acousticsnare () #f 1)
 278       (snare () #f 0)
 279       (handclap triangle #f 0)
 280       (electricsnare () #f 0)
 281       (lowfloortom () #f -3)
 282       (closedhihat cross #f 5)
 283       (hihat cross #f 5)
 284       (highfloortom () #f -2)
 285       (pedalhihat cross #f -7)
 286       (lowtom () #f -3)
 287       (openhihat xcircle #f 5)
 288       (halfopenhihat xcircle #f 5)
 289       (lowmidtom () #f 2)
 290       (himidtom () #f 3)
 291       (crashcymbala cross #f 7)
 292       (crashcymbal cross #f 8)
 293       (hightom () #f 3)
 294       (ridecymbala cross #f 6)
 295       (ridecymbal cross #f 6)
 296       (chinesecymbal mensural #f 6)
 297       (ridebell mi #f 7)
 298       (splashcymbal diamond #f 6)
 299       (cowbell triangle #f 6)
 300       (crashcymbalb cross #f 6)
 301       (vibraslap diamond #f 4)
 302       (ridecymbalb cross #f 7)
 303       ))
 304
 305
 306    (timbales-style .
 307      ((losidestick cross #f -1)
 308       (lotimbale () #f -1)
 309       (cowbell triangle #f 2)
 310       (hisidestick cross #f 1)
 311       (hitimbale () #f 1)
 312       ))
 313
 314
 315    (congas-style .
 316      ((losidestick cross #f -1)
 317       (loconga () #f -1)
 318       (openloconga () "open" -1)
 319       (muteloconga () "stopped" -1)
 320       (hisidestick cross #f 1)
 321       (hiconga () #f 1)
 322       (openhiconga () "open" 1)
 323       (mutehiconga () "stopped" 1)
 324       ))
 325
 326
 327    (bongos-style .
 328      ((losidestick cross #f -1)
 329       (lobongo () #f -1)
 330       (openlobongo () "open" -1)
 331       (mutelobongo () "stopped" -1)
 332       (hisidestick cross #f 1)
 333       (hibongo () #f 1)
 334       (openhibongo () "open" 1)
 335       (mutehibongo () "stopped" 1)
 336       ))
 337
 338
 339    (percussion-style .
 340      ((opentriangle cross "open" 0)
 341       (mutetriangle cross "stopped" 0)
 342       (triangle cross #f 0)
 343       (shortguiro () staccato 0)
 344       (longguiro () tenuto 0)
 345       (guiro () #f 0)
 346       (cowbell triangle #f 0)
 347       (claves () #f 0)
 348       (tambourine () #f 0)
 349       (cabasa cross #f 0)
 350       (maracas () #f 0)
 351       (handclap () #f 0)
 352       ))
 353    ))