2 score-align-reg.cc -- implement Score_priority_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "axis-group-item.hh"
11 #include "score-priority-engraver.hh"
13 #include "dictionary-iter.hh"
14 #include "break-align-item.hh"
17 Score_priority_engraver::Score_priority_engraver()
23 Score_priority_engraver::do_pre_move_processing()
25 for (int i=0; i < column_p_arr_.size ();i++)
26 typeset_element (column_p_arr_[i]);
27 column_p_arr_.clear ();
31 typeset_element (halign_p_);
38 Score_priority_engraver::add_horizontal_group (Item* it, int priority)
42 halign_p_ = new Break_align_item;
43 halign_p_->set_elt_property (breakable_scm_sym, SCM_BOOL_T);
44 announce_element (Score_element_info (halign_p_,0));
48 halign_p_->center_l_ = it;
50 halign_p_->add_element_priority (it, priority);
52 column_p_arr_.push (it);
56 Score_priority_engraver::acknowledge_element (Score_element_info inf)
58 if (Item * item_l = dynamic_cast <Item *> (inf.elem_l_))
60 Dimension_cache * c = item_l->dim_cache_[X_AXIS];
61 if (c->empty_b () || c->parent_l_)
64 SCM pr = item_l->remove_elt_property (break_priority_scm_sym);
69 bool breakable = (item_l->remove_elt_property (breakable_scm_sym) != SCM_BOOL_F);
73 int priority = gh_scm2int (SCM_CDR (pr));
75 Score_element * column_l = 0;
77 column_l = halign_p_->get_elt_by_priority (priority);
78 Axis_group_item * hg=0;
81 hg = dynamic_cast<Axis_group_item*> (column_l);
85 hg = new Axis_group_item;
86 hg->set_axes (X_AXIS,X_AXIS);
87 hg->set_elt_property (ly_symbol("origin"),
89 announce_element (Score_element_info (hg,0));
90 add_horizontal_group (hg, priority);
93 hg->set_elt_property (ly_symbol("origin"),
94 scm_cons (gh_str02scm (item_l->name()),
95 hg->get_elt_property (ly_symbol ("origin"))));
96 hg->add_element (item_l);
101 ADD_THIS_TRANSLATOR(Score_priority_engraver);