]> git.donarmstrong.com Git - lilypond.git/blob - lily/collision-engraver.cc
release: 1.1.1
[lilypond.git] / lily / collision-engraver.cc
1 /*
2   collision-reg.cc -- implement Collision_engraver
3
4   source file of the GNU LilyPond music typesetter
5
6   (c)  1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9 #include "note-column.hh"
10 #include "collision-engraver.hh"
11 #include "collision.hh"
12
13 void
14 Collision_engraver::process_acknowledged ()
15 {
16    
17   if (col_p_ || note_column_l_arr_.size () < 2)
18       return ;
19   if (!col_p_) 
20     {
21       col_p_ = new Collision;
22       announce_element (Score_element_info (col_p_,0));
23     }
24   for (int i=0; i< note_column_l_arr_.size (); i++)
25     col_p_->add_column (note_column_l_arr_[i]);
26 }
27
28 void
29 Collision_engraver::acknowledge_element (Score_element_info i)
30 {
31   if (Note_column * c = dynamic_cast<Note_column *> (i.elem_l_))
32     {
33       if (c->rest_b ())
34         return ;
35
36       note_column_l_arr_.push (c);
37     }
38 }
39
40 void
41 Collision_engraver::do_pre_move_processing()
42 {
43   if (col_p_) 
44     {
45       typeset_element (col_p_);
46       col_p_ =0;
47     }
48   note_column_l_arr_.clear ();
49 }
50
51 Collision_engraver::Collision_engraver()
52 {
53   col_p_ =0;
54 }
55
56
57 IMPLEMENT_IS_TYPE_B1(Collision_engraver,Engraver);
58 ADD_THIS_TRANSLATOR(Collision_engraver);