From 9ebfee8ab39c759036b14b29f17a3232b7746fe3 Mon Sep 17 00:00:00 2001 From: fred Date: Wed, 27 Mar 2002 02:04:47 +0000 Subject: [PATCH] lilypond-1.5.27 --- ly/drumpitch-init.ly | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/ly/drumpitch-init.ly b/ly/drumpitch-init.ly index 211246f081..c70b18e0fe 100644 --- a/ly/drumpitch-init.ly +++ b/ly/drumpitch-init.ly @@ -116,7 +116,7 @@ #(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)) )) @@ -137,20 +137,23 @@ (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) -- 2.39.5