+%
+% feta-macros.mf -- auxiliary macros for both feta and parmesan fonts
+%
+% source file of the GNU LilyPond music typesetter
+%
+% (c) 1997--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+
%
% debugging
%
enddef;
-def del_pen_stack=
+def del_pen_stack =
save save_pen_stack, pen_stack_idx;
enddef;
% Make a round path segment going from P to Q. 2*A is the angle that the
% path should take.
%
+
def simple_serif (expr p, q, a) =
p{dir (angle (q - p) - a)}
.. q{-dir (angle (p - q) + a)}