mf/xtie20.mf

   1 font_identifier:="xtie20";
   2 mode_setup;
   3 font_size 20pt#;
   4 thick#:=1pt#;
   5 stepwidth#:=4pt#;
   6 define_pixels(stepwidth);
   7 define_blacker_pixels(thick);
   8 picture pic;
   9
  10 slope=.009;
  11
  12 for i=1 upto 100:
  13   beginchar((i-1),0,0,0);
  14     x3=-x1=.5i*stepwidth; x2=y1=y3=0; y2=slope*i*stepwidth;
  15     penpos1(thick,90); penpos2(thick,90); penpos3(thick,90);
  16     penstroke z1e..z2e..z3e;
  17     pic:= currentpicture;
  18   endchar;
  19
  20   beginchar((128+i-1),0,0,0);
  21     currentpicture:= pic reflectedabout(origin,right);
  22   endchar;
  23 endfor
  24 end