* lily/gregorian-ligature-engraver.cc,

[lilypond.git] / mf / parmesan-heads.mf

diff --git a/mf/parmesan-heads.mf b/mf/parmesan-heads.mf
index 8466e5116771dce1425e819a332e9dca152057fd..b686dc25034239ce9406226acf25e06492a5a045 100644 (file)
--- a/mf/parmesan-heads.mf
+++ b/mf/parmesan-heads.mf
@@ -3,7 +3,7 @@
 % 
 % source file of LilyPond's pretty-but-neat music font
 % 
-% (c) 2001--2002 Juergen Reuter <reuter@ipd.uka.de>
+% (c)  2001--2003 Juergen Reuter <reuter@ipd.uka.de>
 % 
 % Neo-mensural heads originally by
 % Christian Mondrup and Mats Bengtsson
@@ -276,18 +276,18 @@ fet_endchar;
 %
 
 % parameterized punctum
-def punctum_char (expr verbose_name, internal_name, mudela_name,
+def punctum_char (expr verbose_name, internal_name, ly_name,
                  left_stem, right_stem, linea, cavum,
                  straight, auctum, direction_up, excentric, up_shift, mag) =
 
-       fet_beginchar(verbose_name, internal_name, mudela_name)
+       fet_beginchar(verbose_name, internal_name, ly_name)
                save b_h, a_w;
                a_b := 1.54; % b_h*a_b/a_w = wd/ht
                b_h := 0.85;
                a_w := 1.09;
 
                save a, beta, ht, wd;
-               ht# = noteheight#;  %% * mag;
+               ht# = noteheight# * mag;
                2beta# = ht# * b_h;
                a# = beta# * a_b;
                wd# = 2a# / a_w;
@@ -434,10 +434,10 @@ def punctum_char (expr verbose_name, internal_name, mudela_name,
 enddef;
 
 % parameterized punctum inclinatum
-def inclinatum_char(expr verbose_name, internal_name, mudela_name,
+def inclinatum_char(expr verbose_name, internal_name, ly_name,
                    small, stropha, auctum) =
 
-       fet_beginchar(verbose_name, internal_name, mudela_name)
+       fet_beginchar(verbose_name, internal_name, ly_name)
                save ht, alpha;
                alpha# = 35;
                if small:
@@ -532,20 +532,25 @@ punctum_char("Ed. Vat. var pes upper punctum", "vaticana_vupes",
             false, false, false, false, true,
             false, false, false, true, 1.0);
 
-% small punctum as used in epiphonus/cephalicus
+% small punctum as used in epiphonus
 punctum_char("Ed. Vat. plica", "vaticana_plica", "vatplicahead",
-            false, false, false, false, true,
-            false, false, false, false, 0.5);
+            false, false, false, false, false,
+            false, false, false, false, 0.7);
 
 % excentric punctum as used in epiphonus
 punctum_char("Ed. Vat. epiphonus", "vaticana_epiphonus", "vatepiphonushead",
             false, false, false, false, false,
             false, true, true, false, 1.0);
 
+% small punctum as used in cephalicus
+punctum_char("Ed. Vat. rev. plica", "vaticana_reverse_plica", "vatrplicahead",
+            false, false, false, false, false,
+            false, true, false, false, 0.7);
+
 % excentric punctum as used in cephalicus
 punctum_char("Ed. Vat. cephalicus", "vaticana_cephalicus",
             "vatcephalicushead",
-            false, false, false, false, false,
+            true, false, false, false, false,
             false, false, true, false, 1.0);
 
 % quilisma
@@ -617,7 +622,7 @@ fet_beginchar("Solesmes oriscus", "solesmes_oriscus",
        a_w := 1.09;
 
        save a, beta, ht, wd;
-       ht# = noteheight#; %%  * mag;
+       ht# = noteheight#;
        2beta# = ht# * b_h;
        a# = beta# * a_b;
        wd# = 2a# / a_w;
@@ -653,10 +658,10 @@ fet_beginchar("Ed. Med. inclinatum", "medicaea_inclinatum",
 fet_endchar;
 
 % parametrized punctum
-def punctum_char (expr verbose_name, internal_name, mudela_name,
+def punctum_char (expr verbose_name, internal_name, ly_name,
        left_up_stem, left_down_stem) =
 
-       fet_beginchar(verbose_name, internal_name, mudela_name)
+       fet_beginchar(verbose_name, internal_name, ly_name)
 
                save a, beta, ht, wd;
                ht# = 2 staff_space#;
@@ -715,9 +720,9 @@ punctum_char("Ed. Med. virga", "medicaea_virga", "medvirgahead",
 
 % punctum
 % parametrized punctum
-def punctum_char (expr verbose_name, internal_name, mudela_name,
+def punctum_char (expr verbose_name, internal_name, ly_name,
        down_stem) =
-       fet_beginchar(verbose_name, internal_name, mudela_name)
+       fet_beginchar(verbose_name, internal_name, ly_name)
                save alpha;
                alpha# = 55;
                draw_diamond_head (staff_space#, 0, 0, alpha#, false);