mf/xhsld16.mf

   1 font_identifier:="xhsld16";
   2 mode_setup;
   3 font_size 16pt#;
   4 thick#:=1pt#;
   5 stepwidth#:=1/8designsize;% -> \internote
   6 define_pixels(stepwidth);
   7 define_blacker_pixels(thick);
   8 picture save_pic;
   9 numheights:=16;
  10 numlengths:=8;%(20-90pt)
  11
  12 code=-1;
  13 for j=1 upto numlengths:
  14   slength#:=(j+1)*10pt#;
  15   define_pixels(slength);
  16
  17   for i=1 upto numheights:
  18     beginchar(incr code, slength#, 0, 0);
  19       x1=y1=0;x3=slength;y3=2y1'= i*stepwidth;
  20       x1'=.5x3;z3'-z1'=whatever*dir(angle(z3-z1)+90);
  21       if x3> y3:y3'=0;else:x3'=slength;fi
  22       z2=.5[z3',z1'];
  23       penpos1(thick,90);
  24       penpos2(2/3thick,(angle(z3-z1)+90));
  25       penpos3(.15thick,(angle(z3-z1)+90));
  26       penstroke z1e..z2e..z3e;
  27       pickup pencircle; draw z1..z2..z3;% draw z1--z3; draw z1'--z3';
  28       save_pic:=currentpicture;
  29     endchar;
  30
  31     beginchar(128+code, slength#, 0, 0);
  32       currentpicture:=save_pic reflectedabout((.5slength,0),(.5slength, 1));
  33     endchar;
  34   endfor
  35
  36 endfor
  37 end