(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))
+ (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))
#(define timbales `(
(losidestick cross ,#f ,(make-pitch -1 6 0))
(lotimbale default ,#f ,(make-pitch -1 6 0))
- (cowbell triangle ,#f ,(make-pitch 0 0 0))
+ (cowbell triangle ,#f ,(make-pitch 0 2 0))
(hisidestick cross ,#f ,(make-pitch 0 1 0))
(hitimbale default ,#f ,(make-pitch 0 1 0))
))
(hibongo default ,#f ,(make-pitch 0 1 0))
))
-#(define guiro `(
- (shortguiro default "staccato",(make-pitch 0 0 0))
- (longguiro default "tenuto" ,(make-pitch 0 0 0))
- (guiro default ,#f ,(make-pitch 0 0 0))
- ))
-#(define triangle `(
+#(define percussion `(
(opentriangle cross "open" ,(make-pitch 0 0 0))
(mutetriangle cross "stopped" ,(make-pitch 0 0 0))
(triangle cross ,#f ,(make-pitch 0 0 0))
+ (shortguiro default "staccato",(make-pitch 0 0 0))
+ (longguiro default "tenuto" ,(make-pitch 0 0 0))
+ (guiro default ,#f ,(make-pitch 0 0 0))
+ (cowbell triangle ,#f ,(make-pitch 0 0 0))
+ (claves default ,#f ,(make-pitch 0 0 0))
+ (tambourine default ,#f ,(make-pitch 0 0 0))
+ (cabasa cross ,#f ,(make-pitch 0 0 0))
+ (maracas default ,#f ,(make-pitch 0 0 0))
+ (handclap default ,#f ,(make-pitch 0 0 0))
))
-
\pitchnames
#(append (map (lambda (x) (cons (car x) (caddr x))) drum-pitch-names)
(map (lambda (x) (cons (cadr x) (caddr x))) drum-pitch-names)