From 67e06fc960b674bff40bffa0e7770f5e833e7285 Mon Sep 17 00:00:00 2001 From: Janek Warchol Date: Tue, 13 Sep 2011 17:19:58 +0200 Subject: [PATCH] variable fix --- mf/feta-noteheads.mf | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/mf/feta-noteheads.mf b/mf/feta-noteheads.mf index 8fee280831..60c51783da 100644 --- a/mf/feta-noteheads.mf +++ b/mf/feta-noteheads.mf @@ -118,9 +118,11 @@ def draw_longa (expr up) = quanted_line_length := max (0.77, line_length); fi; + final_line_length := quanted_line_length * staff_space; + if up: - bot y1 = -quanted_line_length * staff_space; - top y2 = quanted_line_length * staff_space; + bot y1 = -final_line_length; + top y2 = final_line_length; rt x1 - fudge = 0; x1 = x2; @@ -130,14 +132,14 @@ def draw_longa (expr up) = y3 = y1; else: bot y1 = -d - 3.0 staff_space; - top y2 = quanted_line_length * staff_space; + top y2 = final_line_length; rt x1 - fudge = 0; x1 = x2; fudge + lft x3 = width; x4 = x3; y4 = y2; - bot y3 = -quanted_line_length * staff_space; + bot y3 = -final_line_length; fi; draw_gridline (z1, z2, stemthick); -- 2.39.5