From 75f9ad8925f73f7729e73597e76a6dcb379cc044 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Thu, 10 May 2001 15:12:46 +0000
Subject: [PATCH] lilypond-1.4.1

---
 scm/clef.scm | 35 +++++++++++++++++++----------------
 1 file changed, 19 insertions(+), 16 deletions(-)

diff --git a/scm/clef.scm b/scm/clef.scm
index 1d780f27c6..a6f11bd692 100644
--- a/scm/clef.scm
+++ b/scm/clef.scm
@@ -12,6 +12,7 @@
 	  ("soprano" . ("clefs-C" -4  0))
 	  ("mezzosoprano" . ("clefs-C" -2  0))
 	  ("alto" . ("clefs-C" 0 0))
+	  ("C" . ("clefs-C" 0 0))
 	  ("tenor" . ("clefs-C" 2 0))
 	  ("baritone" . ("clefs-C" 4  0))
 	  ("varbaritone"  . ("clefs-F" 0 0))
@@ -57,24 +58,26 @@
 	)
 )
 
-; "an alist mapping GLYPHNAME to the position of the central C for that symbol")
+
+;; "an alist mapping GLYPHNAME to the position of the central C for that symbol"
 (define c0-pitch-alist
   '(("clefs-G" . -4)
-	  ("clefs-C" . 0)
-	  ("clefs-F" . 4)
-	  ("clefs-vaticana_do" . 0)
-	  ("clefs-vaticana_fa" . 4)
-	  ("clefs-medicaea_do" . 0)
-	  ("clefs-medicaea_fa" . 4)
-	  ("clefs-hufnagel_do" . 0)
-	  ("clefs-hufnagel_fa" . 4)
-	  ("clefs-hufnagel_do_fa" . 0)
-	  ("clefs-mensural1_c" . 0)
-	  ("clefs-mensural2_c" . 0)
-	  ("clefs-mensural3_c" . 0)
-	  ("clefs-mensural1_f" . 4)
-	  ("clefs-mensural2_f" . 4)
-	  ("clefs-mensural_g" . -4))
+    ("clefs-C" . 0)
+    ("clefs-F" . 4)
+    ("clefs-percussion" . 0)
+    ("clefs-vaticana_do" . 0)
+    ("clefs-vaticana_fa" . 4)
+    ("clefs-medicaea_do" . 0)
+    ("clefs-medicaea_fa" . 4)
+    ("clefs-hufnagel_do" . 0)
+    ("clefs-hufnagel_fa" . 4)
+    ("clefs-hufnagel_do_fa" . 0)
+    ("clefs-mensural1_c" . 0)
+    ("clefs-mensural2_c" . 0)
+    ("clefs-mensural3_c" . 0)
+    ("clefs-mensural1_f" . 4)
+    ("clefs-mensural2_f" . 4)
+    ("clefs-mensural_g" . -4))
   )
 
 (define (clef-name-to-properties cl)
-- 
2.11.4.GIT