]> git.donarmstrong.com Git - lilypond.git/blob - lily/vertical-align-engraver.cc
release: 1.3.113
[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--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8 #include "translator-group.hh"
9 #include "paper-column.hh"
10 #include "align-interface.hh"
11 #include "span-bar.hh"
12 #include "axis-group-interface.hh"
13 #include "engraver.hh"
14 #include "spanner.hh"
15
16 class Vertical_align_engraver : public Engraver
17 {
18   Spanner * valign_p_;
19   bool qualifies_b (Grob_info) const;  
20 public:
21   VIRTUAL_COPY_CONS(Translator);
22   Vertical_align_engraver();
23 protected:
24   virtual void acknowledge_grob (Grob_info);
25   virtual void initialize();
26   virtual void finalize();
27 };
28
29 Vertical_align_engraver::Vertical_align_engraver()
30 {
31   valign_p_ =0;
32 }
33
34 void
35 Vertical_align_engraver::initialize()
36 {
37   valign_p_ =new Spanner (get_property ("VerticalAlignment"));
38   valign_p_->set_bound(LEFT,unsmob_grob (get_property ("currentCommandColumn")));
39   announce_grob (valign_p_ , 0);
40 }
41
42 void
43 Vertical_align_engraver::finalize()
44 {
45   valign_p_->set_bound(RIGHT,unsmob_grob (get_property ("currentCommandColumn")));
46   typeset_grob (valign_p_);
47   valign_p_ =0;
48 }
49
50
51 bool
52 Vertical_align_engraver::qualifies_b (Grob_info i) const
53 {
54   int sz = i.origin_trans_l_arr ((Translator*)this).size()  ;
55
56   return sz > 1 && Axis_group_interface::has_interface (i.elem_l_)
57     && !i.elem_l_->parent_l (Y_AXIS) && Axis_group_interface::axis_b (i.elem_l_, Y_AXIS);
58 }
59
60 void
61 Vertical_align_engraver::acknowledge_grob (Grob_info i)
62 {
63   if (qualifies_b (i))
64     {
65       Align_interface::add_element (valign_p_,i.elem_l_, get_property ("verticalAlignmentChildCallback"));
66     }
67 }
68
69 ADD_THIS_TRANSLATOR(Vertical_align_engraver);