]> git.donarmstrong.com Git - lilypond.git/blob - lily/vertical-align-engraver.cc
release: 1.1.37
[lilypond.git] / lily / vertical-align-engraver.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--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9 #include "p-col.hh"
10 #include "vertical-align-engraver.hh"
11 #include "axis-align-spanner.hh"
12 #include "axis-group-spanner.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 Axis_align_spanner;
23   valign_p_->set_axis (Y_AXIS);
24   valign_p_->stacking_dir_ = DOWN;
25   
26   valign_p_->set_bounds(LEFT,get_staff_info().command_pcol_l ());
27   announce_element (Score_element_info (valign_p_ , 0));
28 }
29
30 void
31 Vertical_align_engraver::do_removal_processing()
32 {
33   Scalar dist (get_property ("maxVerticalAlign", 0));
34   if (dist.length_i () && dist.isnum_b ())
35     {
36       valign_p_->threshold_interval_[BIGGER]  = Real (dist);
37     }
38
39   dist = get_property ("minVerticalAlign", 0);
40   if (dist.length_i () && dist.isnum_b ())
41     {
42       valign_p_->threshold_interval_[SMALLER]  = Real (dist);
43     }
44
45   dist = get_property ("alignmentReference",0);
46   if (dist.length_i () && dist.isnum_b ())
47     {
48       valign_p_->align_dir_ = int (dist);
49     }
50   valign_p_->set_bounds(RIGHT,get_staff_info().command_pcol_l ());
51   typeset_element (valign_p_);
52   valign_p_ =0;
53 }
54
55 void
56 Vertical_align_engraver::acknowledge_element (Score_element_info i)
57 {
58   if (i.origin_grav_l_arr_.size() == 1 &&
59       dynamic_cast<Axis_group_spanner *> (i.elem_l_)
60       && !i.elem_l_->parent_l (Y_AXIS))
61     {
62       valign_p_->add_element (i.elem_l_);
63     }
64 }
65
66
67
68 ADD_THIS_TRANSLATOR(Vertical_align_engraver);