From c8c3250b13980ea36348f2996dc3f00b28dd8fd4 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 27 Mar 2002 02:06:17 +0000
Subject: [PATCH] lilypond-1.5.36

---
 mf/parmesan-custodes.mf | 4 ++--
 mf/parmesan-heads.mf    | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/mf/parmesan-custodes.mf b/mf/parmesan-custodes.mf
index 3efab9dfbe..4b167fee0c 100644
--- 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 33aeea3091..ef9a78dcaf 100644
--- 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;
-- 
2.39.5