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;