mf/xdrawzl.mf

   1 %(c)
   2
   3 min_bow:=  .4nhh;
   4 max_bow:= 1.75nhh;
   5 slope:= 10/100;
   6
   7 code=-1;
   8
   9 for i=1 upto numslurs:
  10   beginchar(incr code, 0, 0, 0);
  11     mw:=(minwidth+code*delwidth)*pt;
  12     x3= -x1= .5mw; x2= y1= y3 = 0;
  13     y2= max(min_bow, slope*mw);
  14     y2:= min(y2, max_bow);
  15     penpos1(.15thick,90); penpos2(thick,90); penpos3(.15thick,90);
  16     penstroke (flex(z1e,z2e,z3e));
  17     currentpen:= pencircle; draw (flex(z1,z2,z3));
  18     p:=currentpicture;
  19   endchar;
  20
  21   beginchar(code+54, 0, 0, 0);
  22     currentpicture:=p reflectedabout (origin, right);
  23   endchar;
  24 endfor
  25 end