LEFT | RIGHT |
1 % Feta (not the Font-En-Tja) music font -- Staff braces | 1 % Feta (not the Font-En-Tja) music font -- Staff braces |
2 % This file is part of LilyPond, the GNU music typesetter. | 2 % This file is part of LilyPond, the GNU music typesetter. |
3 % | 3 % |
4 % Copyright (C) 1997--2020 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 % Copyright (C) 1997--2020 Han-Wen Nienhuys <hanwen@xs4all.nl> |
5 % Jan Nieuwenhuizen <janneke@gnu.org> | 5 % Jan Nieuwenhuizen <janneke@gnu.org> |
6 % | 6 % |
7 % The LilyPond font is free software: you can redistribute it and/or modify | 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 | 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 | 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. | 10 % (at your option) any later version, or under the SIL Open Font License. |
(...skipping 45 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
56 pendir = unitvector (x3 - x1, y3l / 8 - y1); | 56 pendir = unitvector (x3 - x1, y3l / 8 - y1); |
57 penangle = angle pendir - 90; | 57 penangle = angle pendir - 90; |
58 penpos3 (thin, penangle); | 58 penpos3 (thin, penangle); |
59 penpos2 (thick, angle (z3 - z1) - 90); | 59 penpos2 (thick, angle (z3 - z1) - 90); |
60 penpos1 (-2 * (x0 - x1), penangle); | 60 penpos1 (-2 * (x0 - x1), penangle); |
61 | 61 |
62 penlabels (1, 2, 3); | 62 penlabels (1, 2, 3); |
63 labels (0); | 63 labels (0); |
64 | 64 |
65 paux := z0 | 65 paux := z0 |
66 -- z0 shifted (width, 0); | 66 -- z0 shifted (width, 0); |
67 pat := z1r{pendir} | 67 pat := z1r{pendir} |
68 .. z2r | 68 .. z2r |
69 .. simple_serif (z3r, z3l, 90) | 69 .. simple_serif (z3r, z3l, 90) |
70 .. z2l | 70 .. z2l |
71 .. z1l{-pendir} | 71 .. z1l{-pendir} |
72 .. z0{down}; | 72 .. z0{down}; |
73 ta = xpart (pat intersectiontimes paux); | 73 ta = xpart (pat intersectiontimes paux); |
74 pat := subpath (ta, length pat) of pat; | 74 pat := subpath (ta, length pat) of pat; |
75 | 75 |
76 fill reverse pat yscaled -1 | 76 fill reverse pat yscaled -1 |
(...skipping 40 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
117 | 117 |
118 increment := x / 10; | 118 increment := x / 10; |
119 linethickness := (y / last_brace_number) [min_thin, max_thin]; | 119 linethickness := (y / last_brace_number) [min_thin, max_thin]; |
120 if i = font_count: | 120 if i = font_count: |
121 draw_brace (y, x, linethickness, number); | 121 draw_brace (y, x, linethickness, number); |
122 fi; | 122 fi; |
123 | 123 |
124 number := number + 1; | 124 number := number + 1; |
125 endfor; | 125 endfor; |
126 endfor; | 126 endfor; |
LEFT | RIGHT |