*** empty log message ***

diff --git a/mf/parmesan-clefs.mf b/mf/parmesan-clefs.mf
index 94b423a7ce8368016770c3cbaba2190683c07c9b..04c25621d7f18301bd19058c369a7caedc5d3a97 100644 (file)
--- a/mf/parmesan-clefs.mf
+++ b/mf/parmesan-clefs.mf
@@ -81,13 +81,13 @@ def draw_vaticana_do_clef(expr exact_center, reduction) =
 enddef;
 
 
-fet_beginchar("Ed. Vat. do clef", "vaticana-do")
+fet_beginchar("Ed. Vat. do clef", "vaticana.do")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_vaticana_do_clef((0,0), 1.0);
 fet_endchar;
-fet_beginchar("Ed. Vat. do clef", "vaticana-do_change")
+fet_beginchar("Ed. Vat. do clef", "vaticana.do_change")
        draw_vaticana_do_clef((0,0), 1.0); % no reduction
 fet_endchar;
 
@@ -129,13 +129,13 @@ def draw_vaticana_fa_clef(expr exact_center, reduction) =
 enddef;
 
 
-fet_beginchar("Ed. Vat. fa clef", "vaticana-fa")
+fet_beginchar("Ed. Vat. fa clef", "vaticana.fa")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_vaticana_fa_clef((0,0), 1.0);
 fet_endchar;
-fet_beginchar("Ed. Vat. fa clef", "vaticana-fa_change")
+fet_beginchar("Ed. Vat. fa clef", "vaticana.fa_change")
        draw_vaticana_fa_clef((0,0), 1.0); % no reduction
 fet_endchar;
 
@@ -196,13 +196,13 @@ def draw_medicaea_do_clef(expr exact_center, reduction) =
 enddef;
 
 
-fet_beginchar("Ed. Med. do clef", "medicaea-do")
+fet_beginchar("Ed. Med. do clef", "medicaea.do")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_medicaea_do_clef((0,0), 1.0);
 fet_endchar;
-fet_beginchar("Ed. Med. do clef", "medicaea-do_change")
+fet_beginchar("Ed. Med. do clef", "medicaea.do_change")
        draw_medicaea_do_clef((0,0), .8);
 fet_endchar;
 
@@ -247,13 +247,13 @@ def draw_medicaea_fa_clef(expr exact_center, reduction) =
 enddef;
 
 
-fet_beginchar("Ed. Med. fa clef", "medicaea-fa")
+fet_beginchar("Ed. Med. fa clef", "medicaea.fa")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_medicaea_fa_clef((0,0), 1.0);
 fet_endchar;
-fet_beginchar("Ed. Med. fa clef", "medicaea-fa_change")
+fet_beginchar("Ed. Med. fa clef", "medicaea.fa_change")
        draw_medicaea_fa_clef((0,0), .8);
 fet_endchar;
 
@@ -357,13 +357,13 @@ def draw_neomensural_c_clef(expr exact_center, reduction) =
 enddef;
 
 
-fet_beginchar("neo-mensural c clef", "neomensural-c")
+fet_beginchar("neo-mensural c clef", "neomensural.c")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_neomensural_c_clef((0,0), 1.0);
 fet_endchar;
-fet_beginchar("neo-mensural c clef", "neomensural-c_change")
+fet_beginchar("neo-mensural c clef", "neomensural.c_change")
        draw_neomensural_c_clef((0,0), .8);
 fet_endchar;
 
@@ -415,53 +415,53 @@ def draw_petrucci_c_clef(expr exact_center, flare_align, reduction) =
 enddef;
 
 
-fet_beginchar("petrucci c1 clef", "petrucci-c1")
+fet_beginchar("petrucci c1 clef", "petrucci.c1")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_petrucci_c_clef((0,0), +2, 1.0);
 fet_endchar;
-fet_beginchar("petrucci c1 clef", "petrucci-c1_change")
+fet_beginchar("petrucci c1 clef", "petrucci.c1_change")
        draw_petrucci_c_clef((0,0), +2, .8);
 fet_endchar;
 
-fet_beginchar("petrucci c2 clef", "petrucci-c2")
+fet_beginchar("petrucci c2 clef", "petrucci.c2")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_petrucci_c_clef((0,0), +1, 1.0);
 fet_endchar;
-fet_beginchar("petrucci c2 clef", "petrucci-c2_change")
+fet_beginchar("petrucci c2 clef", "petrucci.c2_change")
        draw_petrucci_c_clef((0,0), +1, .8);
 fet_endchar;
 
-fet_beginchar("petrucci c3 clef", "petrucci-c3")
+fet_beginchar("petrucci c3 clef", "petrucci.c3")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_petrucci_c_clef((0,0), 0, 1.0);
 fet_endchar;
-fet_beginchar("petrucci c3 clef", "petrucci-c3_change")
+fet_beginchar("petrucci c3 clef", "petrucci.c3_change")
        draw_petrucci_c_clef((0,0), 0, .8);
 fet_endchar;
 
-fet_beginchar("petrucci c4 clef", "petrucci-c4")
+fet_beginchar("petrucci c4 clef", "petrucci.c4")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_petrucci_c_clef((0,0), -1, 1.0);
 fet_endchar;
-fet_beginchar("petrucci c4 clef", "petrucci-c4_change")
+fet_beginchar("petrucci c4 clef", "petrucci.c4_change")
        draw_petrucci_c_clef((0,0), -1, .8);
 fet_endchar;
 
-fet_beginchar("petrucci c5 clef", "petrucci-c5")
+fet_beginchar("petrucci c5 clef", "petrucci.c5")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_petrucci_c_clef((0,0), -2, 1.0);
 fet_endchar;
-fet_beginchar("petrucci c5 clef", "petrucci-c5_change")
+fet_beginchar("petrucci c5 clef", "petrucci.c5_change")
        draw_petrucci_c_clef((0,0), -2, .8);
 fet_endchar;
 
@@ -505,13 +505,13 @@ def draw_mensural_c_clef(expr exact_center, reduction) =
 enddef;
 
 
-fet_beginchar("mensural c clef", "mensural-c")
+fet_beginchar("mensural c clef", "mensural.c")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_mensural_c_clef((0,0), 1.0);
 fet_endchar;
-fet_beginchar("mensural c clef", "mensural-c_change")
+fet_beginchar("mensural c clef", "mensural.c_change")
        draw_mensural_c_clef((0,0), .8);
 fet_endchar;
 
@@ -615,13 +615,13 @@ def draw_petrucci_f_clef(expr exact_center, reduction) =
 enddef;
 
 
-fet_beginchar("petrucci f clef", "petrucci-f")
+fet_beginchar("petrucci f clef", "petrucci.f")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_petrucci_f_clef((0,0), 1.0);
 fet_endchar;
-fet_beginchar("petrucci f clef", "petrucci-f_change")
+fet_beginchar("petrucci f clef", "petrucci.f_change")
        draw_petrucci_f_clef((0,0), .8);
 fet_endchar;
 
@@ -675,13 +675,13 @@ def draw_mensural_f_clef(expr exact_center, reduction) =
                     0.5width# + ypart exact_center);
 enddef;
 
-fet_beginchar("mensural f clef", "mensural-f")
+fet_beginchar("mensural f clef", "mensural.f")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_mensural_f_clef((0,0), 1.0);
 fet_endchar;
-fet_beginchar("mensural f clef", "mensural-f_change")
+fet_beginchar("mensural f clef", "mensural.f_change")
        draw_mensural_f_clef((0,0), .8);
 fet_endchar;
 
@@ -746,13 +746,13 @@ def draw_petrucci_g_clef(expr exact_center, reduction) =
 enddef;
 
 
-fet_beginchar("petrucci g clef", "petrucci-g")
+fet_beginchar("petrucci g clef", "petrucci.g")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_petrucci_g_clef((0,0), 1.0);
 fet_endchar;
-fet_beginchar("petrucci g clef", "petrucci-g_change")
+fet_beginchar("petrucci g clef", "petrucci.g_change")
        draw_petrucci_g_clef((0,0), .8);
 fet_endchar;
 
@@ -777,13 +777,13 @@ enddef;
 % FIXME: This clef is preliminarily mapped to the petrucci g clef
 % until the code for the mensural g clef will be rewritten.
 %
-fet_beginchar("mensural g clef", "mensural-g")
+fet_beginchar("mensural g clef", "mensural.g")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_petrucci_g_clef((0,0), 1.0);
 fet_endchar;
-fet_beginchar("mensural g clef", "mensural-g_change")
+fet_beginchar("mensural g clef", "mensural.g_change")
        draw_petrucci_g_clef((0,0), .8);
 fet_endchar;
 
@@ -835,13 +835,13 @@ def draw_hufnagel_do_clef(expr exact_center, reduction) =
 enddef;
 
 
-fet_beginchar("Hufnagel do clef", "hufnagel-do")
+fet_beginchar("Hufnagel do clef", "hufnagel.do")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_hufnagel_do_clef((0,0), 1.0);
 fet_endchar;
-fet_beginchar("Hufnagel do clef", "hufnagel-do_change")
+fet_beginchar("Hufnagel do clef", "hufnagel.do_change")
        draw_hufnagel_do_clef((0,0), .8);
 fet_endchar;
 
@@ -892,13 +892,13 @@ def draw_hufnagel_fa_clef(expr exact_center, reduction) =
 enddef;
 
 
-fet_beginchar("Hufnagel fa clef", "hufnagel-fa")
+fet_beginchar("Hufnagel fa clef", "hufnagel.fa")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_hufnagel_fa_clef((0,0), 1.0);
 fet_endchar;
-fet_beginchar("Hufnagel fa clef", "hufnagel-fa_change")
+fet_beginchar("Hufnagel fa clef", "hufnagel.fa_change")
        draw_hufnagel_fa_clef((0,0), .8);
 fet_endchar;
 
@@ -913,13 +913,13 @@ def draw_hufnagel_do_fa_clef(expr exact_center, reduction) =
 enddef;
 
 
-fet_beginchar("Hufnagel do/fa clef", "hufnagel-do-fa")
+fet_beginchar("Hufnagel do/fa clef", "hufnagel.do.fa")
        if test = 1:
                draw_staff(-1,3, 0.0);
        fi;
        draw_hufnagel_do_fa_clef((0,0), 1.0);
 fet_endchar;
-fet_beginchar("Hufnagel do/fa clef", "hufnagel-do-fa_change")
+fet_beginchar("Hufnagel do/fa clef", "hufnagel.do.fa_change")
        draw_hufnagel_do_fa_clef((0,0), .8);
 fet_endchar;
 

diff --git a/mf/parmesan-custodes.mf b/mf/parmesan-custodes.mf
index 3864dcf5a41eb5398577958cec0ba7e83075daf7..a2bfff9078ad2e3df760626b4aba6bf9b16f711b 100644 (file)
--- a/mf/parmesan-custodes.mf
+++ b/mf/parmesan-custodes.mf
@@ -100,27 +100,27 @@ def custos_hufnagel(expr verbose_name, internal_name,
 enddef;
 
 % custos hufnagel, stem up, between staff lines
-custos_hufnagel("Custos Hufnagel", "hufnagel-u0", 
+custos_hufnagel("Custos Hufnagel", "hufnagel.u0", 
                dir_up, between_staff_lines);
 
 % custos hufnagel, stem up, on staff line
-custos_hufnagel("Custos Hufnagel", "hufnagel-u1", 
+custos_hufnagel("Custos Hufnagel", "hufnagel.u1", 
                dir_up, on_staff_line);
 
 % custos hufnagel, stem up, anywhere
-custos_hufnagel("Custos Hufnagel", "hufnagel-u2", 
+custos_hufnagel("Custos Hufnagel", "hufnagel.u2", 
                dir_up, anywhere);
 
 % custos hufnagel, stem down, between staff lines
-custos_hufnagel("Reverse Custos Hufnagel", "hufnagel-d0",
+custos_hufnagel("Reverse Custos Hufnagel", "hufnagel.d0",
                dir_down, between_staff_lines);
 
 % custos hufnagel, stem down, on staff line
-custos_hufnagel("Reverse Custos Hufnagel", "hufnagel-d1",
+custos_hufnagel("Reverse Custos Hufnagel", "hufnagel.d1",
                dir_down, on_staff_line);
 
 % custos hufnagel, stem down, anywhere
-custos_hufnagel("Reverse Custos Hufnagel", "hufnagel-d2",
+custos_hufnagel("Reverse Custos Hufnagel", "hufnagel.d2",
                dir_down, anywhere);
 
 %%%%%%%%
@@ -172,27 +172,27 @@ def custos_medicaea(expr verbose_name, internal_name,
 enddef;
 
 % custos medicaea, stem up, between staff lines
-custos_medicaea("Custos Med.", "medicaea-u0", 
+custos_medicaea("Custos Med.", "medicaea.u0", 
                dir_up, between_staff_lines);
 
 % custos medicaea, stem up, on staff line
-custos_medicaea("Custos Med.", "medicaea-u1", 
+custos_medicaea("Custos Med.", "medicaea.u1", 
                dir_up, on_staff_line);
 
 % custos medicaea, stem up, anywhere
-custos_medicaea("Custos Med.", "medicaea-u2", 
+custos_medicaea("Custos Med.", "medicaea.u2", 
                dir_up, anywhere);
 
 % custos medicaea, stem down, between staff lines
-custos_medicaea("Reverse Custos Med.", "medicaea-d0", 
+custos_medicaea("Reverse Custos Med.", "medicaea.d0", 
                dir_down, between_staff_lines);
 
 % custos medicaea, stem down, on staff line
-custos_medicaea("Reverse Custos Med.", "medicaea-d1", 
+custos_medicaea("Reverse Custos Med.", "medicaea.d1", 
                dir_down, on_staff_line);
 
 % custos medicaea, stem down, anywhere
-custos_medicaea("Reverse Custos Med.", "medicaea-d2", 
+custos_medicaea("Reverse Custos Med.", "medicaea.d2", 
                dir_down, anywhere);
 
 %%%%%%%%
@@ -253,27 +253,27 @@ def custos_vaticana(expr verbose_name, internal_name,
 enddef;
 
 % custos vaticana, stem up, between staff lines
-custos_vaticana("Custos Ed. Vat.", "vaticana-u0", 
+custos_vaticana("Custos Ed. Vat.", "vaticana.u0", 
                dir_up, between_staff_lines);
 
 % custos vaticana, stem up, on staff line
-custos_vaticana("Custos Ed. Vat.", "vaticana-u1", 
+custos_vaticana("Custos Ed. Vat.", "vaticana.u1", 
                dir_up, on_staff_line);
 
 % custos vaticana, stem up, anywhere
-custos_vaticana("Custos Ed. Vat.", "vaticana-u2", 
+custos_vaticana("Custos Ed. Vat.", "vaticana.u2", 
                dir_up, anywhere);
 
 % custos vaticana, stem down, between staff lines
-custos_vaticana("Reverse Custos Ed. Vat.", "vaticana-d0", 
+custos_vaticana("Reverse Custos Ed. Vat.", "vaticana.d0", 
                dir_down, between_staff_lines);
 
 % custos vaticana, stem down, on_staff_line
-custos_vaticana("Reverse Custos Ed. Vat.", "vaticana-d1", 
+custos_vaticana("Reverse Custos Ed. Vat.", "vaticana.d1", 
                dir_down, on_staff_line);
 
 % custos vaticana, stem down, anywhere
-custos_vaticana("Reverse Custos Ed. Vat.", "vaticana-d2", 
+custos_vaticana("Reverse Custos Ed. Vat.", "vaticana.d2", 
                dir_down, anywhere);
 
 %%%%%%%%
@@ -331,27 +331,27 @@ def custos_mensural(expr verbose_name, internal_name,
 enddef;
 
 % custos mensural, stem up, between staff lines
-custos_mensural("Custos Mensural", "mensural-u0", 
+custos_mensural("Custos Mensural", "mensural.u0", 
                dir_up, between_staff_lines);
 
 % custos mensural, stem up, on staff line
-custos_mensural("Custos Mensural", "mensural-u1", 
+custos_mensural("Custos Mensural", "mensural.u1", 
                dir_up, on_staff_line);
 
 % custos mensural, stem up, anywhere
-custos_mensural("Custos Mensural", "mensural-u2", 
+custos_mensural("Custos Mensural", "mensural.u2", 
                dir_up, anywhere);
 
 % custos mensural, stem down, between staff lines
-custos_mensural("Reverse Custos Mensural", "mensural-d0", 
+custos_mensural("Reverse Custos Mensural", "mensural.d0", 
                dir_down, between_staff_lines);
 
 % custos mensural, stem down, on staff line
-custos_mensural("Reverse Custos Mensural", "mensural-d1", 
+custos_mensural("Reverse Custos Mensural", "mensural.d1", 
                dir_down, on_staff_line);
 
 % custos mensural, stem down, anywhere
-custos_mensural("Reverse Custos Mensural", "mensural-d2", 
+custos_mensural("Reverse Custos Mensural", "mensural.d2", 
                dir_down, anywhere);
 
 fet_endgroup ("custodes")

diff --git a/mf/parmesan-heads.mf b/mf/parmesan-heads.mf
index de98f89d479c2665c30a55cec78395c1b10c3883..e425f16ced45c78d7200cf48d2d344fa98276eb6 100644 (file)
--- a/mf/parmesan-heads.mf
+++ b/mf/parmesan-heads.mf
@@ -510,41 +510,41 @@ def inclinatum_char(expr verbose_name, internal_name,
 enddef;
 
 % punctum
-punctum_char("Ed. Vat. punctum", "vaticana-punctum",
+punctum_char("Ed. Vat. punctum", "vaticana.punctum",
             false, false, false, false, false,
             false, false, false, false, false, 1.0);
 
 % punctum cavum (for OpusTeX compatibility)
-punctum_char("Ed. Vat. punctum cavum", "vaticana-punctum-cavum",
+punctum_char("Ed. Vat. punctum cavum", "vaticana.punctum.cavum",
             false, false, false, true, false,
             false, false, false, false, false, 1.0);
 
 % linea punctum (for OpusTeX compatibility)
-punctum_char("Ed. Vat. linea punctum", "vaticana-linea-punctum",
+punctum_char("Ed. Vat. linea punctum", "vaticana.linea.punctum",
             false, false, true, false, false,
             false, false, false, false, false, 1.0);
 
 % linea punctum cavum (for OpusTeX compatibility)
-punctum_char("Ed. Vat. linea punctum cavum", "vaticana-linea-punctum-cavum",
+punctum_char("Ed. Vat. linea punctum cavum", "vaticana.linea.punctum.cavum",
             false, false, true, true, false,
             false, false, false, false, false, 1.0);
 
 % punctum inclinatum
-inclinatum_char("Ed. Vat. inclinatum", "vaticana-inclinatum",
+inclinatum_char("Ed. Vat. inclinatum", "vaticana.inclinatum",
                false, false, false);
 
 % pes lower punctum
-punctum_char("Ed. Vat. pes lower punctum", "vaticana-lpes",
+punctum_char("Ed. Vat. pes lower punctum", "vaticana.lpes",
             false, false, false, false, true,
             false, true, false, false, false, 1.0);
 
 % pes lower punctum
-punctum_char("Ed. Vat. pes var lower punctum", "vaticana-vlpes",
+punctum_char("Ed. Vat. pes var lower punctum", "vaticana.vlpes",
             false, false, false, false, true,
             false, true, false, false, true, 1.0);
 
 % pes upper punctum
-punctum_char("Ed. Vat. pes upper punctum", "vaticana-upes", 
+punctum_char("Ed. Vat. pes upper punctum", "vaticana.upes", 
             false, false, false, false, true,
             false, false, false, false, false, 1.0);
 
@@ -554,17 +554,17 @@ punctum_char("Ed. Vat. pes upper punctum", "vaticana-upes",
 % avoid collision with the lower punctum note of the pes when the upper
 % punctum sits directly on top of the lower punctum.
 %
-punctum_char("Ed. Vat. var pes upper punctum", "vaticana-vupes",
+punctum_char("Ed. Vat. var pes upper punctum", "vaticana.vupes",
             false, false, false, false, true,
             false, false, false, true, false, 1.0);
 
 % small punctum as used in epiphonus
-punctum_char("Ed. Vat. plica", "vaticana-plica", 
+punctum_char("Ed. Vat. plica", "vaticana.plica", 
             false, false, false, false, false,
             false, false, false, false, false, 0.6);
 
 % excentric punctum as used in epiphonus
-punctum_char("Ed. Vat. epiphonus", "vaticana-epiphonus", 
+punctum_char("Ed. Vat. epiphonus", "vaticana.epiphonus", 
             false, false, false, false, false,
             false, true, true, false, false, 1.0);
 
@@ -574,27 +574,27 @@ punctum_char("Ed. Vat. epiphonus", "vaticana-epiphonus",
 % avoid collision with the plica head when the plica sits directly on
 % top of the lower head.
 %
-punctum_char("Ed. Vat. var epiphonus", "vaticana-vepiphonus",
+punctum_char("Ed. Vat. var epiphonus", "vaticana.vepiphonus",
             false, false, false, false, false,
             false, true, true, false, true, 1.0);
 
 % small punctum as used in cephalicus
-punctum_char("Ed. Vat. rev. plica", "vaticana-reverse-plica",
+punctum_char("Ed. Vat. rev. plica", "vaticana.reverse.plica",
             false, false, false, false, false,
             false, true, false, false, false, 0.6);
 
 % excentric punctum as used in cephalicus; without left stem
-punctum_char("Ed. Vat. cephalicus", "vaticana-inner-cephalicus",
+punctum_char("Ed. Vat. cephalicus", "vaticana.inner.cephalicus",
             false, false, false, false, false,
             false, false, true, false, false, 1.0);
 
 % excentric punctum as used in cephalicus; with left stem
-punctum_char("Ed. Vat. cephalicus", "vaticana-cephalicus",
+punctum_char("Ed. Vat. cephalicus", "vaticana.cephalicus",
             true, false, false, false, false,
             false, false, true, false, false, 1.0);
 
 % quilisma
-fet_beginchar("Ed. Vat. quilisma", "vaticana-quilisma")
+fet_beginchar("Ed. Vat. quilisma", "vaticana.quilisma")
        save b_h,a_w;
        a_b:=1.54; % b_h*a_b/a_w = wd/ht
        b_h:=0.85;
@@ -621,33 +621,33 @@ fet_beginchar("Ed. Vat. quilisma", "vaticana-quilisma")
 fet_endchar;
 
 % solesmes punctum inclinatum parvum
-inclinatum_char("Solesmes punctum inclinatum parvum", "solesmes-incl-parvum",
+inclinatum_char("Solesmes punctum inclinatum parvum", "solesmes.incl.parvum",
                true, false, false);
 
 % solesmes punctum auctum ascendens
-punctum_char("Solesmes punctum auctum ascendens", "solesmes-auct-asc",
+punctum_char("Solesmes punctum auctum ascendens", "solesmes.auct.asc",
             false, false, false, false, false,
             true, true, false, false, false, 1.0);
 
 % solesmes punctum auctum descendens
-punctum_char("Solesmes punctum auctum descendens", "solesmes-auct-desc",
+punctum_char("Solesmes punctum auctum descendens", "solesmes.auct.desc",
             false, false, false, false, false,
             true, false, false, false, false, 1.0);
 
 % solesmes punctum inclinatum auctum
-inclinatum_char("Solesmes punctum incl. auctum", "solesmes-incl-auctum",
+inclinatum_char("Solesmes punctum incl. auctum", "solesmes.incl.auctum",
                false, false, true);
 
 % solesmes stropha
-inclinatum_char("Solesmes stropha", "solesmes-stropha",
+inclinatum_char("Solesmes stropha", "solesmes.stropha",
                false, true, false);
 
 % solesmes stropha aucta
-inclinatum_char("Solesmes stropha aucta", "solesmes-stropha-aucta",
+inclinatum_char("Solesmes stropha aucta", "solesmes.stropha.aucta",
                false, true, true);
 
 % solesmes oriscus
-fet_beginchar("Solesmes oriscus", "solesmes-oriscus")
+fet_beginchar("Solesmes oriscus", "solesmes.oriscus")
        save b_h, a_w;
        a_b := 1.54; % b_h*a_b/a_w = wd/ht
        b_h := 0.85;
@@ -684,7 +684,7 @@ fet_endchar;
 %
 
 % inclinatum
-fet_beginchar("Ed. Med. inclinatum", "medicaea-inclinatum")
+fet_beginchar("Ed. Med. inclinatum", "medicaea.inclinatum")
        draw_diamond_head (1.2staff_space#, 0, 0, 35, false);
 fet_endchar;
 
@@ -729,15 +729,15 @@ def punctum_char (expr verbose_name, internal_name,
 enddef;
 
 % punctum
-punctum_char("Ed. Med. punctum", "medicaea-punctum", 
+punctum_char("Ed. Med. punctum", "medicaea.punctum", 
        false, false);
 
 % left up-stemmed punctum
-punctum_char("Ed. Med. reverse virga", "medicaea-rvirga",
+punctum_char("Ed. Med. reverse virga", "medicaea.rvirga",
        true, false);
 
 % virga (i.e. left down-stemmed punctum)
-punctum_char("Ed. Med. virga", "medicaea-virga", 
+punctum_char("Ed. Med. virga", "medicaea.virga", 
        false, true);
 
 %%%%%%%%
@@ -773,13 +773,13 @@ def punctum_char (expr verbose_name, internal_name,
 enddef;
 
 % punctum
-punctum_char("Hufnagel punctum", "hufnagel-punctum", false)
+punctum_char("Hufnagel punctum", "hufnagel.punctum", false)
 
 % virga
-punctum_char("Hufnagel virga", "hufnagel-virga",  true)
+punctum_char("Hufnagel virga", "hufnagel.virga",  true)
 
 % pes lower punctum
-fet_beginchar("Hufnagel pes lower punctum", "hufnagel-lpes")
+fet_beginchar("Hufnagel pes lower punctum", "hufnagel.lpes")
        save width, height, alpha;
        width# = 2*staff_space#;
        height# = 0.7*staff_space#;