release: 1.3.153

[lilypond.git] / ly / drumpitch.ly

diff --git a/ly/drumpitch.ly b/ly/drumpitch.ly
index addf137e3628d08abbef494bb709306ef6d8d792..b55e8bb1f48e2858004efb23e473e084dc7eabc0 100644 (file)
--- a/ly/drumpitch.ly
+++ b/ly/drumpitch.ly
@@ -6,6 +6,9 @@
 % 2001/03/25 Rune Zedeler <rune@zedeler.dk>
 
 
+%% 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))
@@ -64,7 +68,7 @@
        (mutetriangle     trim  ,(make-pitch 1 4 1))
        (triangle         tri   ,(make-pitch 1 4 2))
        (opentriangle     trio  ,(make-pitch 1 5 0))
-        "transposing" pitches:
+       ;; "transposing" pitches:
        (oneup            ua    ,(make-pitch 0 1 0))
        (twoup            ub    ,(make-pitch 0 2 0))
        (threeup          uc    ,(make-pitch 0 3 0))
@@ -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 `(