% source file of the Feta (not an acronym for Font-En-Tja)
% pretty-but-neat music font
%
-% (c) 1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+% (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
% Jan Nieuwenhuizen <janneke@gnu.org>
%
% these macros help create ascii logging output
enddef;
def autometric_output_char=
- message "@{char@:"&charnamestr&"@:"&decimal charcode&"@:"&decimal charbp&"@:"&decimal charwd&"@:"&decimal chardp&"@:"&decimal charht&"@:"&idstr&"@:"&texstr&"@}";
+ message "@{char@:"&charnamestr&"@:"&decimal charcode&"@:"&decimal charbp&"@:"&decimal charwd&"@:"&decimal chardp&"@:"&decimal charht&"@:"&decimal charwx&"@:"&decimal charwy&"@:"&idstr&"@:"&texstr&"@}";
enddef;
def hround_pixels(expr sharped) = hround(sharped * hppp) enddef;
b := hround(b_sharp *hppp);
h := hround(h_sharp *vppp);
d := hround(d_sharp *vppp);
+
+ charwx := charwd;
+ charwy := 0;
enddef;
def no_dimen_beginchar(expr c) =
save texstr, idstr, charnamestr;
save charbp;
save w,b,h,d;
+ save charwx, charwy;
+
string texstr, idstr, charnamestr;
texstr := texstr_lit;
charnamestr := name;