Prepare glyph shapes for mf2pt1 conversion.

[lilypond.git] / mf / feta-autometric.mf

diff --git a/mf/feta-autometric.mf b/mf/feta-autometric.mf
index e30d6cc9c53b8c18eabe4b40cef03823368dad22..3279ff1b29275ace94f49a7eecb58ad7ea3b1cb4 100644 (file)
--- a/mf/feta-autometric.mf
+++ b/mf/feta-autometric.mf
@@ -4,7 +4,7 @@
 % 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
@@ -17,16 +17,16 @@ message "Do not worry about the @ signs in the output, they are not errors. ";
 message "******************************************************";
 
 % font or database?
-def fet_beginfont(expr name,size) =
+def fet_beginfont(expr name,size,encod) =
        font_identifier:=name&decimal size;
        font_size size;
-       message "@{font@:GNU@:LilyPond@:"&name&"@:"&decimal size&"@}";
+       font_coding_scheme encod;
+       message "@{font@:GNU@:LilyPond@:"&name&"@:"&decimal size&"@:"&encod&"@}";
        message "";
        enddef;
 
-def fet_endfont(expr name) =
-       message "@{tnof@:"&name&"@}";
-       message "";
+def fet_endfont =
+       message "@{tnof@}";
        enddef;
 
 % group or table?
@@ -42,8 +42,13 @@ def fet_endgroup(expr name) =
        message "";
 enddef;
 
+def autometric_parameter (expr name, value) =
+       message "@{parameter@:"&name&"@:"&decimal value&"@}";
+enddef;
+
+
 def autometric_output_char=
-       message "@{char@:"&charnamestr&"@:"&decimal charcode&"@:"&decimal charbp&"@:"&decimal charwd&"@:"&decimal chardp&"@:"&decimal charht&"@:"&decimal charwx&"@:"&decimal charwy&"@:"&idstr&"@:"&texstr&"@}";
+       message "@{char@:"&charnamestr&"@:"&decimal charcode&"@:"&decimal charbp&"@:"&decimal charwd&"@:"&decimal chardp&"@:"&decimal charht&"@:"&decimal charwx&"@:"&decimal charwy&"@:"&idstr&"@}";
 enddef;
 
 def hround_pixels(expr sharped) = hround(sharped * hppp) enddef;
@@ -99,17 +104,15 @@ code:=32;
 % and then adds:
 %     charname see below
 %     id       index in lily's table
-%     texstr   name of tex macro in lily's table and tex backend
 
 % the dims are uninitialised; you should use set_char_box manually.
-def fet_beginchar(expr name, id_lit, texstr_lit) =
-       save texstr, idstr, charnamestr;
+def fet_beginchar(expr name, id_lit) =
+       save  idstr, charnamestr;
        save charbp;
        save w,b,h,d;
        save charwx, charwy;
 
-       string texstr, idstr, charnamestr;
-       texstr := texstr_lit;
+       string idstr, charnamestr;
        charnamestr := name;
        idstr := id_lit;