LEFT | RIGHT |
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) 1997--2012 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 1997--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 32 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
43 /* | 43 /* |
44 For raggedright without ragged staves, simply set width to the linewidth. | 44 For raggedright without ragged staves, simply set width to the linewidth. |
45 | 45 |
46 (ok -- lousy UI, since width is in staff spaces) | 46 (ok -- lousy UI, since width is in staff spaces) |
47 | 47 |
48 --hwn. | 48 --hwn. |
49 */ | 49 */ |
50 Real t = me->layout ()->get_dimension (ly_symbol2scm ("line-thickness")); | 50 Real t = me->layout ()->get_dimension (ly_symbol2scm ("line-thickness")); |
51 t *= robust_scm2double (me->get_property ("thickness"), 1.0); | 51 t *= robust_scm2double (me->get_property ("thickness"), 1.0); |
52 | 52 |
53 for(LEFT_and_RIGHT(d)) | 53 for (LEFT_and_RIGHT (d)) |
54 { | 54 { |
55 SCM width_scm = me->get_property ("width"); | 55 SCM width_scm = me->get_property ("width"); |
56 if (d == RIGHT && scm_is_number (width_scm)) | 56 if (d == RIGHT && scm_is_number (width_scm)) |
57 { | 57 { |
58 /* | 58 /* |
59 don't multiply by Staff_symbol_referencer::staff_space (me), | 59 don't multiply by Staff_symbol_referencer::staff_space (me), |
60 since that would make aligning staff symbols of different sizes to | 60 since that would make aligning staff symbols of different sizes to |
61 one right margin hell. | 61 one right margin hell. |
62 */ | 62 */ |
63 span_points[RIGHT] = scm_to_double (width_scm); | 63 span_points[RIGHT] = scm_to_double (width_scm); |
(...skipping 310 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
374 /* properties */ | 374 /* properties */ |
375 "ledger-extra " | 375 "ledger-extra " |
376 "ledger-line-thickness " | 376 "ledger-line-thickness " |
377 "ledger-positions " | 377 "ledger-positions " |
378 "line-count " | 378 "line-count " |
379 "line-positions " | 379 "line-positions " |
380 "staff-space " | 380 "staff-space " |
381 "thickness " | 381 "thickness " |
382 "width " | 382 "width " |
383 ); | 383 ); |
LEFT | RIGHT |