* The grand 2005-2006 replace.

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

diff --git a/mf/feta-beugel.mf b/mf/feta-beugel.mf
index a671a67b03e359c907248c252f0dc5ac5f95201b..56dfaac264a6747d83b3c75997e6064561f310f1 100644 (file)
--- a/mf/feta-beugel.mf
+++ b/mf/feta-beugel.mf
@@ -4,7 +4,7 @@
 % source file of the Feta (not an acronym for Font-En-Tja)
 % pretty-but-neat music font
 %
-% (c) 1997--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+% (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 %                Jan Nieuwenhuizen <janneke@gnu.org>
 
 input feta-autometric;
@@ -64,13 +64,16 @@ def draw_brace (expr height_sharp, width_sharp, slt_sharp, brace_number) =
                penlabels (1, 2, 3);
                labels (0);
 
-               pat = z2r
-                     .. simple_serif (z3r, z3l, 90)
-                     .. z2l
-                     .. z1l{dir (angle (z1r - z1l) - 90)}
-                     .. z0{down}
-                     -- z1r{-dir (angle (z1l - z1r) + 90)}
-                     .. cycle;
+               pat := z2r
+                      .. simple_serif (z3r, z3l, 90)
+                      .. z2l
+                      .. z1l{dir (angle (z1r - z1l) - 90)}
+                      .. z0{down}
+                      .. z1r{-dir (angle (z1l - z1r) + 90)}
+                      .. cycle;
+               pat := subpath (0, 5) of pat
+                      -- subpath (6, 7) of pat
+                      .. cycle;
 
                fill pat;
                fill pat yscaled -1;