From: Janek Warchol <lemniskata.bernoullego@gmail.com>
Date: Tue, 13 Sep 2011 15:19:58 +0000 (+0200)
Subject: variable fix
X-Git-Tag: release/2.15.12-1~23
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=67e06fc960b674bff40bffa0e7770f5e833e7285;p=lilypond.git

variable fix
---

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);