mf/foo.mf

   1
   2 def simple_serif(expr p,q, a)=
   3         p{dir(angle(q-p) -a)} .. q{ - dir(angle(p -q) + a)}
   4 enddef;
   5 %
   6 % Accidentals from various sources, notably
   7 %
   8 %   Baerenreiter edition of Schuberts `Auf dem Strom' (sharp, natural, flat)
   9 %   F Hofmeister edition of Muellers `Etueden fuer Horn'  (double sharp)
  10 %
  11
  12
  13 %tracingall;
  14 %proofing := 2;
  15 %\tracingequations:= tracingonline := 1;
  16
  17 fet_begingroup("accidentals");
  18
  19
  20
  21 fet_endgroup("accidentals");
  22