ly/drumpitch-init.ly

   1
   2 \version "2.3.16"
   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    (ua . oneup)
 142    (ub . twoup)
 143    (uc . threeup)
 144    (ud . fourup)
 145    (ue . fiveup)
 146    (da . onedown)
 147    (db . twodown)
 148    (dc . threedown)
 149    (dd . fourdown)
 150    (de . fivedown)
 151    )
 152
 153 midiDrumPitches = #`(
 154         (acousticbassdrum . ,(ly:make-pitch -3 6 NATURAL))
 155         (bassdrum . ,(ly:make-pitch -2 0 NATURAL))
 156         (hisidestick . ,(ly:make-pitch -3 6 DOUBLE-SHARP))
 157         (sidestick . ,(ly:make-pitch -2 0 SHARP))
 158         (losidestick . ,(ly:make-pitch -2 1 FLAT))
 159         (acousticsnare . ,(ly:make-pitch -2 1 NATURAL))
 160         (snare . ,(ly:make-pitch -2 2 DOUBLE-FLAT))
 161         (handclap . ,(ly:make-pitch -2 1 SHARP))
 162         (electricsnare . ,(ly:make-pitch -2 2 NATURAL))
 163         (lowfloortom . ,(ly:make-pitch -2 3 NATURAL))
 164         (closedhihat . ,(ly:make-pitch -2 3 SHARP))
 165         (hihat . ,(ly:make-pitch -2 4 FLAT))
 166         (highfloortom . ,(ly:make-pitch -2 4 NATURAL))
 167         (pedalhihat . ,(ly:make-pitch -2 4 SHARP))
 168         (lowtom . ,(ly:make-pitch -2 5 NATURAL))
 169         (openhihat . ,(ly:make-pitch -2 5 SHARP))
 170         (halfopenhihat . ,(ly:make-pitch -2 5 SHARP))
 171         (lowmidtom . ,(ly:make-pitch -2 6 NATURAL))
 172         (himidtom . ,(ly:make-pitch -1 0 NATURAL))
 173         (crashcymbala . ,(ly:make-pitch -1 0 SHARP))
 174         (crashcymbal . ,(ly:make-pitch -1 1 FLAT))
 175         (hightom . ,(ly:make-pitch -1 1 NATURAL))
 176         (ridecymbala . ,(ly:make-pitch -1 1 SHARP))
 177         (ridecymbal . ,(ly:make-pitch -1 2 FLAT))
 178         (chinesecymbal . ,(ly:make-pitch -1 2 NATURAL))
 179         (ridebell . ,(ly:make-pitch -1 3 NATURAL))
 180         (tambourine . ,(ly:make-pitch -1 3 SHARP))
 181         (splashcymbal . ,(ly:make-pitch -1 4 NATURAL))
 182         (cowbell . ,(ly:make-pitch -1 4 SHARP))
 183         (crashcymbalb . ,(ly:make-pitch -1 5 NATURAL))
 184         (vibraslap . ,(ly:make-pitch -1 5 SHARP))
 185         (ridecymbalb . ,(ly:make-pitch -1 6 NATURAL))
 186         (mutehibongo . ,(ly:make-pitch -1 6 SHARP))
 187         (hibongo . ,(ly:make-pitch 0 0 NATURAL))
 188         (openhibongo . ,(ly:make-pitch 0 1 DOUBLE-FLAT))
 189         (mutelobongo . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 190         (lobongo . ,(ly:make-pitch 0 0 SHARP))
 191         (openlobongo . ,(ly:make-pitch 0 1 FLAT))
 192         (mutehiconga . ,(ly:make-pitch 0 1 NATURAL))
 193         (muteloconga . ,(ly:make-pitch 0 2 DOUBLE-FLAT))
 194         (openhiconga . ,(ly:make-pitch 0 1 SHARP))
 195         (hiconga . ,(ly:make-pitch 0 2 FLAT))
 196         (openloconga . ,(ly:make-pitch 0 1 DOUBLE-SHARP))
 197         (loconga . ,(ly:make-pitch 0 2 NATURAL))
 198         (hitimbale . ,(ly:make-pitch 0 3 NATURAL))
 199         (lotimbale . ,(ly:make-pitch 0 3 SHARP))
 200         (hiagogo . ,(ly:make-pitch 0 4 NATURAL))
 201         (loagogo . ,(ly:make-pitch 0 4 SHARP))
 202         (cabasa . ,(ly:make-pitch 0 5 NATURAL))
 203         (maracas . ,(ly:make-pitch 0 5 SHARP))
 204         (shortwhistle . ,(ly:make-pitch 0 6 NATURAL))
 205         (longwhistle . ,(ly:make-pitch 1 0 NATURAL))
 206         (shortguiro . ,(ly:make-pitch 1 0 SHARP))
 207         (longguiro . ,(ly:make-pitch 1 1 NATURAL))
 208         (guiro . ,(ly:make-pitch 1 0 DOUBLE-SHARP))
 209         (claves . ,(ly:make-pitch 1 1 SHARP))
 210         (hiwoodblock . ,(ly:make-pitch 1 2 NATURAL))
 211         (lowoodblock . ,(ly:make-pitch 1 3 NATURAL))
 212         (mutecuica . ,(ly:make-pitch 1 3 SHARP))
 213         (opencuica . ,(ly:make-pitch 1 4 NATURAL))
 214         (mutetriangle . ,(ly:make-pitch 1 4 SHARP))
 215         (triangle . ,(ly:make-pitch 1 4 DOUBLE-SHARP))
 216         (opentriangle . ,(ly:make-pitch 1 5 NATURAL))
 217
 218         ;; "transposing" pitches:
 219         (oneup . ,(ly:make-pitch 0 1 NATURAL))
 220         (twoup . ,(ly:make-pitch 0 2 NATURAL))
 221         (threeup . ,(ly:make-pitch 0 3 NATURAL))
 222         (fourup . ,(ly:make-pitch 0 4 NATURAL))
 223         (fiveup . ,(ly:make-pitch 0 5 NATURAL))
 224         (onedown . ,(ly:make-pitch -1 6 NATURAL))
 225         (twodown . ,(ly:make-pitch -1 5 NATURAL))
 226         (threedown . ,(ly:make-pitch -1 4 NATURAL))
 227         (fourdown . ,(ly:make-pitch -1 3 NATURAL))
 228         (fivedown . ,(ly:make-pitch -1 2 NATURAL))
 229 )
 230
 231
 232 #(map
 233   (lambda (k-v)
 234     (module-define! (current-module)
 235                     (car k-v)
 236                     (alist->hash-table (cdr k-v)))
 237     )
 238    '((drums-style .
 239      (
 240       (acousticbassdrum () #f -3)
 241       (bassdrum () #f -3)
 242       (sidestick cross #f 1)
 243       (acousticsnare () #f 1)
 244       (snare () #f 1)
 245       (handclap triangle #f 1)
 246       (electricsnare () #f 1)
 247       (lowfloortom () #f -4)
 248       (closedhihat cross "stopped" 3)
 249       (hihat cross #f 3)
 250       (highfloortom () #f -2)
 251       (pedalhihat cross #f -5)
 252       (lowtom () #f -1)
 253       (openhihat cross "open" 3)
 254       (halfopenhihat xcircle #f 3)
 255       (lowmidtom () #f 0)
 256       (himidtom () #f 2)
 257       (crashcymbala xcircle #f 5)
 258       (crashcymbal xcircle #f 5)
 259       (hightom () #f 4)
 260       (ridecymbala cross #f 5)
 261       (ridecymbal cross #f 5)
 262       (chinesecymbal mensural #f 5)
 263       (ridebell () #f 5)
 264       (splashcymbal diamond #f 5)
 265       (cowbell triangle #f 5)
 266       (crashcymbalb cross #f 5)
 267       (vibraslap diamond #f 4)
 268       (ridecymbalb cross #f 5)
 269       ))
 270
 271    (timbales-style .
 272      ((losidestick cross #f -1)
 273       (lotimbale () #f -1)
 274       (cowbell triangle #f 2)
 275       (hisidestick cross #f 1)
 276       (hitimbale () #f 1)
 277       ))
 278
 279
 280    (congas-style .
 281      ((losidestick cross #f -1)
 282       (loconga () #f -1)
 283       (openloconga () "open" -1)
 284       (muteloconga () "stopped" -1)
 285       (hisidestick cross #f 1)
 286       (hiconga () #f 1)
 287       (openhiconga () "open" 1)
 288       (mutehiconga () "stopped" 1)
 289       ))
 290
 291
 292    (bongos-style .
 293      ((losidestick cross #f -1)
 294       (lobongo () #f -1)
 295       (openlobongo () "open" -1)
 296       (mutelobongo () "stopped" -1)
 297       (hisidestick cross #f 1)
 298       (hibongo () #f 1)
 299       (openhibongo () "open" 1)
 300       (mutehibongo () "stopped" 1)
 301       ))
 302
 303
 304    (percussion-style .
 305      ((opentriangle cross "open" 0)
 306       (mutetriangle cross "stopped" 0)
 307       (triangle cross #f 0)
 308       (shortguiro () staccato 0)
 309       (longguiro () tenuto 0)
 310       (guiro () #f 0)
 311       (cowbell triangle #f 0)
 312       (claves () #f 0)
 313       (tambourine () #f 0)
 314       (cabasa cross #f 0)
 315       (maracas () #f 0)
 316       (handclap () #f 0)
 317       ))
 318    ))
 319
 320