Fixing height of Kievan bar line

[lilypond.git] / mf / feta-noteheads.mf

diff --git a/mf/feta-noteheads.mf b/mf/feta-noteheads.mf
index 8fee28083196dc04663c78dd38afb1697742b8e0..c45969ed6a60da78bbdb1117307c57477d7e7dae 100644 (file)
--- a/mf/feta-noteheads.mf
+++ b/mf/feta-noteheads.mf
@@ -1,7 +1,7 @@
 % Feta (not the Font-En-Tja) music font -- implement noteheads
 % This file is part of LilyPond, the GNU music typesetter.
 %
-% Copyright (C) 1997--2011 Jan Nieuwenhuizen <janneke@gnu.org>
+% Copyright (C) 1997--2012 Jan Nieuwenhuizen <janneke@gnu.org>
 % & Han-Wen Nienhuys <hanwen@xs4all.nl>
 % & Juergen Reuter <reuter@ipd.uka.de>
 %
@@ -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);