-%% TODO: don't pollute global namespace in this way .
-
-
-#(define drum-pitch-names `(
- (acousticbassdrum bda ,(make-pitch -3 6 0 ))
- (bassdrum bd ,(make-pitch -2 0 0 ))
- (hisidestick ssh ,(make-pitch -3 6 2))
- (sidestick ss ,(make-pitch -2 0 1))
- (losidestick ssl ,(make-pitch -2 1 -1))
- (acousticsnare sna ,(make-pitch -2 1 0))
- (snare sn ,(make-pitch -2 2 -2))
- (handclap hc ,(make-pitch -2 1 1))
- (electricsnare sne ,(make-pitch -2 2 0))
- (lowfloortom tomfl ,(make-pitch -2 3 0))
- (closedhihat hhc ,(make-pitch -2 3 1))
- (hihat hh ,(make-pitch -2 4 -1))
- (highfloortom tomfh ,(make-pitch -2 4 0))
- (pedalhihat hhp ,(make-pitch -2 4 1))
- (lowtom toml ,(make-pitch -2 5 0))
- (openhihat hho ,(make-pitch -2 5 1))
- (halfopenhihat hhho ,(make-pitch -2 5 1))
- (lowmidtom tomml ,(make-pitch -2 6 0))
- (himidtom tommh ,(make-pitch -1 0 0))
- (crashcymbala cymca ,(make-pitch -1 0 1))
- (crashcymbal cymc ,(make-pitch -1 1 -1))
- (hightom tomh ,(make-pitch -1 1 0))
- (ridecymbala cymra ,(make-pitch -1 1 1))
- (ridecymbal cymr ,(make-pitch -1 2 -1))
- (chinesecymbal cymch ,(make-pitch -1 2 0))
- (ridebell rb ,(make-pitch -1 3 0))
- (tambourine tamb ,(make-pitch -1 3 1))
- (splashcymbal cyms ,(make-pitch -1 4 0))
- (cowbell cb ,(make-pitch -1 4 1))
- (crashcymbalb cymcb ,(make-pitch -1 5 0))
- (vibraslap vibs ,(make-pitch -1 5 1))
- (ridecymbalb cymrb ,(make-pitch -1 6 0))
- (hibongo boh ,(make-pitch 0 0 0))
- (lobongo bol ,(make-pitch 0 0 1))
- (mutehiconga cghm ,(make-pitch 0 1 0))
- (openhiconga cgho ,(make-pitch 0 1 1))
- (hiconga cgh ,(make-pitch 0 2 -1))
- (openloconga cglo ,(make-pitch 0 1 2))
- (loconga cgl ,(make-pitch 0 2 0))
- (hitimbale timh ,(make-pitch 0 3 0))
- (lotimbale timl ,(make-pitch 0 3 1))
- (hiagogo agh ,(make-pitch 0 4 0))
- (loagogo agl ,(make-pitch 0 4 1))
- (cabasa cab ,(make-pitch 0 5 0))
- (maracas mar ,(make-pitch 0 5 1))
- (shortwhistle whs ,(make-pitch 0 6 0))
- (longwhistle whl ,(make-pitch 1 0 0))
- (shortguiro guis ,(make-pitch 1 0 1))
- (longguiro guil ,(make-pitch 1 1 0))
- (guiro gui ,(make-pitch 1 0 2))
- (claves cl ,(make-pitch 1 1 1))
- (hiwoodblock wbh ,(make-pitch 1 2 0))
- (lowoodblock wbl ,(make-pitch 1 3 0))
- (mutecuica cuim ,(make-pitch 1 3 1))
- (opencuica cuio ,(make-pitch 1 4 0))
- (mutetriangle trim ,(make-pitch 1 4 1))
- (triangle tri ,(make-pitch 1 4 2))
- (opentriangle trio ,(make-pitch 1 5 0))
+midiDrumPitches = #`(
+ (acousticbassdrum . ,(ly:make-pitch -3 6 NATURAL))
+ (bassdrum . ,(ly:make-pitch -2 0 NATURAL))
+ (hisidestick . ,(ly:make-pitch -3 6 DOUBLE-SHARP))
+ (sidestick . ,(ly:make-pitch -2 0 SHARP))
+ (losidestick . ,(ly:make-pitch -2 1 FLAT))
+ (acousticsnare . ,(ly:make-pitch -2 1 NATURAL))
+ (snare . ,(ly:make-pitch -2 2 DOUBLE-FLAT))
+ (handclap . ,(ly:make-pitch -2 1 SHARP))
+ (electricsnare . ,(ly:make-pitch -2 2 NATURAL))
+ (lowfloortom . ,(ly:make-pitch -2 3 NATURAL))
+ (closedhihat . ,(ly:make-pitch -2 3 SHARP))
+ (hihat . ,(ly:make-pitch -2 4 FLAT))
+ (highfloortom . ,(ly:make-pitch -2 4 NATURAL))
+ (pedalhihat . ,(ly:make-pitch -2 4 SHARP))
+ (lowtom . ,(ly:make-pitch -2 5 NATURAL))
+ (openhihat . ,(ly:make-pitch -2 5 SHARP))
+ (halfopenhihat . ,(ly:make-pitch -2 5 SHARP))
+ (lowmidtom . ,(ly:make-pitch -2 6 NATURAL))
+ (himidtom . ,(ly:make-pitch -1 0 NATURAL))
+ (crashcymbala . ,(ly:make-pitch -1 0 SHARP))
+ (crashcymbal . ,(ly:make-pitch -1 1 FLAT))
+ (hightom . ,(ly:make-pitch -1 1 NATURAL))
+ (ridecymbala . ,(ly:make-pitch -1 1 SHARP))
+ (ridecymbal . ,(ly:make-pitch -1 2 FLAT))
+ (chinesecymbal . ,(ly:make-pitch -1 2 NATURAL))
+ (ridebell . ,(ly:make-pitch -1 3 NATURAL))
+ (tambourine . ,(ly:make-pitch -1 3 SHARP))
+ (splashcymbal . ,(ly:make-pitch -1 4 NATURAL))
+ (cowbell . ,(ly:make-pitch -1 4 SHARP))
+ (crashcymbalb . ,(ly:make-pitch -1 5 NATURAL))
+ (vibraslap . ,(ly:make-pitch -1 5 SHARP))
+ (ridecymbalb . ,(ly:make-pitch -1 6 NATURAL))
+ (mutehibongo . ,(ly:make-pitch -1 6 SHARP))
+ (hibongo . ,(ly:make-pitch 0 0 NATURAL))
+ (openhibongo . ,(ly:make-pitch 0 1 DOUBLE-FLAT))
+ (mutelobongo . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
+ (lobongo . ,(ly:make-pitch 0 0 SHARP))
+ (openlobongo . ,(ly:make-pitch 0 1 FLAT))
+ (mutehiconga . ,(ly:make-pitch 0 1 NATURAL))
+ (muteloconga . ,(ly:make-pitch 0 2 DOUBLE-FLAT))
+ (openhiconga . ,(ly:make-pitch 0 1 SHARP))
+ (hiconga . ,(ly:make-pitch 0 2 FLAT))
+ (openloconga . ,(ly:make-pitch 0 1 DOUBLE-SHARP))
+ (loconga . ,(ly:make-pitch 0 2 NATURAL))
+ (hitimbale . ,(ly:make-pitch 0 3 NATURAL))
+ (lotimbale . ,(ly:make-pitch 0 3 SHARP))
+ (hiagogo . ,(ly:make-pitch 0 4 NATURAL))
+ (loagogo . ,(ly:make-pitch 0 4 SHARP))
+ (cabasa . ,(ly:make-pitch 0 5 NATURAL))
+ (maracas . ,(ly:make-pitch 0 5 SHARP))
+ (shortwhistle . ,(ly:make-pitch 0 6 NATURAL))
+ (longwhistle . ,(ly:make-pitch 1 0 NATURAL))
+ (shortguiro . ,(ly:make-pitch 1 0 SHARP))
+ (longguiro . ,(ly:make-pitch 1 1 NATURAL))
+ (guiro . ,(ly:make-pitch 1 0 DOUBLE-SHARP))
+ (claves . ,(ly:make-pitch 1 1 SHARP))
+ (hiwoodblock . ,(ly:make-pitch 1 2 NATURAL))
+ (lowoodblock . ,(ly:make-pitch 1 3 NATURAL))
+ (mutecuica . ,(ly:make-pitch 1 3 SHARP))
+ (opencuica . ,(ly:make-pitch 1 4 NATURAL))
+ (mutetriangle . ,(ly:make-pitch 1 4 SHARP))
+ (triangle . ,(ly:make-pitch 1 4 DOUBLE-SHARP))
+ (opentriangle . ,(ly:make-pitch 1 5 NATURAL))
+