def simple_serif(expr p,q, a)= 
	p{dir(angle(q-p) -a)} .. q{ - dir(angle(p -q) + a)}
enddef;
%
% Accidentals from various sources, notably
%
%   Baerenreiter edition of Schuberts `Auf dem Strom' (sharp, natural, flat)
%   F Hofmeister edition of Muellers `Etueden fuer Horn'  (double sharp)
%


%tracingall;
%proofing := 2;
%\tracingequations:= tracingonline := 1;

fet_begingroup("accidentals");



fet_endgroup("accidentals");