mf/xslhu.mf

   1 thick#:=1pt#;
   2 stepwidth#:=designsize/8;
   3 define_pixels(stepwidth);
   4 define_blacker_pixels(thick);
   5 picture save_pic;
   6 numheights:=16;
   7 numlengths:=8;%(12-96pt)
   8
   9 code=-1;
  10 for j=1 upto numlengths:
  11   slength#:=j*12pt#;
  12   define_pixels(slength);
  13
  14   for i=1 upto numheights:
  15     beginchar(incr code, slength#, 0, 0);
  16       x1=y1=0;x2=slength;y2=-i*stepwidth;
  17       penpos1(thick,90);
  18       penpos2(max(1,.15thick),min(2angle(z2-z1)+90,180));
  19       fill z1r{dir(1)}..{dir(min(2angle(z2-z1),90)-1)}z2r--
  20            z2l{dir(min(2angle(z2-z1)-180,-90))}..z1l{left}--cycle;
  21       save_pic:=currentpicture;
  22     endchar;
  23
  24     beginchar(128+code, slength#, 0, 0);
  25       currentpicture:=save_pic reflectedabout((.5slength,0),(.5slength, 1));
  26     endchar;
  27   endfor
  28
  29 endfor
  30 end