% 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>
+% (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
% Jan Nieuwenhuizen <janneke@gnu.org>
input feta-autometric;
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,
+fet_beginfont ("feta-braces-" & char (97 + font_count), (font_count + 1) * 20,
"fetaBraces");
mode_setup;
-save code;
+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;
slt# := slt_sharp;
%% +1 is needed because fet_beginchar increments after dumping the strings.
-fet_beginchar ("brace number " & (decimal (code + 1)),
- "brace" & decimal code)
+fet_beginchar ("brace number " & (decimal (brace_number)),
+ "brace" & decimal(brace_number))
set_char_box (0, width#, height#/2, height#/2);
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;
+
+ number := braces_per_font * i;
- for j := 0 step 1 until 63:
+ 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>;
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