ly/drumpitch.ly

   1 % GM drum pitches.
   2 % I use different accidentals to distinguish drums at the same GM pitch.
   3 % Always accidental 0 (white keys) or 1 (black keys) to get the "correct" gm name.
   4 % i.e. fis, for closed highat  ges, for highat.
   5
   6 % 2001/03/25 Rune Zedeler <rune@zedeler.dk>
   7
   8
   9 %% TODO: don't pollute global namespace in this way .
  10
  11
  12 #(define drum-pitch-names `(
  13         (acousticbassdrum bda   ,(make-pitch -3 6 0 ))
  14         (bassdrum         bd    ,(make-pitch -2 0 0 ))
  15         (hisidestick      ssh   ,(make-pitch -3 6 2))
  16         (sidestick        ss    ,(make-pitch -2 0 1))
  17         (losidestick      ssl   ,(make-pitch -2 1 -1))
  18         (acousticsnare    sna   ,(make-pitch -2 1 0))
  19         (snare            sn    ,(make-pitch -2 2 -2))
  20         (handclap         hc    ,(make-pitch -2 1 1))
  21         (electricsnare    sne   ,(make-pitch -2 2 0))
  22         (lowfloortom      tomfl ,(make-pitch -2 3 0))
  23         (closedhihat      hhc   ,(make-pitch -2 3 1))
  24         (hihat            hh    ,(make-pitch -2 4 -1))
  25         (highfloortom     tomfh ,(make-pitch -2 4 0))
  26         (pedalhihat       hhp   ,(make-pitch -2 4 1))
  27         (lowtom           toml  ,(make-pitch -2 5 0))
  28         (openhihat        hho   ,(make-pitch -2 5 1))
  29         (halfopenhihat    hhho  ,(make-pitch -2 5 1))
  30         (lowmidtom        tomml ,(make-pitch -2 6 0))
  31         (himidtom         tommh ,(make-pitch -1 0 0))
  32         (crashcymbala     cymca ,(make-pitch -1 0 1))
  33         (crashcymbal      cymc  ,(make-pitch -1 1 -1))
  34         (hightom          tomh  ,(make-pitch -1 1 0))
  35         (ridecymbala      cymra ,(make-pitch -1 1 1))
  36         (ridecymbal       cymr  ,(make-pitch -1 2 -1))
  37         (chinesecymbal    cymch ,(make-pitch -1 2 0))
  38         (ridebell         rb    ,(make-pitch -1 3 0))
  39         (tambourine       tamb  ,(make-pitch -1 3 1))
  40         (splashcymbal     cyms  ,(make-pitch -1 4 0))
  41         (cowbell          cb    ,(make-pitch -1 4 1))
  42         (crashcymbalb     cymcb ,(make-pitch -1 5 0))
  43         (vibraslap        vibs  ,(make-pitch -1 5 1))
  44         (ridecymbalb      cymrb ,(make-pitch -1 6 0))
  45         (hibongo          boh   ,(make-pitch 0 0 0))
  46         (lobongo          bol   ,(make-pitch 0 0 1))
  47         (mutehiconga      cghm  ,(make-pitch 0 1 0))
  48         (openhiconga      cgho  ,(make-pitch 0 1 1))
  49         (hiconga          cgh   ,(make-pitch 0 2 -1))
  50  (openloconga      cglo  ,(make-pitch 0 1 2))
  51         (loconga          cgl   ,(make-pitch 0 2 0))
  52         (hitimbale        timh  ,(make-pitch 0 3 0))
  53         (lotimbale        timl  ,(make-pitch 0 3 1))
  54         (hiagogo          agh   ,(make-pitch 0 4 0))
  55         (loagogo          agl   ,(make-pitch 0 4 1))
  56         (cabasa           cab   ,(make-pitch 0 5 0))
  57         (maracas          mar   ,(make-pitch 0 5 1))
  58         (shortwhistle     whs   ,(make-pitch 0 6 0))
  59         (longwhistle      whl   ,(make-pitch 1 0 0))
  60         (shortguiro       guis  ,(make-pitch 1 0 1))
  61         (longguiro        guil  ,(make-pitch 1 1 0))
  62         (guiro            gui   ,(make-pitch 1 0 2))
  63         (claves           cl    ,(make-pitch 1 1 1))
  64         (hiwoodblock      wbh   ,(make-pitch 1 2 0))
  65         (lowoodblock      wbl   ,(make-pitch 1 3 0))
  66         (mutecuica        cuim  ,(make-pitch 1 3 1))
  67         (opencuica        cuio  ,(make-pitch 1 4 0))
  68         (mutetriangle     trim  ,(make-pitch 1 4 1))
  69         (triangle         tri   ,(make-pitch 1 4 2))
  70         (opentriangle     trio  ,(make-pitch 1 5 0))
  71         ;; "transposing" pitches:
  72         (oneup            ua    ,(make-pitch 0 1 0))
  73         (twoup            ub    ,(make-pitch 0 2 0))
  74         (threeup          uc    ,(make-pitch 0 3 0))
  75         (fourup           ud    ,(make-pitch 0 4 0))
  76         (fiveup           ue    ,(make-pitch 0 5 0))
  77         (onedown          da    ,(make-pitch -1 6 0))
  78         (twodown          db    ,(make-pitch -1 5 0))
  79         (threedown        dc    ,(make-pitch -1 4 0))
  80         (fourdown         dd    ,(make-pitch -1 3 0))
  81         (fivedown         de    ,(make-pitch -1 2 0))
  82 ))
  83
  84 #(define drums `(
  85         (acousticbassdrum default       ,#f       ,(make-pitch -1 4 0))
  86         (bassdrum         default       ,#f       ,(make-pitch -1 4 0))
  87         (sidestick        cross         ,#f       ,(make-pitch 0 1 0))
  88         (acousticsnare    default       ,#f       ,(make-pitch 0 1 0))
  89         (snare            default       ,#f       ,(make-pitch 0 1 0))
  90         (handclap         triangle      ,#f       ,(make-pitch 0 1 0))
  91         (electricsnare    default       ,#f       ,(make-pitch 0 1 0))
  92         (lowfloortom      default       ,#f       ,(make-pitch -1 3 0))
  93         (closedhihat      cross         "stopped" ,(make-pitch 0 3 0))
  94         (hihat            cross         ,#f       ,(make-pitch 0 3 0))
  95         (highfloortom     default       ,#f       ,(make-pitch -1 5 0))
  96         (pedalhihat       cross         ,#f       ,(make-pitch -1 2 0))
  97         (lowtom           default       ,#f       ,(make-pitch 0 0 0))
  98         (openhihat        cross         "open"    ,(make-pitch 0 3 0))
  99         (halfopenhihat    xcircle       ,#f       ,(make-pitch 0 3 0))
 100         (lowmidtom        default       ,#f       ,(make-pitch 0 1 0))
 101         (himidtom         default       ,#f       ,(make-pitch 0 2 0))
 102         (crashcymbala     xcircle       ,#f       ,(make-pitch 0 5 0))
 103         (crashcymbal      xcircle       ,#f       ,(make-pitch 0 5 0))
 104         (hightom          default       ,#f       ,(make-pitch 0 4 0))
 105         (ridecymbala      cross         ,#f       ,(make-pitch 0 5 0))
 106         (ridecymbal       cross         ,#f       ,(make-pitch 0 5 0))
 107         (chinesecymbal    mensural      ,#f       ,(make-pitch 0 5 0))
 108         (ridebell         default       ,#f       ,(make-pitch 0 5 0))
 109         (splashcymbal     diamond       ,#f       ,(make-pitch 0 5 0))
 110         (cowbell          triangle      ,#f       ,(make-pitch 0 5 0))
 111         (crashcymbalb     cross         ,#f       ,(make-pitch 0 5 0))
 112         (vibraslap        diamond       ,#f       ,(make-pitch 0 4 0))
 113         (ridecymbalb      cross         ,#f       ,(make-pitch 0 5 0))
 114  ))
 115
 116 #(define timbales `(
 117         (losidestick      cross         ,#f       ,(make-pitch -1 6 0))
 118         (lotimbale        default       ,#f       ,(make-pitch -1 6 0))
 119         (cowbell          triangle      ,#f       ,(make-pitch 0 0 0))
 120         (hisidestick      cross         ,#f       ,(make-pitch 0 1 0))
 121         (hitimbale        default       ,#f       ,(make-pitch 0 1 0))
 122  ))
 123
 124 #(define congas `(
 125         (losidestick      cross         ,#f       ,(make-pitch -1 6 0))
 126         (loconga          default       ,#f       ,(make-pitch -1 6 0))
 127         (openloconga      default       ,"open"   ,(make-pitch -1 6 0))
 128         (hisidestick      cross         ,#f       ,(make-pitch 0 1 0))
 129         (hiconga          default       ,#f       ,(make-pitch 0 1 0))
 130         (openhiconga      default       "open"    ,(make-pitch 0 1 0))
 131         (mutehiconga      default       "stopped" ,(make-pitch 0 1 0))
 132
 133  ))
 134
 135 #(define bongos `(
 136         (lobongo          default       ,#f       ,(make-pitch -1 6 0))
 137         (hibongo          default       ,#f       ,(make-pitch 0 1 0))
 138  ))
 139
 140 #(define guiro `(
 141         (shortguiro       default       "staccato",(make-pitch 0 0 0))
 142         (longguiro        default       "tenuto"  ,(make-pitch 0 0 0))
 143         (guiro            default       ,#f       ,(make-pitch 0 0 0))
 144  ))
 145
 146 #(define triangle `(
 147         (opentriangle     cross         "open"    ,(make-pitch 0 0 0))
 148         (mutetriangle     cross         "stopped" ,(make-pitch 0 0 0))
 149         (triangle         cross         ,#f       ,(make-pitch 0 0 0))
 150  ))
 151
 152
 153
 154 \pitchnames
 155 #(append (map (lambda (x) (cons (car x) (caddr x))) drum-pitch-names)
 156          (map (lambda (x) (cons (cadr x) (caddr x))) drum-pitch-names)
 157  )
 158
 159
 160 \version "1.3.146"