]> git.donarmstrong.com Git - lilypond.git/blob - lily/score-priority-engraver.cc
c72a60d01f8ec7ada51ee27e64ba79228f48f336
[lilypond.git] / lily / score-priority-engraver.cc
1 /*
2   score-align-reg.cc -- implement Score_priority_engraver
3
4   source file of the GNU LilyPond music typesetter
5
6   (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9 #include "dimension-cache.hh"
10 #include "axis-group-item.hh"
11 #include "score-priority-engraver.hh"
12 #include "item.hh"
13 #include "dictionary-iter.hh"
14 #include "break-align-item.hh"
15
16
17 Score_priority_engraver::Score_priority_engraver()
18 {
19   halign_p_ = 0;
20 }
21
22 void
23 Score_priority_engraver::do_pre_move_processing()
24 {
25   for (int i=0; i < column_p_arr_.size ();i++)
26     typeset_element (column_p_arr_[i]);
27   column_p_arr_.clear ();
28
29   if (halign_p_)
30     {
31       typeset_element (halign_p_);
32       halign_p_ =0;
33     }
34 }
35
36 /*
37   TODO: move this logic into Break_align_item
38  */
39 void
40 Score_priority_engraver::acknowledge_element (Score_element_info inf)
41 {
42   if (Item * item_l = dynamic_cast <Item *> (inf.elem_l_))
43     {
44       if (item_l->empty_b (X_AXIS) || item_l->parent_l (X_AXIS))
45         return;
46
47       SCM bp=item_l->remove_elt_property (breakable_scm_sym);
48       bool breakable = (bp != SCM_BOOL_F);
49       if (!breakable)
50         return ;
51
52
53       if (!halign_p_)
54         {
55           halign_p_ = new Break_align_item;
56           halign_p_->set_elt_property (breakable_scm_sym, SCM_BOOL_T);
57           announce_element (Score_element_info (halign_p_,0));
58         }
59
60       halign_p_->add_breakable_item (item_l);
61     }
62 }
63
64 ADD_THIS_TRANSLATOR(Score_priority_engraver);