X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fspan-bar-engraver.cc;h=503bdf265b5cbcae112ba6c3182d701eca7b36e3;hb=e4597b9d661ccb3d1031b9e17ec0bcca2bfaa66d;hp=acf9c4fb06a21ada1a4c1b7c277099c71e641d11;hpb=31653bf1d61a33ef8bc8c871d60c6b3452d04d28;p=lilypond.git diff --git a/lily/span-bar-engraver.cc b/lily/span-bar-engraver.cc index acf9c4fb06..503bdf265b 100644 --- a/lily/span-bar-engraver.cc +++ b/lily/span-bar-engraver.cc @@ -1,88 +1,84 @@ /* - span-bar-grav.cc -- implement Span_bar_engraver + span-bar-engraver.cc -- implement Span_bar_engraver source file of the GNU LilyPond music typesetter - (c) 1997--1998 Han-Wen Nienhuys + (c) 1997--2006 Han-Wen Nienhuys */ +#include "bar-line.hh" +#include "item.hh" #include "span-bar.hh" -#include "span-bar-engraver.hh" -#include "vertical-align-spanner.hh" +#include "engraver.hh" -Span_bar_engraver::Span_bar_engraver() -{ - spanbar_p_ =0; - valign_l_ =0; -} +/** -Span_bar* -Span_bar_engraver::get_span_bar_p() const +Make bars that span multiple "staves". Catch bars, and span a +Span_bar over them if we find more than 2 bars. Vertical alignment +of staves changes the appearance of spanbars. It is up to the +aligner (Vertical_align_engraver, in this case, to add extra +dependencies to the spanbars. +*/ +class Span_bar_engraver : public Engraver { - return new Span_bar; -} + Item *spanbar_; + vector bars_; +public: + TRANSLATOR_DECLARATIONS (Span_bar_engraver); +protected: + DECLARE_ACKNOWLEDGER (bar_line); + void stop_translation_timestep (); +}; -void -Span_bar_engraver::do_creation_processing () +Span_bar_engraver::Span_bar_engraver () { + spanbar_ = 0; } void -Span_bar_engraver::do_removal_processing () -{ -} - -void -Span_bar_engraver::acknowledge_element (Score_element_info i) +Span_bar_engraver::acknowledge_bar_line (Grob_info i) { - int depth = i.origin_grav_l_arr_.size(); - if (depth > 1 - && dynamic_cast (i.elem_l_)) + int depth = i.origin_contexts (this).size (); + if (depth && Bar_line::has_interface (i.grob ())) { - bar_l_arr_.push (dynamic_cast (i.elem_l_)); - - if (bar_l_arr_.size() >= 2 && !spanbar_p_) - /* - hmm, i do want a bracket with one staff some times, but not always - if (bar_l_arr_.size() >= 1 && !spanbar_p_) + Item *it = dynamic_cast (i.grob ()); + bars_.push_back (it); - --jcn - */ - - /* - - use a property? get_property ("singleStaffBracket") ? - - --hwn - */ + if (bars_.size () >= 2 && !spanbar_) { - spanbar_p_ = get_span_bar_p(); - announce_element (Score_element_info (spanbar_p_,0)); - spanbar_p_-> type_str_ = bar_l_arr_[0]->type_str_; + spanbar_ = make_item ("SpanBar", SCM_EOL); + + spanbar_->set_parent (bars_[0], X_AXIS); } } - else if (dynamic_cast (i.elem_l_) - && i.origin_grav_l_arr_.size() <= 2) - { - valign_l_ = dynamic_cast (i.elem_l_); - } } void -Span_bar_engraver::do_pre_move_processing() +Span_bar_engraver::stop_translation_timestep () { - if (spanbar_p_) + if (spanbar_) { - for (int i=0; i < bar_l_arr_.size() ; i++) - spanbar_p_->add_bar (bar_l_arr_[i]); - spanbar_p_->set_align (valign_l_); - typeset_element (spanbar_p_); - spanbar_p_ =0; + for (vsize i = 0; i < bars_.size (); i++) + Span_bar::add_bar (spanbar_, bars_[i]); + + SCM vissym = ly_symbol2scm ("break-visibility"); + SCM vis = bars_[0]->internal_get_property (vissym); + if (ly_is_equal (spanbar_->internal_get_property (vissym), vis)) + spanbar_->internal_set_property (vissym, vis); + + spanbar_ = 0; } - bar_l_arr_.set_size (0); + bars_.resize (0); } +#include "translator.icc" -IMPLEMENT_IS_TYPE_B1(Span_bar_engraver,Engraver); -ADD_THIS_TRANSLATOR(Span_bar_engraver); +ADD_ACKNOWLEDGER (Span_bar_engraver, bar_line); +ADD_TRANSLATOR (Span_bar_engraver, + /* doc */ "This engraver makes cross-staff barlines: It catches all normal " + "bar lines, and draws a single span-bar across them.", + /* create */ "SpanBar", + /* accept */ "", + /* read */ "", + /* write */ "");