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.
9
% Character codes \0141 through \0172 are generated.
12
% cmchar "Italic letter z";
13
% beginchar("z",5.5u#+max(1.5u#,stem#),x_height#,0);
15
beginchar(122,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;