Merge branch 'master' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond into lilypond...

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

diff --git a/mf/feta-beugel.mf b/mf/feta-beugel.mf
index 2dd7440fe7b16605bb6487f0e6461c2221781eb7..c61f756d38273c14a0300065c38c005dc6282dc8 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--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+% (c) 1997--2009 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;