+
+
input feta-autometric;
input feta-macros;
+
+staffsize# := 20 pt#; %% arbitrary.
+
+
input feta-params;
-fet_beginfont("feta-braces", 16);
+font_coding_scheme "feta braces";
+
+% we set the designsize arbitrarily at 10
+% if the * 10 is left out, pktrace gets confused over the proper magnification,
+% and makes it too large.
+fet_beginfont("feta-braces", font_count * 10);
+
mode_setup;
-staffsize#:=16pt#;
+
save code;
-code := 0;
+code := -1;
+def abc_encode_int (expr i) =
+ if i > 0:
+ abc_encode_int(i div 26)&char(65 + i mod 26)
+ else:
+ "A"
+ fi
+enddef ;
+
def draw_brace (expr height_sharp, width_sharp, slt_sharp) =
save pendir, height, width, thin, thick, slt;
width# := width_sharp;
slt# := slt_sharp;
- beginchar(code, width#, height#/2, height#/2);
- code := incr 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);
define_pixels (height, width, slt);
thin = 2 slt;
.. z2l .. simple_serif (z1l, z1r, 90) ..cycle;
addto currentpicture also currentpicture yscaled -1;
-endchar;
+fet_endchar;
enddef;
save stafflinethickness;
save increment;
-stafflinethickness := 0.5pt#;
+linethickness := 0.5pt#;
increment := 0.5pt#;
y := 10pt#;
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