% source file of the Feta (not an acronym for Font-En-Tja)
% pretty-but-neat music font
%
-% (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+% (c) 1997--2008 Han-Wen Nienhuys <hanwen@xs4all.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
+% These macros help create ascii logging output
+% to automate generation of the lily tables.
+% 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 "order of messages: ";
+message " NAME/CODE/BP/WD/DP/HT/WX/WY";
message "******************************************************";
message "";
enddef;
-def autometric_output_char=
+def autometric_output_char =
message "@{char@:" & charnamestr
& "@:" & decimal charcode
& "@:" & decimal charbp
charwx := charwd;
charwy := 0;
- % additions for mf2pt1
+ % additions for mf2pt1 (`bbox' is called `glyph_dimensions' starting
+ % with version 2.4.2)
if known bp_per_pixel:
special "% MF2PT1: bbox "
& to_bp (-b) & " "
& to_bp (-d) & " "
& to_bp (w) & " "
& to_bp (h);
+ special "% MF2PT1: glyph_dimensions "
+ & to_bp (-b) & " "
+ & to_bp (-d) & " "
+ & to_bp (w) & " "
+ & to_bp (h);
special "% MF2PT1: font_size " & decimal designsize;
special "% MF2PT1: font_slant " & decimal font_slant_;
% addition for mf2pt1
if known bp_per_pixel:
- special "% MF2PT1: glyph_name " & feta_group & "." & idstr;
+ if known feta_group:
+ special "% MF2PT1: glyph_name "
+ & feta_group & "." & idstr;
+ else:
+ special "% MF2PT1: glyph_name " & idstr;
+ fi;
fi;
no_dimen_beginchar (incr code) name;
enddef;
-def fet_endchar=
+def fet_endchar =
autometric_output_char;
breapth_endchar;
enddef;