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) 1998--2019 Jan Nieuwenhuizen <janneke@gnu.org> | 4 Copyright (C) 1998--2019 Jan Nieuwenhuizen <janneke@gnu.org> |
5 Han-Wen Nienhuys | 5 Han-Wen Nienhuys |
6 | 6 |
7 LilyPond is free software: you can redistribute it and/or modify | 7 LilyPond 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. | 10 (at your option) any later version. |
(...skipping 43 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
54 common = common_refpoint_of_array (heads, common, X_AXIS); | 54 common = common_refpoint_of_array (heads, common, X_AXIS); |
55 | 55 |
56 Real left_point = 0.0; | 56 Real left_point = 0.0; |
57 if (left_edge->internal_has_interface (ly_symbol2scm ("lyric-syllable-interfac
e"))) | 57 if (left_edge->internal_has_interface (ly_symbol2scm ("lyric-syllable-interfac
e"))) |
58 left_point = left_edge->extent (common, X_AXIS)[RIGHT]; | 58 left_point = left_edge->extent (common, X_AXIS)[RIGHT]; |
59 else if (heads.size ()) | 59 else if (heads.size ()) |
60 left_point = heads[0]->extent (common, X_AXIS)[LEFT]; | 60 left_point = heads[0]->extent (common, X_AXIS)[LEFT]; |
61 else | 61 else |
62 left_point = left_edge->extent (common, X_AXIS)[RIGHT]; | 62 left_point = left_edge->extent (common, X_AXIS)[RIGHT]; |
63 | 63 |
64 if (isinf (left_point)) | 64 if (std::isinf (left_point)) |
65 return SCM_EOL; | 65 return SCM_EOL; |
66 | 66 |
67 /* It seems that short extenders are even lengthened to go past the | 67 /* It seems that short extenders are even lengthened to go past the |
68 note head, but haven't found a pattern in it yet. --hwn 1/1/04 */ | 68 note head, but haven't found a pattern in it yet. --hwn 1/1/04 */ |
69 SCM minlen = me->get_property ("minimum-length"); | 69 SCM minlen = me->get_property ("minimum-length"); |
70 Real right_point | 70 Real right_point |
71 = left_point + (robust_scm2double (minlen, 0)); | 71 = left_point + (robust_scm2double (minlen, 0)); |
72 | 72 |
73 right_point = min (right_point, me->get_system ()->get_bound (RIGHT)->relative
_coordinate (common, X_AXIS)); | 73 right_point = min (right_point, me->get_system ()->get_bound (RIGHT)->relative
_coordinate (common, X_AXIS)); |
74 | 74 |
(...skipping 30 matching lines...) Expand all Loading... |
105 " that helps show the length of a melisma (a tied or slurred" | 105 " that helps show the length of a melisma (a tied or slurred" |
106 " note).", | 106 " note).", |
107 | 107 |
108 /* properties */ | 108 /* properties */ |
109 "heads " | 109 "heads " |
110 "left-padding " | 110 "left-padding " |
111 "next " | 111 "next " |
112 "right-padding " | 112 "right-padding " |
113 "thickness " | 113 "thickness " |
114 ); | 114 ); |
OLD | NEW |