mf/slur.mf

   1
   2 staffsize# = 1pt#;
   3 stafflinethickness# = staffsize#/10;
   4 define_pixels (stafflinethickness, staffsize);
   5
   6 input feta-sleur;
   7
   8
   9
  10 % beginchar
  11
  12 indent = 1.17 staffsize;
  13 height = 6.15 staffsize;
  14 len = 10 staffsize;
  15
  16 path boogje;
  17
  18
  19
  20 z1 = (0,0);
  21 z2 = (indent, height);
  22 z3 = (len - indent, height);
  23 z4 = (len, 0);
  24
  25 boogje=z1..controls z2 and z3..z4;
  26 pickup pencircle scaled stafflinethickness;
  27 draw boogje;
  28 shipit;
  29
  30
  31 bye