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 Juergen Reuter <reuter@ipd.uka.de> | 4 Copyright (C) 2002--2019 Juergen Reuter <reuter@ipd.uka.de> |
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 109 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
120 finished_primitives_ = primitives_; | 120 finished_primitives_ = primitives_; |
121 finished_ligature_ = ligature_; | 121 finished_ligature_ = ligature_; |
122 primitives_.clear (); | 122 primitives_.clear (); |
123 ligature_ = 0; | 123 ligature_ = 0; |
124 } | 124 } |
125 last_bound_ = unsmob<Grob> (get_property ("currentMusicalColumn")); | 125 last_bound_ = unsmob<Grob> (get_property ("currentMusicalColumn")); |
126 | 126 |
127 if (ligature_) | 127 if (ligature_) |
128 { | 128 { |
129 // TODO: maybe forbid breaks only if not transcribing | 129 // TODO: maybe forbid breaks only if not transcribing |
130 context ()->get_score_context ()->set_property ("forbidBreak", SCM_BOOL_T)
; | 130 find_score_context ()->set_property ("forbidBreak", SCM_BOOL_T); |
131 } | 131 } |
132 | 132 |
133 if (events_drul_[START]) | 133 if (events_drul_[START]) |
134 { | 134 { |
135 if (ligature_) | 135 if (ligature_) |
136 { | 136 { |
137 events_drul_[START]->origin ()->warning (_ ("already have a ligature")
); | 137 events_drul_[START]->origin ()->warning (_ ("already have a ligature")
); |
138 return; | 138 return; |
139 } | 139 } |
140 | 140 |
(...skipping 75 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
216 { | 216 { |
217 info.event_cause ()->origin ()->warning (_ ("ignoring rest: ligature may n
ot contain rest")); | 217 info.event_cause ()->origin ()->warning (_ ("ignoring rest: ligature may n
ot contain rest")); |
218 prev_start_event_->origin ()->warning (_ ("ligature was started here")); | 218 prev_start_event_->origin ()->warning (_ ("ligature was started here")); |
219 // TODO: maybe better should stop ligature here rather than | 219 // TODO: maybe better should stop ligature here rather than |
220 // ignoring the rest? | 220 // ignoring the rest? |
221 } | 221 } |
222 } | 222 } |
223 | 223 |
224 // no ADD_ACKNOWLEDGER / ADD_ACKNOWLEDGER / ADD_TRANSLATOR macro calls | 224 // no ADD_ACKNOWLEDGER / ADD_ACKNOWLEDGER / ADD_TRANSLATOR macro calls |
225 // since this class is abstract | 225 // since this class is abstract |
OLD | NEW |