* lily/font-metric.cc (get_indexed_char_stencil): Bugfix: get

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

diff --git a/mf/feta-beugel.mf b/mf/feta-beugel.mf
index 3d6f6b037023f652a207ca6bd53821b0601d0adf..2b36afe51d1d30bc4a8b64f5eec710d06b7aa10a 100644 (file)
--- a/mf/feta-beugel.mf
+++ b/mf/feta-beugel.mf
@@ -1,17 +1,23 @@
-
+% 
+% feta-beugel.mf -- [Staff] braces
+% 
+% source file of the Feta (not an acronym for Font-En-Tja)
+% pretty-but-neat music font
+% 
+% (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+%                Jan Nieuwenhuizen <janneke@gnu.org>
 
 input feta-autometric;
 input feta-macros;
 
-staffsize#  := 20 pt#;  %% arbitrary.
-
+staffsize# := 20 pt#;   %% arbitrary.
 
 input feta-params;
 
 
 def abc_encode_int (expr i) =
        if i > 0:
-               abc_encode_int(i div 26)&char(65 + i mod 26)
+               abc_encode_int (i div 26) & char (65 + i mod 26)
        else:
                "A"
        fi
@@ -20,15 +26,15 @@ enddef ;
 % we must let the design increase for each
 % font to make sure that mftrace doesn't jack up the resolution too highly
 % for the longer braces.
-fet_beginfont("feta-braces-" &char(97 + font_count), (font_count + 1)* 15,
-               "fetaBraces");
+fet_beginfont ("feta-braces-" & char (97 + font_count), (font_count + 1) * 15,
+               "fetaBraces");
 
 mode_setup;
 
 
 
 save code;
-code := -1;
+code := 64;
 
 
 def draw_brace (expr height_sharp, width_sharp, slt_sharp) =
@@ -40,8 +46,9 @@ def draw_brace (expr height_sharp, width_sharp, slt_sharp) =
        slt# := slt_sharp;
 
 %% +1  is needed because fet_beginchar increments after dumping the strings.
-fet_beginchar("brace number "&(decimal (code + 1)), "brace"&abc_encode_int(code+1),
-               "brace"&abc_encode_int (code+1))
+fet_beginchar ("brace number " & (decimal (code + 1)),
+  "brace" & abc_encode_int (code - 64),
+  "brace" & abc_encode_int (code - 64))
 
        set_char_box (0, width#, height#/2, height#/2);