]> git.donarmstrong.com Git - lilypond.git/blob - lily/vertical-align-grav.cc
partial: 1.0.1.jcn
[lilypond.git] / lily / vertical-align-grav.cc
1 /*
2   vertical-align-grav.cc -- implement Vertical_align_engraver
3
4   source file of the GNU LilyPond music typesetter
5
6   (c)  1997--1998 Han-Wen Nienhuys <hanwen@stack.nl>
7 */
8
9 #include "p-col.hh"
10 #include "vertical-align-grav.hh"
11 #include "vertical-align-spanner.hh"
12 #include "vertical-group-elem.hh"
13
14 Vertical_align_engraver::Vertical_align_engraver()
15 {
16   valign_p_ =0;
17 }
18
19 void
20 Vertical_align_engraver::do_creation_processing()
21 {
22   valign_p_ =new Vertical_align_spanner;
23   valign_p_->set_bounds(LEFT,get_staff_info().command_pcol_l ());
24   announce_element (Score_elem_info (valign_p_ , 0));
25 }
26
27 void
28 Vertical_align_engraver::do_removal_processing()
29 {
30   valign_p_->set_bounds(RIGHT,get_staff_info().command_pcol_l ());
31   typeset_element (valign_p_);
32   valign_p_ =0;
33 }
34
35 void
36 Vertical_align_engraver::acknowledge_element (Score_elem_info i)
37 {
38   if (i.origin_grav_l_arr_.size() == 2 && 
39        i.elem_l_->is_type_b (Vertical_group_element::static_name()) &&
40        !i.elem_l_->axis_group_l_a_[Y_AXIS]) 
41     {
42       assert (!valign_p_->contains_b (i.elem_l_));
43
44       valign_p_->add (i.elem_l_);
45     }
46 }
47
48
49 IMPLEMENT_IS_TYPE_B1(Vertical_align_engraver, Engraver);
50 ADD_THIS_TRANSLATOR(Vertical_align_engraver);