-%
-fet_beginchar("> accent", "sforzato", "sforzatoaccent")
- set_char_box(.9 staff_space#, .9 staff_space#, .5 staff_space#, .5 staff_space#);
- save thickness, diminish;
-
- thickness = 0.05 staff_space + linethickness;
- pickup pencircle scaled thickness;
-
- % prevent blobs at crossing lines
- diminish = 1.0;
-
- top y1 = h;
- lft x1 = -b;
- rt x2 = w;
- y2 = .25 thickness* diminish;
-
- rt z4 = (w,0);
- x3 = - linethickness + 0.1 staff_space;
- z3 = whatever [z1, z4];
-
- penpos2(thickness*(2 - diminish)/2 , 90);
- penpos1(thickness, 90);
- penpos3(thickness, 90);
-
- draw z1 .. z3;
- draw (z1 .. z3) yscaled -1;
- draw z4;
- penstroke z3e .. z2e;
- penstroke (z3e .. z2e) yscaled -1;