%
% autometric.mf -- administrative MF routines
%
-% source file of the Feta (Font-En-Tja) pretty-but-neat music font
+% source file of the Feta (not an acronym for Font-En-Tja)
+% pretty-but-neat music font
%
-% (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
-% Jan Nieuwenhuizen <jan@digicash.com>
+% (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+% Jan Nieuwenhuizen <janneke@gnu.org>
%
% these macros help create ascii logging output
% to automate generation of lily tables and tex backend
% The output should be parsed by the mf-to-table script
+message "******************************************************";
+message "Using feta Autometric macros. ";
+message "Do not worry about the @ signs in the output, they are not errors. ";
+message "******************************************************";
+
% font or database?
def fet_beginfont(expr name,size) =
font_identifier:=name&decimal size;
font_size size;
- message "@{font@:"&name&"@:"&decimal size&"@}";
+ message "@{font@:GNU@:LilyPond@:"&name&"@:"&decimal size&"@}";
message "";
enddef;
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) =
scantokens extra_beginchar;
enddef;
-code:=-1;
+
+%
+% we leave the ctrl characters alone.
+%
+code:=32;
% starts just as plain mf's beginchar:
% charcode,
save texstr, idstr, charnamestr;
save charbp;
save w,b,h,d;
+ save charwx, charwy;
+
string texstr, idstr, charnamestr;
texstr := texstr_lit;
charnamestr := name;
def breapth_endchar =
scantokens extra_endchar;
if proofing > 0: makebox_with_breapth(proofrule); fi
- chardx := 10*(w + b);
+ chardx := (w + b); %what the hack is chardx
shipit;
endgroup
enddef;