OLD | NEW |
1 /* | 1 /* |
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) 2000--2012 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 2000--2012 Han-Wen Nienhuys <hanwen@xs4all.nl> |
5 | 5 |
6 LilyPond is free software: you can redistribute it and/or modify | 6 LilyPond is free software: you can redistribute it and/or modify |
7 it under the terms of the GNU General Public License as published by | 7 it under the terms of the GNU General Public License as published by |
8 the Free Software Foundation, either version 3 of the License, or | 8 the Free Software Foundation, either version 3 of the License, or |
9 (at your option) any later version. | 9 (at your option) any later version. |
10 | 10 |
(...skipping 29 matching lines...) Expand all Loading... |
40 | 40 |
41 Real thickness = robust_scm2double (me->get_property ("thickness"), 0.25); | 41 Real thickness = robust_scm2double (me->get_property ("thickness"), 0.25); |
42 | 42 |
43 Real overlap = 0.1 * thickness; | 43 Real overlap = 0.1 * thickness; |
44 | 44 |
45 Box box (Interval (0, thickness), | 45 Box box (Interval (0, thickness), |
46 Interval (-1, 1) | 46 Interval (-1, 1) |
47 * (height / 2 + overlap)); | 47 * (height / 2 + overlap)); |
48 | 48 |
49 Stencil bracket = Lookup::filled_box (box); | 49 Stencil bracket = Lookup::filled_box (box); |
50 Direction d = DOWN; | 50 for (DOWN_and_UP (d)) |
51 do | |
52 bracket.add_at_edge (Y_AXIS, d, tips[d], -overlap); | 51 bracket.add_at_edge (Y_AXIS, d, tips[d], -overlap); |
53 while (flip (&d) != DOWN); | |
54 bracket = Stencil (box, bracket.expr ()); | 52 bracket = Stencil (box, bracket.expr ()); |
55 | 53 |
56 bracket.translate_axis (-0.8, X_AXIS); | 54 bracket.translate_axis (-0.8, X_AXIS); |
57 | 55 |
58 return bracket; | 56 return bracket; |
59 } | 57 } |
60 | 58 |
61 Stencil | 59 Stencil |
62 System_start_delimiter::line_bracket (Grob *me, Real height) | 60 System_start_delimiter::line_bracket (Grob *me, Real height) |
63 { | 61 { |
(...skipping 139 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
203 " this style.\n" | 201 " this style.\n" |
204 "@end table\n" | 202 "@end table\n" |
205 "\n" | 203 "\n" |
206 "See also @file{input/regression/system-start-nesting.ly}.", | 204 "See also @file{input/regression/system-start-nesting.ly}.", |
207 | 205 |
208 /* properties */ | 206 /* properties */ |
209 "collapse-height " | 207 "collapse-height " |
210 "style " | 208 "style " |
211 "thickness " | 209 "thickness " |
212 ); | 210 ); |
OLD | NEW |