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.
6 % 2001/03/25 Rune Zedeler <rune@zedeler.dk>
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))
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))
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))
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))
130 (lobongo default
,#f ,(make-pitch -
1 6 0))
131 (hibongo default
,#f ,(make-pitch
0 1 0))
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))
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))
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
)