From 9e3dee604087ade9971bcf63ea33f7e19e821040 Mon Sep 17 00:00:00 2001 From: fred Date: Wed, 27 Mar 2002 01:01:41 +0000 Subject: [PATCH] lilypond-1.3.153 --- ly/drumpitch.ly | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/ly/drumpitch.ly b/ly/drumpitch.ly index 84f5a55798..b55e8bb1f4 100644 --- a/ly/drumpitch.ly +++ b/ly/drumpitch.ly @@ -6,6 +6,9 @@ % 2001/03/25 Rune Zedeler +%% 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 )) @@ -44,6 +47,7 @@ (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)) @@ -120,10 +124,12 @@ #(define congas `( (losidestick cross ,#f ,(make-pitch -1 6 0)) (loconga default ,#f ,(make-pitch -1 6 0)) + (openloconga default ,"open" ,(make-pitch -1 6 0)) (hisidestick cross ,#f ,(make-pitch 0 1 0)) (hiconga default ,#f ,(make-pitch 0 1 0)) - (openhiconga default open" ,(make-pitch 0 1 0)) - (mutehiconga default stopped" ,(make-pitch 0 1 0)) + (openhiconga default "open" ,(make-pitch 0 1 0)) + (mutehiconga default "stopped" ,(make-pitch 0 1 0)) + )) #(define bongos `( -- 2.39.5