-input feta-autometric;
-input feta-macros;
-input feta-params;
-font_coding_scheme "feta braces";
+input feta-autometric;
+input feta-macros;
-fet_beginfont("feta-braces", 16);
-mode_setup;
+staffsize# := 20 pt#; %% arbitrary.
-staffsize#:=16pt#;
-save code;
-code := -1;
+input feta-params;
def abc_encode_int (expr i) =
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");
+
+mode_setup;
+
+
+
+save code;
+code := -1;
+
+
def draw_brace (expr height_sharp, width_sharp, slt_sharp) =
save pendir, height, width, thin, thick, slt;
width# := width_sharp;
slt# := slt_sharp;
-fet_beginchar("brace number "&(decimal code), "brace"&abc_encode_int(code),
- "brace"&abc_encode_int (code))
+%% +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))
set_char_box (0, width#, height#/2, height#/2);
save stafflinethickness;
save increment;
-stafflinethickness := 0.5pt#;
+linethickness := 0.5pt#;
increment := 0.5pt#;
y := 10pt#;
% message "l: "&decimal l;
% note: define_pixels (x) multiplies x by hppp,
% must never get bigger than infinity
- y := min (y + increment, infinity/hppp - 1);
+ y := y + increment;
+
+ if y > infinity/hppp:
+ message "Resolution and/or magnification is too high";
+ error please report: <bug-lilypond@gnu.org>;
+ fi
% x should be about one staff space, taking brace to have
% default height of 3 staffs, this yields height / 3 / 4 = 12
x := y / 15;
increment := x / 10;
- stafflinethickness := min (0.5pt#, y/150);
+ linethickness := min (0.5pt#, y/150);
if i = font_count:
- draw_brace (y, x, stafflinethickness);
+ draw_brace (y, x, linethickness);
fi
endfor;
endfor