release: 1.4.1

[lilypond.git] / scm / clef.scm

diff --git a/scm/clef.scm b/scm/clef.scm
index 1d780f27c677f8773712874df61420033ed1a048..a6f11bd692de919ac1db0597d8756ee0f032e350 100644 (file)
--- 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)