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