+
+
input feta-autometric;
input feta-macros;
+
+staffsize# := 20 pt#; %% arbitrary.
+
+
input feta-params;
font_coding_scheme "feta braces";
-fet_beginfont("feta-braces", font_count * 10 );
+% 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;
+
save code;
code := -1;
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