]> git.donarmstrong.com Git - lilypond.git/blob - lily/axis-group-engraver.cc
c52eeb90531fc5b369b986ab182a1b9ab8df3081
[lilypond.git] / lily / axis-group-engraver.cc
1 /*
2   axis-group-engraver.cc -- implement Axis_group_engraver
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1999--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9 #include "axis-group-engraver.hh"
10
11 #include "spanner.hh"
12 #include "axis-group-interface.hh"
13 #include "warn.hh"
14 #include "context.hh"
15
16 #include "translator.icc"
17
18 Axis_group_engraver::Axis_group_engraver ()
19 {
20   must_be_last_ = true;
21   staffline_ = 0;
22 }
23
24 void
25 Axis_group_engraver::process_music ()
26 {
27   if (!staffline_)
28     {
29       staffline_ = get_spanner ();
30       Grob *it = unsmob_grob (get_property ("currentCommandColumn"));
31       staffline_->set_bound (LEFT, it);
32     }
33 }
34
35 Spanner *
36 Axis_group_engraver::get_spanner ()
37 {
38   return make_spanner ("VerticalAxisGroup", SCM_EOL);
39 }
40
41 /*
42   TODO: should we junk minimumVerticalExtent/extraVerticalExtent ?
43 */
44
45 void
46 Axis_group_engraver::finalize ()
47 {
48   if (staffline_)
49     {
50       Grob *it = unsmob_grob (get_property ("currentCommandColumn"));
51       staffline_->set_bound (RIGHT, it);
52     }
53 }
54
55 void
56 Axis_group_engraver::acknowledge_grob (Grob_info i)
57 {
58   elts_.push (i.grob ());
59 }
60
61 /*
62   maybe should check if our parent is set, because we now get a
63   cyclic parent relationship if we have two Axis_group_engravers in
64   the context.  */
65 void
66 Axis_group_engraver::process_acknowledged ()
67 {
68   if (!staffline_)
69     return;
70
71   for (int i = 0; i < elts_.size (); i++)
72     {
73       if (!unsmob_grob (elts_[i]->get_object ("axis-group-parent-Y")))
74         {
75           if (staffline_->get_parent (Y_AXIS)
76               && staffline_->get_parent (Y_AXIS) == elts_[i])
77             {
78               staffline_->warning (_ ("Axis_group_engraver: vertical group already has a parent"));
79               staffline_->warning (_ ("are there two Axis_group_engravers?"));
80               staffline_->warning (_ ("removing this vertical group"));
81               staffline_->suicide ();
82               staffline_ = 0;
83               break;
84             }
85           add_element (elts_[i]);
86         }
87     }
88   elts_.clear ();
89 }
90
91 void
92 Axis_group_engraver::add_element (Grob *e)
93 {
94   Axis_group_interface::add_element (staffline_, e);
95 }
96
97 ADD_ACKNOWLEDGER (Axis_group_engraver, grob);
98
99 ADD_TRANSLATOR (Axis_group_engraver,
100                 /* doc */ "Group all objects created in this context in a VerticalAxisGroup spanner.",
101                 /* create */ "VerticalAxisGroup",
102                 /* accept */ "",
103                 /* read */ "verticalExtent minimumVerticalExtent extraVerticalExtent",
104                 /* write */ "");