2 vertical-align-engraver.cc -- implement Vertical_align_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
10 #include "paper-column.hh"
11 #include "align-interface.hh"
12 #include "span-bar.hh"
13 #include "axis-group-interface.hh"
14 #include "engraver.hh"
16 #include "pointer-group-interface.hh"
17 #include "grob-array.hh"
19 #include "translator.icc"
21 class Vertical_align_engraver : public Engraver
24 bool qualifies (Grob_info) const;
25 SCM id_to_group_hashtab_;
28 TRANSLATOR_DECLARATIONS (Vertical_align_engraver);
29 DECLARE_ACKNOWLEDGER (axis_group);
32 virtual void derived_mark () const;
33 void process_music ();
34 virtual void finalize ();
35 virtual void initialize ();
38 ADD_ACKNOWLEDGER (Vertical_align_engraver, axis_group);
39 ADD_TRANSLATOR (Vertical_align_engraver,
40 "Catch groups (staffs, lyrics lines, etc.) and stack "
42 /* create */ "VerticalAlignment",
43 /* read */ "alignAboveContext alignBelowContext",
46 Vertical_align_engraver::Vertical_align_engraver ()
49 id_to_group_hashtab_ = SCM_EOL;
53 Vertical_align_engraver::derived_mark () const
55 scm_gc_mark (id_to_group_hashtab_);
59 Vertical_align_engraver::initialize ()
61 id_to_group_hashtab_ = scm_c_make_hash_table (11);
65 Vertical_align_engraver::process_music ()
69 valign_ = make_spanner ("VerticalAlignment", SCM_EOL);
70 valign_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn")));
71 Align_interface::set_ordered (valign_);
76 Vertical_align_engraver::finalize ()
80 valign_->set_bound (RIGHT, unsmob_grob (get_property ("currentCommandColumn")));
86 Vertical_align_engraver::qualifies (Grob_info i) const
88 int sz = i.origin_contexts ((Translator *)this).size ();
90 return sz > 0 && Axis_group_interface::has_interface (i.grob ())
91 && !i.grob ()->get_parent (Y_AXIS)
92 && Axis_group_interface::has_axis (i.grob (), Y_AXIS);
96 Vertical_align_engraver::acknowledge_axis_group (Grob_info i)
100 string id = i.context ()->id_string ();
102 scm_hash_set_x (id_to_group_hashtab_, scm_makfrom0str (id.c_str ()),
103 i.grob ()->self_scm ());
105 SCM before_id = i.context ()->get_property ("alignAboveContext");
106 SCM after_id = i.context ()->get_property ("alignBelowContext");
108 SCM before = scm_hash_ref (id_to_group_hashtab_, before_id, SCM_BOOL_F);
109 SCM after = scm_hash_ref (id_to_group_hashtab_, after_id, SCM_BOOL_F);
111 Grob *before_grob = unsmob_grob (before);
112 Grob *after_grob = unsmob_grob (after);
114 Align_interface::add_element (valign_, i.grob ());
116 if (before_grob || after_grob)
118 Grob_array *ga = unsmob_grob_array (valign_->get_object ("elements"));
119 vector<Grob*> &arr = ga->array_reference ();
121 Grob *added = arr.back ();
123 for (vsize i = 0; i < arr.size (); i++)
125 if (arr[i] == before_grob)
127 arr.insert (arr.begin () + i, added);
130 else if (arr[i] == after_grob)
132 arr.insert (arr.begin () + i + 1, added);