]> git.donarmstrong.com Git - lilypond.git/blob - mf/feta-ital-z.mf
partial: 1.0.1.jcn
[lilypond.git] / mf / feta-ital-z.mf
1 % ital-z.mf
2 % from itall.mf
3 %
4 % Computer Modern Italic lower case:
5 % This lowercase italic alphabet was prepared by D. E. Knuth in December, 1979,
6 % inspired by the Monotype faces used in {\sl The Art of Computer Programming}.
7 % The programs were revised for the new \MF\ conventions in 1985.
8
9 % Character codes \0141 through \0172 are generated.
10 %not
11
12 % cmchar "Italic letter z";
13 % beginchar("z",5.5u#+max(1.5u#,stem#),x_height#,0);
14 \"Dynamic letter z";
15 beginchar(incr num,5.5u#+max(1.5u#,stem#),x_height#,0);
16 italcorr x_height#*slant+.5hair#;
17 adjust_fit(if monospace:.5u#,.5u# else: 0,0 fi); pickup fine.nib;
18 pos1(hair,0); pos2(stem,-90); pos3(vair,-90); pos4(hair,0);
19 lft x1l=hround(u-.5hair); x2=2.5u; x3=w-2u; rt x4r=hround(w-.5u);
20 top y1=.78h; top y2l=top y4=h+oo; y3=.825h;
21 pos5(hair,0); pos6(vair,-90); pos7(stem,-90); pos8(hair,0);
22 x5=x1; x6=2.5u; x7=w-2u; x8+.5hair=hround(w+.5hair-eps);
23 bot y5=bot y7r=-oo; y6=.175h; bot y8=.31h;
24 pair p; p=(z4-z5) yscaled 2;
25 filldraw stroke z1e{up}...z2e{right}..z3e{right}...{p}z4e;  % upper bar
26 filldraw stroke z5e{p}...z6e{right}..{right}z7e...{up}z8e;  % lower bar
27 filldraw stroke z5e{p}..{p}z4e;  % diagonal
28 math_fit(0,1/3x_height#*slant+.5hair#+.5u#);
29 penlabels(1,2,3,4,5,6,7,8); endchar;