* mf/feta-haak.mf: rewrite. Make separate glyphs for the tips
2005-05-28 Han-Wen Nienhuys <hanwen@xs4all.nl>
2005-05-28 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * mf/feta-haak.mf: further tweaks.
+
* lily/system-start-delimiter.cc (staff_bracket): use glyphs.
* mf/feta-generic.mf: include feta-haak.
* lily/system-start-delimiter.cc (staff_bracket): use glyphs.
* mf/feta-generic.mf: include feta-haak.
def draw_bracket(expr thick_sharp, width_sharp, updown) =
begingroup;
def draw_bracket(expr thick_sharp, width_sharp, updown) =
begingroup;
- save p, thin, thick, flattening, width, hair;
+ save p, thin, thick, flattening, width, hair, flare;
- flattening = 0.70;
- thick# := thick_sharp;
- width# := width_sharp;
+ flattening = 0.72;
+ thick# = thick_sharp;
+ flare# = flattening * width#;
+ width# = width_sharp;
- define_pixels (thick, width);
+ define_pixels (thick, width, flare);
if updown = 1:
set_char_box (0, width#,
if updown = 1:
set_char_box (0, width#,
- .5 thick# , flattening * width#);
else:
set_char_box (0, width#,
else:
set_char_box (0, width#,
- flattening * width#, .5 thick#);
fi;
thin = 2 linethickness;
hair = 1.25 linethickness;
pickup pencircle scaled thin;
fi;
thin = 2 linethickness;
hair = 1.25 linethickness;
pickup pencircle scaled thin;
+ z7 = z1 + (3/4 thick,0);
- top y5 = h;
- rt x5 = w;
+ top y5 = flare;
+ rt x5 = width;
save leave_angle;
leave_angle = 10;
save leave_angle;
leave_angle = 10;
enddef;
fet_beginchar ("bracket tip up", "up");
enddef;
fet_beginchar ("bracket tip up", "up");
- draw_bracket (0.45 staff_space#, 2.0 staff_space#, 1);
+ draw_bracket (0.45 staff_space#, 1.9 staff_space#, 1);
fet_endchar;
fet_beginchar ("bracket tip down", "down");
fet_endchar;
fet_beginchar ("bracket tip down", "down");
- draw_bracket (0.45 staff_space#, 2.0 staff_space#, -1);
+ draw_bracket (0.45 staff_space#, 1.9 staff_space#, -1);
fet_endchar;
fet_endgroup ("brackettips");
fet_endchar;
fet_endgroup ("brackettips");