%
% source file of the Feta (not the Font-En-Tja) music font
%
-% (c) 2000--2004 Jan Nieuwenhuizen <janneke@gnu.org>
+% (c) 2000--2005 Jan Nieuwenhuizen <janneke@gnu.org>
%
% Voor Cup
pat := pat
.. cycle;
-
- % Uh, oh, there is a bug in metapost 0.641 which makes mf2pt1.mp's
- % redefinion of `fill' fail for this particular path, using a
- % wrong path orientation.
- %
- % Note that using `unfill' here makes the direct mpost output
- % wrong, but the `mf2pt1' script fixes it for the Type 1 output.
-
- if known bp_per_pixel:
- unfill pat;
- else:
- fill pat;
- fi;
+ fill pat;
pickup pencircle scaled (7/8 inner_r);
..tension 1.5.. z3e
..tension 2.5.. {dir (225)}z4e;
- soft_penstroke z8'e{right}
- ..tension 1.5.. z9e{dir (-pedalpha)}
- .. z10e
- ..tension 2.5.. z11e;
+ soft_end_penstroke z8'e{right}
+ ..tension 1.5.. z9e{dir (-pedalpha)}
+ .. z10e
+ ..tension 2.5.. z11e;
fill z4r{dir (225)}
..tension 1.5.. z5r{left}
penlabels (1, 2, 3, 4, 5);
fi;
- soft_penstroke z1e{dir (-10)}
- ..tension 1.1.. z2e{dir (-90 + 10)}
- ..tension 1.1.. z3e{left}
- ..tension 1.1.. z4e{up}
- ..tension 1.1.. z5e{dir (-70 + 90)};
+ soft_start_penstroke z1e{dir (-10)}
+ ..tension 1.1.. z2e{dir (-90 + 10)}
+ ..tension 1.1.. z3e{left}
+ ..tension 1.1.. z4e{up}
+ ..tension 1.1.. z5e{dir (-70 + 90)};
endgroup;
enddef;