1 % Feta (not the Font-En-Tja) music font -- Staff braces
2 % This file is part of LilyPond, the GNU music typesetter.
4 % Copyright (C) 1997--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
5 % Jan Nieuwenhuizen <janneke@gnu.org>
7 % The LilyPond font is free software: you can redistribute it and/or modify
8 % it under the terms of the GNU General Public License as published by
9 % the Free Software Foundation, either version 3 of the License, or
10 % (at your option) any later version, or under the SIL Open Font License.
12 % LilyPond is distributed in the hope that it will be useful,
13 % but WITHOUT ANY WARRANTY; without even the implied warranty of
14 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 % GNU General Public License for more details.
17 % You should have received a copy of the GNU General Public License
18 % along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
21 % We must let the design increase for each font to make sure that mftrace
22 % doesn't jack up the resolution too highly for the longer braces.
28 save code, braces_per_font;
30 braces_per_font := 64;
32 def draw_brace (expr height_sharp, width_sharp, slt_sharp, brace_number) =
33 save pendir, height, width, thin, thick, slt, pat;
38 height# := height_sharp;
39 width# := width_sharp;
42 fet_beginchar ("brace number " & decimal (brace_number),
43 "brace" & decimal (brace_number))
44 set_char_box (width#, 0, height# / 2, height# / 2);
46 define_pixels (height, width, slt);
51 y3l = y1 + height / 2;
58 pendir = unitvector (x3 - x1, y3l / 8 - y1);
59 penangle = angle pendir - 90;
60 penpos3 (thin, penangle);
61 penpos2 (thick, angle (z3 - z1) - 90);
62 penpos1 (-2 * (x0 - x1), penangle);
68 .. simple_serif (z3r, z3l, 90)
70 .. z1l{dir (angle (z1r - z1l) - 90)}
72 .. z1r{-dir (angle (z1l - z1r) + 90)}
74 pat := subpath (0, 5) of pat
75 -- subpath (6, 7) of pat
86 save last_brace_number;
92 linethickness := 0.5 pt#;
94 last_brace_number := braces_per_font * 9 - 1;
101 for i := 0 step 1 until font_count:
104 number := braces_per_font * i;
106 for j := 0 step 1 until (braces_per_font - 1):
107 % message "l: "&decimal l;
108 % note: define_pixels (x) multiplies x by hppp,
109 % must never get bigger than infinity
111 if y > infinity / hppp:
112 message "Resolution and/or magnification is too high";
113 message "HPPP: "& decimal hppp &" Y: " & decimal y;
114 errmessage "please report to <bug-lilypond@gnu.org>";
117 x := (y / last_brace_number) [min_width, max_width];
120 linethickness := (y / last_brace_number) [min_thin, max_thin];
122 draw_brace (y, x, linethickness, number);
125 number := number + 1;