From 93123503bc093331951a744c753c33dc0f6c48e3 Mon Sep 17 00:00:00 2001 From: Werner Lemberg Date: Sat, 26 May 2007 08:04:51 +0200 Subject: [PATCH] Fix stem thickness in clefs.medicaea.fa_change. --- mf/parmesan-clefs.mf | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/mf/parmesan-clefs.mf b/mf/parmesan-clefs.mf index 92355b4521..986839d5aa 100644 --- a/mf/parmesan-clefs.mf +++ b/mf/parmesan-clefs.mf @@ -304,12 +304,12 @@ def draw_medicaea_fa_clef (expr exact_center, reduction) = define_pixels (xoffs, yoffs); % stem - pickup pencircle scaled linethickness; + pickup pencircle scaled reduced_slt; x11 = x12 = xoffs + 0.4 reduced_il; y11 = yoffs = bot y12 + 1.5 reduced_il; - draw_rounded_block (bot lft z12, top rt z11, linethickness); + draw_rounded_block (bot lft z12, top rt z11, reduced_slt); % left-handed punctum save ellipse, T; @@ -322,7 +322,7 @@ def draw_medicaea_fa_clef (expr exact_center, reduction) = ellipse := reverse fullcircle transformed T; lft z13 = (xoffs, yoffs); - rt z14 = z11 + (linethickness / 2, 0); + rt z14 = z11 + (reduced_slt / 2, 0); fill get_subpath (ellipse, left, right, z13) -- get_subpath (ellipse, right, left, z14) -- 2.39.5