ly/drumpitch-init.ly

   1
   2 \version "2.12.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 #(map
 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    (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)
 278       ))
 279
 280
 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)
 290       ))
 291
 292
 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)
 302       ))
 303
 304
 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)
 318       ))
 319    ))
 320
 321