lilypond-1.5.36

diff --git a/mf/parmesan-custodes.mf b/mf/parmesan-custodes.mf
index 3efab9dfbe52c0d17a73e53c3ddd37dcf66a17f7..4b167fee0c3711ed5faf7a002e9a529defc75632 100644 (file)
--- a/mf/parmesan-custodes.mf
+++ b/mf/parmesan-custodes.mf
@@ -119,7 +119,7 @@ def custos_medicaea(expr verbose_name, internal_name, mudela_name,
                a_w := 1.09;
 
                save a, beta, ht, wd;
-               ht# = noteheight# * mag;
+               ht# = noteheight#; %%  * mag;
                2beta# = ht# * b_h;
                a# = beta# * a_b;
                wd# = 0.4a# / a_w;      % width intentionally too small
@@ -192,7 +192,7 @@ def custos_vaticana(expr verbose_name, internal_name, mudela_name,
                a_w := 1.09;
 
                save a, beta, ht, wd;
-               ht# = noteheight# * mag;
+               ht# = noteheight# ; %%  * mag;
                2beta# = ht# * b_h;
                a# = beta# * a_b;
                wd# = 0.4a# / a_w;

diff --git a/mf/parmesan-heads.mf b/mf/parmesan-heads.mf
index 33aeea3091b00b0058d6f301fce16ebed5d09020..ef9a78dcaf9309937630e37e3b1e199b407ac79e 100644 (file)
--- a/mf/parmesan-heads.mf
+++ b/mf/parmesan-heads.mf
@@ -272,7 +272,7 @@ def punctum_char (expr verbose_name, internal_name, mudela_name,
                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;
@@ -596,7 +596,7 @@ fet_beginchar("Solesmes oriscus", "0solesmes_oriscus",
        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;