X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Ffeta-beugel.mf;h=f3fd05afbdef2201c88459421456d9afe79d5e42;hb=34a9bd581e3665910f83c54505c683120089f391;hp=3d6f6b037023f652a207ca6bd53821b0601d0adf;hpb=a1ac6142347beea8db846898b777b0e67cf9f83f;p=lilypond.git

diff --git a/mf/feta-beugel.mf b/mf/feta-beugel.mf
index 3d6f6b0370..f3fd05afbd 100644
--- a/mf/feta-beugel.mf
+++ b/mf/feta-beugel.mf
@@ -1,37 +1,35 @@
-
+% 
+% 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)
-	else:
-		"A"
-	fi
-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;
-
+save code, braces_per_font;
+code := 64;
+braces_per_font := 64;
 
-def draw_brace (expr height_sharp, width_sharp, slt_sharp) =
+def draw_brace (expr height_sharp, width_sharp, slt_sharp, brace_number) =
 
 	save pendir, height, width, thin, thick, slt;
 	save penangle;
@@ -40,8 +38,8 @@ 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 (brace_number)),
+		"brace" & decimal(brace_number))
 
 	set_char_box (0, width#, height#/2, height#/2);
 	  
@@ -79,19 +77,17 @@ linethickness := 0.5pt#;
 increment := 0.5pt#;
 y := 10pt#;
 
-
-
 for i := 0 step 1 until font_count:
 
-  %% We can't store more than 64 (65?) height dimensions in a TFM
-  %% file, so we make small files.
+  save number;
 
-  for j := 0 step 1 until 63:
+  number := braces_per_font * i;
+
+  for j := 0 step 1 until (braces_per_font -1):
     % message "l: "&decimal l;
     % note: define_pixels (x) multiplies x by hppp,
     % must never get bigger than infinity
     y := y + increment;
-
     if y > infinity/hppp:
       message "Resolution and/or magnification is too high";
       error please report: <bug-lilypond@gnu.org>;
@@ -105,8 +101,9 @@ for i := 0 step 1 until font_count:
     increment := x / 10;
     linethickness :=  min (0.5pt#, y/150);
     if i = font_count:
-      draw_brace (y, x, linethickness);
+      draw_brace (y, x, linethickness, number);
     fi
+    number := number + 1;
   endfor;
 endfor