Imported Upstream version 2.14.2

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

diff --git a/mf/feta-braces.mf b/mf/feta-braces.mf
new file mode 100644 (file)
index 0000000..5fb5ff1
--- /dev/null
+++ b/mf/feta-braces.mf
@@ -0,0 +1,164 @@
+% Feta (not the Font-En-Tja) music font -- Staff braces
+% This file is part of LilyPond, the GNU music typesetter.
+%
+% Copyright (C) 1997--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
+%                Jan Nieuwenhuizen <janneke@gnu.org>
+%
+% LilyPond 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.
+%
+% 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/>.
+
+
+% 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;
+
+staffsize# := 20 pt#;   %% arbitrary
+
+input feta-params;
+
+%
+% We must let the design increase for each font to make sure that mftrace
+% doesn't jack up the resolution too highly for the longer braces.
+%
+
+fet_beginfont ("feta-braces-" & char (97 + font_count),
+              (font_count + 1) * 20, "fetaBraces");
+
+mode_setup;
+
+
+save code, braces_per_font;
+code := 64;
+braces_per_font := 64;
+
+def draw_brace (expr height_sharp, width_sharp, slt_sharp, brace_number) =
+       save pendir, height, width, thin, thick, slt, pat;
+       save penangle;
+       pair pendir;
+       path pat;
+
+       height# := height_sharp;
+       width# := width_sharp;
+       slt# := slt_sharp;
+
+       fet_beginchar ("brace number " & decimal (brace_number),
+                      "brace" & decimal (brace_number))
+               set_char_box (width#, 0, height# / 2, height# / 2);
+
+               define_pixels (height, width, slt);
+               thin = 2 slt;
+               thick = .5 width;
+
+               z2 = .5 [z1, z3];
+               y3l = y1 + height / 2;
+               x3 = x1 + width;
+               y1 = 0;
+               x1 = -b;
+               y0 = y1;
+               x0 = x1 - 2/6 thin;
+
+               pendir = unitvector (x3 - x1, y3l / 8 - y1);
+               penangle = angle pendir - 90;
+               penpos3 (thin, penangle);
+               penpos2 (thick, angle (z3 - z1) - 90);
+               penpos1 (-2 * (x0 - x1), penangle);
+
+               penlabels (1, 2, 3);
+               labels (0);
+
+               pat := z2r
+                      .. simple_serif (z3r, z3l, 90)
+                      .. z2l
+                      .. z1l{dir (angle (z1r - z1l) - 90)}
+                      .. z0{down}
+                      .. z1r{-dir (angle (z1l - z1r) + 90)}
+                      .. cycle;
+               pat := subpath (0, 5) of pat
+                      -- subpath (6, 7) of pat
+                      .. cycle;
+
+               fill pat;
+               fill pat yscaled -1;
+       fet_endchar;
+enddef;
+
+
+save linethickness;
+save increment;
+save last_brace_number;
+save min_width;
+save max_width;
+save min_thin;
+save max_thin;
+
+linethickness := 0.5 pt#;
+increment := 0.5 pt#;
+last_brace_number := braces_per_font * 9 - 1;
+min_width := 2 pt#;
+max_width := 20 pt#;
+min_thin := 0.2 pt#;
+max_thin := 1.25 pt#;
+y := 10 pt#;
+
+for i := 0 step 1 until font_count:
+       save number;
+
+       number := braces_per_font * i;
+
+       for j := 0 step 1 until (braces_per_font - 1):
+               % message "l: "&decimal l;
+               % note: define_pixels (x) multiplies x by hppp,
+               % must never get bigger than infinity
+               y := y + increment;
+               if y > infinity / hppp:
+                       message "Resolution and/or magnification is too high";
+                       message "HPPP: "& decimal hppp &" Y: " & decimal y;
+                       errmessage "please report to <bug-lilypond@gnu.org>";
+               fi;
+
+               x := (y / last_brace_number) [min_width, max_width];
+
+               increment := x / 10;
+               linethickness := (y / last_brace_number) [min_thin, max_thin];
+               if i = font_count:
+                       draw_brace (y, x, linethickness, number);
+               fi;
+
+               number := number + 1;
+       endfor;
+endfor;
+
+fet_endfont ("feta-braces");