Run `make grand-replace'.

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

diff --git a/mf/feta-beugel.mf b/mf/feta-beugel.mf
index 6340f1fc6b6b6aceb15e55045bd5757dead4715e..c3541aaf180eb44663f982eda02a51297fab999d 100644 (file)
--- a/mf/feta-beugel.mf
+++ b/mf/feta-beugel.mf
@@ -4,9 +4,34 @@
 % source file of the Feta (not an acronym for Font-En-Tja)
 % pretty-but-neat music font
 %
-% (c) 1997--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+% (c) 1997--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
 %                Jan Nieuwenhuizen <janneke@gnu.org>
 
+
+% We have to reduce the pixel-per-point value to
+% support large brace glyphs in case we are using MetaPost
+% (which by default sets `hppp' to 49.80244, regardless of
+% the used `mag' value)
+
+if known miterlimit:
+       bpppix_ := 0.2;         % ten times larger than original
+
+       numeric mm, pt, dd, bp, cm, pc, cc, in;
+
+       mm * bpppix_ = 2.83464;
+       pt * bpppix_ = 0.99626;
+       dd * bpppix_ = 1.06601;
+       bp * bpppix_ = 1;
+       cm * bpppix_ = 28.34645;
+       pc * bpppix_ = 11.95517;
+       cc * bpppix_ = 12.79213;
+       in * bpppix_ = 72;
+
+       hppp := pt;
+       vppp := pt;
+fi;
+
+
 input feta-autometric;
 input feta-macros;
 
@@ -100,8 +125,8 @@ for i := 0 step 1 until font_count:
                y := y + increment;
                if y > infinity / hppp:
                        message "Resolution and/or magnification is too high";
-                       message "HPP: "& decimal hpp &" Y: " & y;
-                       error "please report to <bug-lilypond@gnu.org>";
+                       message "HPPP: "& decimal hppp &" Y: " & decimal y;
+                       errmessage "please report to <bug-lilypond@gnu.org>";
                fi;
 
                % x should be about one staff space, taking brace to have