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 %% TODO: don't pollute global namespace in this way .
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))
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))
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))
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))
136 (lobongo default
,#f ,(make-pitch -
1 6 0))
137 (hibongo default
,#f ,(make-pitch
0 1 0))
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))
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))
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
)