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--2011 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 1997--2011 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 182 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
193 so the resulting note does not look like a block. | 193 so the resulting note does not look like a block. |
194 */ | 194 */ |
195 SCM up_style = head_up->get_property ("style"); | 195 SCM up_style = head_up->get_property ("style"); |
196 SCM down_style = head_down->get_property ("style"); | 196 SCM down_style = head_down->get_property ("style"); |
197 if (merge_possible | 197 if (merge_possible |
198 && (up_style == ly_symbol2scm ("fa") || up_style == ly_symbol2scm ("faThin
")) | 198 && (up_style == ly_symbol2scm ("fa") || up_style == ly_symbol2scm ("faThin
")) |
199 && (down_style == ly_symbol2scm ("fa") || down_style == ly_symbol2scm ("fa
Thin"))) | 199 && (down_style == ly_symbol2scm ("fa") || down_style == ly_symbol2scm ("fa
Thin"))) |
200 { | 200 { |
201 Interval uphead_size = head_up->extent (head_up, Y_AXIS); | 201 Interval uphead_size = head_up->extent (head_up, Y_AXIS); |
202 Offset att = Offset (0.0, -1.0); | 202 Offset att = Offset (0.0, -1.0); |
203 if (head_up->get_property ("stem-attachment") != SCM_BOOL_F) | 203 if (head_up->get_property_data ("stem-attachment") != SCM_BOOL_F) |
204 head_up->set_property ("stem-attachment", ly_offset2scm (att)); | 204 head_up->set_property ("stem-attachment", ly_offset2scm (att)); |
205 head_up->set_property ("transparent", SCM_BOOL_T); | 205 head_up->set_property ("transparent", SCM_BOOL_T); |
206 } | 206 } |
207 | 207 |
208 if (merge_possible) | 208 if (merge_possible) |
209 { | 209 { |
210 shift_amount = 0; | 210 shift_amount = 0; |
211 | 211 |
212 /* If possible, don't wipe any heads. Else, wipe shortest head, | 212 /* If possible, don't wipe any heads. Else, wipe shortest head, |
213 or head with smallest amount of dots. Note: when merging | 213 or head with smallest amount of dots. Note: when merging |
(...skipping 393 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
607 " the interesting properties are to be set in" | 607 " the interesting properties are to be set in" |
608 " @ref{note-column-interface}: these are @code{force-hshift}" | 608 " @ref{note-column-interface}: these are @code{force-hshift}" |
609 " and @code{horizontal-shift}.", | 609 " and @code{horizontal-shift}.", |
610 | 610 |
611 /* properties */ | 611 /* properties */ |
612 "merge-differently-dotted " | 612 "merge-differently-dotted " |
613 "merge-differently-headed " | 613 "merge-differently-headed " |
614 "positioning-done " | 614 "positioning-done " |
615 "prefer-dotted-right " | 615 "prefer-dotted-right " |
616 ); | 616 ); |
LEFT | RIGHT |