]> git.donarmstrong.com Git - lilypond.git/blobdiff - mf/feta-autometric.mf
Add '-dcrop' option to ps and svg backends
[lilypond.git] / mf / feta-autometric.mf
index e500999ec48633ed9fd34eb1d64c3f77afe47986..50ac474f54cacdaed67cabe1a1de264a7fa0665b 100644 (file)
@@ -1,20 +1,31 @@
+% Feta (not the Font-En-Tja) music font -- administrative MF routines
+% This file is part of LilyPond, the GNU music typesetter.
 %
-% autometric.mf -- administrative MF routines
+% Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
+%          Jan Nieuwenhuizen <janneke@gnu.org>
 %
-% source file of the Feta (not an acronym for Font-En-Tja)
-% pretty-but-neat music font
+% 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.
 %
-% (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
-%          Jan Nieuwenhuizen <janneke@gnu.org>
+% The LilyPond font is free software: you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version, or under the SIL Open Font License.
 %
-% 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
+% LilyPond is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
 
 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 "";
 
@@ -124,13 +135,19 @@ def set_char_box (expr b_sharp, w_sharp, d_sharp, h_sharp) =
        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_;
 
@@ -179,7 +196,7 @@ enddef;
 
 
 %
-% we leave the ctrl characters alone.
+% we leave the ctrl characters alone
 %
 code := 32;