2 paper-column-engraver.cc -- implement Paper_column_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
9 #include "paper-column-engraver.hh"
11 #include "international.hh"
12 #include "axis-group-interface.hh"
15 #include "note-spacing.hh"
16 #include "paper-column.hh"
17 #include "pointer-group-interface.hh"
18 #include "staff-spacing.hh"
22 #include "translator.icc"
24 Paper_column_engraver::Paper_column_engraver ()
26 last_moment_.main_part_ = Rational (-1,1);
31 last_special_barline_column_ = 0;
32 last_breakable_column_ = 0;
37 Paper_column_engraver::finalize ()
40 progress_indication ("[" + to_string (breaks_) + "]");
44 command_column_->set_property ("line-break-permission", ly_symbol2scm ("allow"));
45 system_->set_bound (RIGHT, command_column_);
50 Paper_column_engraver::make_columns ()
55 Paper_column *p1 = make_paper_column ("NonMusicalPaperColumn");
56 Paper_column *p2 = make_paper_column ("PaperColumn");
58 The columns are timestamped with now_mom () in
59 stop_translation_timestep. Cannot happen now, because the
60 first column is sometimes created before now_mom is initialised.
67 Paper_column_engraver::initialize ()
69 system_ = dynamic_cast<System *> (unsmob_grob (get_property ("rootSystem")));
72 system_->set_bound (LEFT, command_column_);
73 command_column_->set_property ("line-break-permission", ly_symbol2scm ("allow"));
77 Paper_column_engraver::acknowledge_item (Grob_info gi)
79 items_.push_back (gi.item ());
83 Paper_column_engraver::acknowledge_staff_spacing (Grob_info gi)
85 Pointer_group_interface::add_grob (command_column_,
86 ly_symbol2scm ("spacing-wishes"),
91 Paper_column_engraver::acknowledge_note_spacing (Grob_info gi)
93 Pointer_group_interface::add_grob (musical_column_,
94 ly_symbol2scm ("spacing-wishes"),
99 Paper_column_engraver::set_columns (Paper_column *new_command,
100 Paper_column *new_musical)
102 command_column_ = new_command;
103 musical_column_ = new_musical;
105 context ()->set_property ("currentCommandColumn", new_command->self_scm ());
108 context ()->set_property ("currentMusicalColumn", new_musical->self_scm ());
110 system_->add_column (command_column_);
111 system_->add_column (musical_column_);
114 IMPLEMENT_TRANSLATOR_LISTENER (Paper_column_engraver, break);
116 Paper_column_engraver::listen_break (Stream_event *ev)
118 break_events_.push_back (ev);
122 Paper_column_engraver::process_music ()
124 for (vsize i = 0; i < break_events_.size (); i++)
127 SCM name_sym = break_events_[i]->get_property ("class");
128 string name = ly_scm2string (scm_symbol_to_string (name_sym));
129 size_t end = name.rfind ("-event");
131 prefix = name.substr (0, end);
134 programming_error ("Paper_column_engraver doesn't know about this break-event");
138 string perm_str = prefix + "-permission";
139 string pen_str = prefix + "-penalty";
141 SCM cur_pen = command_column_->get_property (pen_str.c_str ());
142 SCM pen = break_events_[i]->get_property ("break-penalty");
143 SCM perm = break_events_[i]->get_property ("break-permission");
145 if (scm_is_number (pen))
147 Real new_pen = robust_scm2double (cur_pen, 0.0) + scm_to_double (pen);
148 command_column_->set_property (pen_str.c_str (), scm_from_double (new_pen));
149 command_column_->set_property (perm_str.c_str (), ly_symbol2scm ("allow"));
152 command_column_->set_property (perm_str.c_str (), perm);
155 bool start_of_measure = (last_moment_.main_part_ != now_mom ().main_part_
156 && !measure_position (context ()).main_part_);
159 We can't do this in start_translation_timestep(), since time sig
160 changes won't have happened by then.
162 if (start_of_measure)
164 Moment mlen = Moment (measure_length (context ()));
165 Grob *column = unsmob_grob (get_property ("currentCommandColumn"));
167 column->set_property ("measure-length", mlen.smobbed_copy ());
169 programming_error ("No command column?");
174 - the last column with a special (ie. not "|" or "") barline
176 after the given moment
179 Paper_column_engraver::find_turnable_column (Moment after_this)
181 if (last_special_barline_column_)
183 Moment m = *unsmob_moment (last_special_barline_column_->get_property ("when"));
185 return last_special_barline_column_;
187 if (last_breakable_column_)
189 Moment m = *unsmob_moment (last_breakable_column_->get_property ("when"));
191 return last_breakable_column_;
197 Paper_column_engraver::revoke_page_turns (Moment after_this, Real new_penalty)
199 if (!page_turnable_columns_.size ())
202 for (vsize i = page_turnable_columns_.size () - 1; i--;)
204 Paper_column *col = page_turnable_columns_[i];
205 Moment mom = *unsmob_moment (col->get_property ("when"));
206 if (mom >= after_this)
208 if (isinf (new_penalty))
210 col->del_property ( ly_symbol2scm ("page-turn-permission"));
211 page_turnable_columns_.erase (page_turnable_columns_.begin () + i);
215 Real prev_pen = robust_scm2double (col->get_property ("page-turn-penalty"), 0);
216 if (new_penalty > prev_pen)
217 col->set_property ("page-turn-penalty", scm_from_double (new_penalty));
224 Paper_column_engraver::stop_translation_timestep ()
226 SCM m = now_mom ().smobbed_copy ();
227 command_column_->set_property ("when", m);
228 musical_column_->set_property ("when", m);
230 for (vsize i = 0; i < items_.size (); i++)
232 Item *elem = items_[i];
233 if (!elem->get_parent (X_AXIS)
234 || !unsmob_grob (elem->get_object ("axis-group-parent-X")))
236 bool br = Item::is_non_musical (elem);
237 Axis_group_interface::add_element (br ? command_column_ : musical_column_, elem);
242 if (to_boolean (get_property ("forbidBreak")))
243 command_column_->set_property ("line-break-permission", SCM_EOL);
244 else if (Paper_column::is_breakable (command_column_))
247 last_breakable_column_ = command_column_;
249 SCM which_bar = get_property ("whichBar");
250 if (scm_is_string (which_bar))
252 string bar = ly_scm2string (which_bar);
253 if (bar != "" && bar != "|")
254 last_special_barline_column_ = command_column_;
258 progress_indication ("[" + to_string (breaks_) + "]");
261 SCM page_br = get_property ("allowPageTurn");
262 if (scm_is_pair (page_br) && last_breakable_column_)
264 SCM pen = scm_cdr (page_br);
265 Moment *m = unsmob_moment (scm_car (page_br));
268 Paper_column *turn = find_turnable_column (*m);
271 turn->set_property ("page-turn-permission", ly_symbol2scm ("allow"));
272 turn->set_property ("page-turn-penalty", pen);
273 page_turnable_columns_.push_back (turn);
278 /* The page-turn-engraver is allowed to change its mind and revoke previously-allowed
279 page turns (for example if there is a volta repeat where a turn is inconvenient) */
280 SCM revokes = get_property ("revokePageTurns");
281 if (scm_is_pair (revokes))
283 Moment *start = unsmob_moment (scm_car (revokes));
284 Real pen = robust_scm2double (scm_cdr (revokes), infinity_f);
286 revoke_page_turns (*start, pen);
289 context ()->get_score_context ()->unset_property (ly_symbol2scm ("forbidBreak"));
290 context ()->get_score_context ()->unset_property (ly_symbol2scm ("allowPageTurn"));
291 context ()->get_score_context ()->unset_property (ly_symbol2scm ("revokePageTurns"));
294 break_events_.clear ();
298 Paper_column_engraver::start_translation_timestep ()
301 TODO: don't make columns when skipTypesetting is true.
307 ADD_ACKNOWLEDGER (Paper_column_engraver, item);
308 ADD_ACKNOWLEDGER (Paper_column_engraver, note_spacing);
309 ADD_ACKNOWLEDGER (Paper_column_engraver, staff_spacing);
311 ADD_TRANSLATOR (Paper_column_engraver,
312 /* doc */ "Takes care of generating columns."
314 "This engraver decides whether a column is breakable. The default is "
315 "that a column is always breakable. However, every Bar_engraver "
316 "that does not have a barline at a certain point will set forbidBreaks "
317 "in the score context to stop linebreaks. In practice, this "
318 "means that you can make a breakpoint by creating a barline (assuming "
319 "that there are no beams or notes that prevent a breakpoint.) ",
323 "NonMusicalPaperColumn",
325 /* accept */ "break-event",
335 "currentCommandColumn "
336 "currentMusicalColumn "