mf/ital-s.mf

   1 % ital-s.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 s";
  13 % beginchar("s",5.25u#+max(1.75u#,flare#),x_height#,0);
  14 \"Dynamic letter s";
  15 beginchar(3,5.25u#+max(1.75u#,flare#),x_height#,0);
  16 italcorr x_height#*slant-.5u#;
  17 adjust_fit(0,0); pickup fine.nib;
  18 numeric theta; theta=90-angle(40u,h); slope:=-h/40u;  % angle at middle
  19 pos2(vair,-90); pos0(max(fine.breadth,ess),theta); pos7(vair,-90);
  20 x2l=x0=x7=.5w; top y2l=h+oo; bot y7r=-oo;
  21 y0-.5ess=y7l+.55(y2r-y7l-ess);
  22 lft x3l=hround u-eps; rt x6r=hround(w-.5u)+eps;
  23 x3r-x3l=x6r-x6l=hround .5[vair,ess]-fine;
  24 ellipse_set(2l,3l,4l,0l); ellipse_set(2r,3r,4r,0r); y3=y3r;
  25 ellipse_set(7l,6l,5l,0l); ellipse_set(7r,6r,5r,0r); y6=y6r;
  26 interim superness:=more_super;
  27 filldraw stroke super_arc.e(2,3) & z3e{down}
  28  ..z4e---z5e..z6e{down} & super_arc.e(6,7);  % main stroke
  29 pos1(hair,0); pos10(hround .75[hair,flare],0);
  30 pos2'(vair,90); z2'=z2;
  31 pos8(hair,-180); pos9(flare,-180);
  32 rt x10r=hround(w-u)+2eps; lft x9r=hround .5u-2eps; y10=.78h; y9=.25h;
  33 bulb(2',1,10); bulb(7,8,9);  % bulbs
  34 math_fit(0,ic#); penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar;