]> git.donarmstrong.com Git - lilypond.git/blobdiff - mf/parmesan-clefs.mf
Web&CG: remove "projects" from HelpUs
[lilypond.git] / mf / parmesan-clefs.mf
index 1da30906bb4a457f8ab7cc6188bbaac7f4eb589f..34a09cf20bc40d7b0def688c2af66fc54731362f 100644 (file)
@@ -1727,28 +1727,33 @@ def draw_kievan_do_clef =
        fill z1
             .. z2{down}
             .. z3
-            & z3 -- z4
-            & z4 -- z5
-            & z5 .. {up}z6
-            & z6{left} .. z7
-            & z7 .. z8{up} .. z9
-            & z9 .. {right}z10
-            & z10 .. z11
-            & z11 -- cycle;
+            -- z4
+            -- z5
+            .. {up}z6
+            & z6{left}
+            .. z7
+            & z7
+            .. z8{up}
+            .. z9
+            & z9
+            .. {right}z10
+            & z10
+            .. z11
+            -- cycle;
 
        set_char_box (0, 1.5 staff_space#,
                      2.25 staff_space#, 0.55 staff_space#);
 enddef;
 
 
-fet_beginchar ("kievan tsefaut clef", "kievan.do");
+fet_beginchar ("Kievan tsefaut clef", "kievan.do");
        % This draws the Tse-Fa-Ut clef; it is a variant alto clef that
        % always occurs on the third line of the staff.
        draw_kievan_do_clef;
 fet_endchar;
 
 
-fet_beginchar ("mensural c clef", "kievan.do_change");
+fet_beginchar ("Kievan tsefaut clef", "kievan.do_change");
        % This is the same thing as a do clef?
        draw_kievan_do_clef;
 fet_endchar;