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) 2002--2019 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 2002--2019 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 82 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
93 { | 93 { |
94 programming_error ("last grouping not finished yet"); | 94 programming_error ("last grouping not finished yet"); |
95 continue; | 95 continue; |
96 } | 96 } |
97 if (grouplen > 1) | 97 if (grouplen > 1) |
98 { | 98 { |
99 grouping_ = make_spanner ("MeasureGrouping", SCM_EOL); | 99 grouping_ = make_spanner ("MeasureGrouping", SCM_EOL); |
100 grouping_->set_bound (LEFT, unsmob<Grob> (get_property ("curre
ntMusicalColumn"))); | 100 grouping_->set_bound (LEFT, unsmob<Grob> (get_property ("curre
ntMusicalColumn"))); |
101 | 101 |
102 stop_grouping_mom_ = now.main_part_ + Rational (grouplen - 1)
* base_moment; | 102 stop_grouping_mom_ = now.main_part_ + Rational (grouplen - 1)
* base_moment; |
103 get_global_context ()->add_moment_to_process (Moment (stop_gro
uping_mom_)); | 103 find_global_context ()->add_moment_to_process (Moment (stop_gr
ouping_mom_)); |
104 | 104 |
105 if (grouplen == 3) | 105 if (grouplen == 3) |
106 grouping_->set_property ("style", ly_symbol2scm ("triangle")
); | 106 grouping_->set_property ("style", ly_symbol2scm ("triangle")
); |
107 else | 107 else |
108 grouping_->set_property ("style", ly_symbol2scm ("bracket"))
; | 108 grouping_->set_property ("style", ly_symbol2scm ("bracket"))
; |
109 | 109 |
110 break; | 110 break; |
111 } | 111 } |
112 } | 112 } |
113 } | 113 } |
(...skipping 21 matching lines...) Expand all Loading... |
135 | 135 |
136 /* read */ | 136 /* read */ |
137 "baseMoment " | 137 "baseMoment " |
138 "beatStructure " | 138 "beatStructure " |
139 "currentMusicalColumn " | 139 "currentMusicalColumn " |
140 "measurePosition ", | 140 "measurePosition ", |
141 | 141 |
142 /* write */ | 142 /* write */ |
143 "" | 143 "" |
144 ); | 144 ); |
OLD | NEW |