ly/drumpitch-init.ly

   1
   2 drumPitchNames =
   3 #'((acousticbassdrum . acousticbassdrum)
   4    (bassdrum . bassdrum)
   5    (hisidestick . hisidestick)
   6    (sidestick . sidestick)
   7    (losidestick . losidestick)
   8    (acousticsnare . acousticsnare)
   9    (snare . snare)
  10    (handclap . handclap)
  11    (electricsnare . electricsnare)
  12    (lowfloortom . lowfloortom)
  13    (closedhihat . closedhihat)
  14    (hihat . hihat)
  15    (highfloortom . highfloortom)
  16    (pedalhihat . pedalhihat)
  17    (lowtom . lowtom)
  18    (openhihat . openhihat)
  19    (halfopenhihat . halfopenhihat)
  20    (lowmidtom . lowmidtom)
  21    (himidtom . himidtom)
  22    (crashcymbala . crashcymbala)
  23    (crashcymbal . crashcymbal)
  24    (hightom . hightom)
  25    (ridecymbala . ridecymbala)
  26    (ridecymbal . ridecymbal)
  27    (chinesecymbal . chinesecymbal)
  28    (ridebell . ridebell)
  29    (tambourine . tambourine)
  30    (splashcymbal . splashcymbal)
  31    (cowbell . cowbell)
  32    (crashcymbalb . crashcymbalb)
  33    (vibraslap . vibraslap)
  34    (ridecymbalb . ridecymbalb)
  35    (mutehibongo . mutehibongo)
  36    (hibongo . hibongo)
  37    (openhibongo . openhibongo)
  38    (mutelobongo . mutelobongo)
  39    (lobongo . lobongo)
  40    (openlobongo . openlobongo)
  41    (mutehiconga . mutehiconga)
  42    (muteloconga . muteloconga)
  43    (openhiconga . openhiconga)
  44    (hiconga . hiconga)
  45    (openloconga . openloconga)
  46    (loconga . loconga)
  47    (hitimbale . hitimbale)
  48    (lotimbale . lotimbale)
  49    (hiagogo . hiagogo)
  50    (loagogo . loagogo)
  51    (cabasa . cabasa)
  52    (maracas . maracas)
  53    (shortwhistle . shortwhistle)
  54    (longwhistle . longwhistle)
  55    (shortguiro . shortguiro)
  56    (longguiro . longguiro)
  57    (guiro . guiro)
  58    (claves . claves)
  59    (hiwoodblock . hiwoodblock)
  60    (lowoodblock . lowoodblock)
  61    (mutecuica . mutecuica)
  62    (opencuica . opencuica)
  63    (mutetriangle . mutetriangle)
  64    (triangle . triangle)
  65    (opentriangle . opentriangle)
  66    (oneup . oneup)
  67    (twoup . twoup)
  68    (threeup . threeup)
  69    (fourup . fourup)
  70    (fiveup . fiveup)
  71    (onedown . onedown)
  72    (twodown . twodown)
  73    (threedown . threedown)
  74    (fourdown . fourdown)
  75    (fivedown . fivedown)
  76    (bda . acousticbassdrum)
  77    (bd . bassdrum)
  78    (ssh . hisidestick)
  79    (ss . sidestick)
  80    (ssl . losidestick)
  81    (sna . acousticsnare)
  82    (sn . snare)
  83    (hc . handclap)
  84    (sne . electricsnare)
  85    (tomfl . lowfloortom)
  86    (hhc . closedhihat)
  87    (hh . hihat)
  88    (tomfh . highfloortom)
  89    (hhp . pedalhihat)
  90    (toml . lowtom)
  91    (hho . openhihat)
  92    (hhho . halfopenhihat)
  93    (tomml . lowmidtom)
  94    (tommh . himidtom)
  95    (cymca . crashcymbala)
  96    (cymc . crashcymbal)
  97    (tomh . hightom)
  98    (cymra . ridecymbala)
  99    (cymr . ridecymbal)
 100    (cymch . chinesecymbal)
 101    (rb . ridebell)
 102    (tamb . tambourine)
 103    (cyms . splashcymbal)
 104    (cb . cowbell)
 105    (cymcb . crashcymbalb)
 106    (vibs . vibraslap)
 107    (cymrb . ridecymbalb)
 108    (bohm . mutehibongo)
 109    (boh . hibongo)
 110    (boho . openhibongo)
 111    (bolm . mutelobongo)
 112    (bol . lobongo)
 113    (bolo . openlobongo)
 114    (cghm . mutehiconga)
 115    (cglm . muteloconga)
 116    (cgho . openhiconga)
 117    (cgh . hiconga)
 118    (cglo . openloconga)
 119    (cgl . loconga)
 120    (timh . hitimbale)
 121    (timl . lotimbale)
 122    (agh . hiagogo)
 123    (agl . loagogo)
 124    (cab . cabasa)
 125    (mar . maracas)
 126    (whs . shortwhistle)
 127    (whl . longwhistle)
 128    (guis . shortguiro)
 129    (guil . longguiro)
 130    (gui . guiro)
 131    (cl . claves)
 132    (wbh . hiwoodblock)
 133    (wbl . lowoodblock)
 134    (cuim . mutecuica)
 135    (cuio . opencuica)
 136    (trim . mutetriangle)
 137    (tri . triangle)
 138    (trio . opentriangle)
 139    (ua . oneup)
 140    (ub . twoup)
 141    (uc . threeup)
 142    (ud . fourup)
 143    (ue . fiveup)
 144    (da . onedown)
 145    (db . twodown)
 146    (dc . threedown)
 147    (dd . fourdown)
 148    (de . fivedown)
 149    )
 150
 151
 152
 153 #(map
 154   (lambda (k-v)
 155     (module-define! (current-module)
 156                     (car k-v)
 157                     (alist->hash-table (cdr k-v)))
 158     )
 159    '((drums-style .
 160      (
 161       (acousticbassdrum () #f -3)
 162       (bassdrum () #f -3)
 163       (sidestick cross #f 1)
 164       (acousticsnare () #f 1)
 165       (snare () #f 1)
 166       (handclap triangle #f 1)
 167       (electricsnare () #f 1)
 168       (lowfloortom () #f -4)
 169       (closedhihat cross "stopped" 3)
 170       (hihat cross #f 3)
 171       (highfloortom () #f -2)
 172       (pedalhihat cross #f -5)
 173       (lowtom () #f -1)
 174       (openhihat cross "open" 3)
 175       (halfopenhihat xcircle #f 3)
 176       (lowmidtom () #f 0)
 177       (himidtom () #f 2)
 178       (crashcymbala xcircle #f 5)
 179       (crashcymbal xcircle #f 5)
 180       (hightom () #f 4)
 181       (ridecymbala cross #f 5)
 182       (ridecymbal cross #f 5)
 183       (chinesecymbal mensural #f 5)
 184       (ridebell () #f 5)
 185       (splashcymbal diamond #f 5)
 186       (cowbell triangle #f 5)
 187       (crashcymbalb cross #f 5)
 188       (vibraslap diamond #f 4)
 189       (ridecymbalb cross #f 5)
 190       ))
 191
 192    (timbales-style .
 193      ((losidestick cross #f -1)
 194       (lotimbale () #f -1)
 195       (cowbell triangle #f 2)
 196       (hisidestick cross #f 1)
 197       (hitimbale () #f 1)
 198       ))
 199
 200
 201    (congas-style .
 202      ((losidestick cross #f -1)
 203       (loconga () #f -1)
 204       (openloconga () "open" -1)
 205       (muteloconga () "stopped" -1)
 206       (hisidestick cross #f 1)
 207       (hiconga () #f 1)
 208       (openhiconga () "open" 1)
 209       (mutehiconga () "stopped" 1)
 210       ))
 211
 212
 213    (bongos-style .
 214      ((losidestick cross #f -1)
 215       (lobongo () #f -1)
 216       (openlobongo () "open" -1)
 217       (mutelobongo () "stopped" -1)
 218       (hisidestick cross #f 1)
 219       (hibongo () #f 1)
 220       (openhibongo () "open" 1)
 221       (mutehibongo () "stopped" 1)
 222       ))
 223
 224
 225    (percussion-style .
 226      ((opentriangle cross "open" 0)
 227       (mutetriangle cross "stopped" 0)
 228       (triangle cross #f 0)
 229       (shortguiro () staccato 0)
 230       (longguiro () tenuto 0)
 231       (guiro () #f 0)
 232       (cowbell triangle #f 0)
 233       (claves () #f 0)
 234       (tambourine () #f 0)
 235       (cabasa cross #f 0)
 236       (maracas () #f 0)
 237       (handclap () #f 0)
 238       ))
 239    ))
 240
 241