mf/feta-ital-p.mf

   1 % ital-p.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 p";
  13 % beginchar("p",9u#,x_height#,desc_depth#);
  14 "Dynamic letter p";
  15 beginchar(112, 9u#,x_height#,desc_depth#);
  16 italcorr .7x_height#*slant+.5curve#-u# if math_fitting:-.5u# fi;
  17 adjust_fit(0,0); pickup fine.nib;
  18 x0=0; x2-.5stem=hround(2.5u-.5stem); hook_in(0,1,2);  % opening hook
  19 pos4(hair,-180); pos5(vair,-90); pos6(curve,0); pos7(vair,90);
  20 x4=x2; rt x6r=hround(w-1.5u+.5curve); x5=x7=.5[x4,x6];
  21 bot y5r=-oo; top y7r=h+oo; y4=y6=.5[y5,y7];
  22 filldraw stroke super_arc.e(4,5) & pulled_arc.e(5,6)
  23  & pulled_arc.e(6,7) & super_arc.e(7,4);  % bowl
  24 pickup tiny.nib; pos2'(stem,0); pos3(stem,0);
  25 z2=z2'; x3=x2; bot y3=-d; filldraw stroke z2'e--z3e;  % stem
  26 dish_serif(3,2',a,1/3,.75jut,b,1/3,jut);  % serif
  27 math_fit(-min(2/3x_height#*slant-.5hair#-.5u#,
  28  2u#-.5stem#-desc_depth#*slant),ic#);
  29 penlabels(0,1,2,3,4,5,6,7); endchar;