]> git.donarmstrong.com Git - lilypond.git/blob - lily/score-priority-engraver.cc
release: 1.1.67
[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       Dimension_cache * c = item_l->dim_cache_[X_AXIS];
45       if (c->empty_b () || c->parent_l_)
46         return;
47
48       bool breakable
49         = (item_l->remove_elt_property (breakable_scm_sym) != SCM_BOOL_F);
50       if (!breakable)
51         return ;
52
53
54       if (!halign_p_)
55         {
56           halign_p_ = new Break_align_item;
57           halign_p_->set_elt_property (breakable_scm_sym, SCM_BOOL_T);
58           announce_element (Score_element_info (halign_p_,0));
59         }
60
61       halign_p_->add_breakable_item (item_l);
62     }
63 }
64
65 ADD_THIS_TRANSLATOR(Score_priority_engraver);