2 span-bar-grav.cc -- implement Span_bar_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "lily-guile.hh"
13 #include "span-bar.hh"
14 #include "engraver.hh"
19 Make bars that span multiple "staves". Catch bars, and span a
20 Span_bar over them if we find more than 2 bars. Vertical alignment
21 of staves changes the appearance of spanbars. It is up to the
22 aligner (Vertical_align_engraver, in this case, to add extra
23 dependencies to the spanbars.
26 class Span_bar_engraver : public Engraver
29 Link_array<Item> bar_l_arr_;
32 TRANSLATOR_DECLARATIONS(Span_bar_engraver);
34 virtual void acknowledge_grob (Grob_info);
35 virtual void stop_translation_timestep ();
40 Span_bar_engraver::Span_bar_engraver ()
48 Span_bar_engraver::acknowledge_grob (Grob_info i)
50 int depth = i.origin_trans_l_arr (this).size ();
52 && Bar::has_interface (i.grob_l_))
54 Item * it = dynamic_cast<Item*> (i.grob_l_);
57 if (bar_l_arr_.size () >= 2 && !spanbar_p_)
59 spanbar_p_ = new Item (get_property ("SpanBar"));
60 Span_bar::set_interface (spanbar_p_);
61 spanbar_p_->set_parent (bar_l_arr_[0], X_AXIS);
63 announce_grob (spanbar_p_, SCM_EOL);
68 Span_bar_engraver::stop_translation_timestep ()
72 for (int i=0; i < bar_l_arr_.size () ; i++)
73 Span_bar::add_bar (spanbar_p_,bar_l_arr_[i]);
75 SCM vissym =ly_symbol2scm ("visibility-lambda");
76 SCM vis = bar_l_arr_[0]->internal_get_grob_property (vissym);
77 if (scm_equal_p (spanbar_p_->internal_get_grob_property (vissym), vis) != SCM_BOOL_T)
78 spanbar_p_->internal_set_grob_property (vissym, vis);
80 typeset_grob (spanbar_p_);
83 bar_l_arr_.set_size (0);
92 ENTER_DESCRIPTION(Span_bar_engraver,
93 /* descr */ "This engraver makes cross-staff barlines: It catches all normal
94 bar lines, and draws a single span-bar across them.",
95 /* creats*/ "SpanBar",
96 /* acks */ "bar-line-interface",