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