mf/xslz20.mf

   1 font_identifier:="xslz20";
   2 mode_setup;
   3 font_size 20pt#;
   4 thick#:=1pt#;
   5 nhh#:=5pt#;
   6 define_pixels(nhh);
   7 define_blacker_pixels(thick);
   8 minwidth:=8pt#;
   9 delwidth:=4pt#;
  10
  11 numslurs:=54;
  12 maxwidth:=minwidth+(numslurs-1)*delwidth;
  13
  14 fontdimen 5: maxwidth;
  15
  16 picture p;
  17
  18 min_bow:=  .4nhh;
  19 max_bow:= 1.75nhh;
  20 slope:= 10/100;
  21
  22 code=-1;
  23
  24 for i=1 upto numslurs:
  25
  26   beginchar(incr code, 0, 0, 0);
  27     mw:=(minwidth+code*delwidth)*pt;
  28     x3= -x1= .5mw; x2= y1= y3 = 0;
  29     y2= max(min_bow, slope*mw);
  30     y2:= min(y2, max_bow);
  31     penpos1(.15thick,90); penpos2(thick,90); penpos3(.15thick,90);
  32     penstroke (flex(z1e,z2e,z3e));
  33     currentpen:= pencircle; draw (flex(z1,z2,z3));
  34     p:=currentpicture;
  35   endchar;
  36
  37   beginchar(code+54, 0, 0, 0);
  38     currentpicture:=p reflectedabout (origin, right);
  39   endchar;
  40
  41 endfor
  42 end