From: fred <fred>
Date: Wed, 27 Mar 2002 01:18:49 +0000 (+0000)
Subject: lilypond-1.4.1
X-Git-Tag: release/1.5.59~641
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7b92c5ad690427d78c869fbab2538ca87c1f9664;p=lilypond.git

lilypond-1.4.1
---

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)