mf/ital-r.mf

   1 % ital-r.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 r";
  13 % beginchar("r",5.5u#+max(1.75u#,flare#),x_height#,0);
  14 \"Dynamic letter r";
  15 beginchar(incr num,5.5u#+max(1.75u#,flare#),x_height#,0);
  16 italcorr x_height#*slant;
  17 adjust_fit(if monospace:.25u#,.5u# else: 0,0 fi); pickup fine.nib;
  18 x0=0; x2=x3; pos3(stem,0); lft x3l=hround(2.5u-.5stem); y3-.5stem=-oo;
  19 hook_in(0,1,2);  % opening hook
  20 filldraw circ_stroke z3e--z2e;  % left stem
  21 pos3'(hair,180); z3'=z3; pos4(vair,90); pos5(hair,0); pos6(flare,0);
  22 x4=w-.5u-max(1.75u,flare); rt x5r=hround(r-.5u); top y4r=h+oo;
  23 filldraw stroke z3'e{up}...z4e{right};  % link
  24 y6+.5flare=vround(bot y4l-.03x_height); bulb(4,5,6);  % bulb
  25 math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#-.5u#);
  26 penlabels(0,1,2,3,4,5,6); endchar;