X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fspan-bar-engraver.cc;h=7b54329835b87055c29eb8c9a8b6ba1c5b93b26a;hb=15c43df3abc82ef71c674d7a7e4e4b6951b38187;hp=a228a1b2980011069a2d17a9fae3cd657a5c1650;hpb=9661ba1fb275f3e14f8a69f2cee2f02a2f893e48;p=lilypond.git diff --git a/lily/span-bar-engraver.cc b/lily/span-bar-engraver.cc index a228a1b298..7b54329835 100644 --- a/lily/span-bar-engraver.cc +++ b/lily/span-bar-engraver.cc @@ -3,89 +3,84 @@ source file of the GNU LilyPond music typesetter - (c) 1997--2000 Han-Wen Nienhuys + (c) 1997--2004 Han-Wen Nienhuys */ - -#include "lily-guile.hh" -#include "bar.hh" +#include "bar-line.hh" #include "item.hh" #include "span-bar.hh" #include "engraver.hh" - /** - Make bars that span multiple "staffs". Catch bars, and span a + 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 staffs changes the appearance of spanbars. It is up to the + 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 { - Item * spanbar_p_; - Link_array bar_l_arr_; + Item *spanbar_; + Link_array bars_; public: - VIRTUAL_COPY_CONS(Translator); - Span_bar_engraver(); + TRANSLATOR_DECLARATIONS (Span_bar_engraver); protected: - virtual void acknowledge_element (Score_element_info); - virtual void do_pre_move_processing(); - + virtual void acknowledge_grob (Grob_info); + virtual void stop_translation_timestep (); }; - -Span_bar_engraver::Span_bar_engraver() +Span_bar_engraver::Span_bar_engraver () { - spanbar_p_ =0; + spanbar_ = 0; } - - void -Span_bar_engraver::acknowledge_element (Score_element_info i) +Span_bar_engraver::acknowledge_grob (Grob_info i) { - int depth = i.origin_trans_l_arr (this).size(); - if (depth > 1 - && Bar::has_interface (i.elem_l_)) + int depth = i.origin_contexts (this).size (); + if (depth && Bar_line::has_interface (i.grob_)) { - Item * it = dynamic_cast(i.elem_l_); - bar_l_arr_.push (it); + Item * it = dynamic_cast (i.grob_); + bars_.push (it); - if (bar_l_arr_.size() >= 2 && !spanbar_p_) + if (bars_.size () >= 2 && !spanbar_) { - spanbar_p_ = new Item (get_property ("basicSpanBarProperties")); - Span_bar::set_interface (spanbar_p_); - spanbar_p_->set_elt_property ("glyph", bar_l_arr_[0]->get_elt_property ("glyph")); - spanbar_p_->set_elt_property ("visibility-lambda", - bar_l_arr_[0]->get_elt_property ("visibility-lambda")); - - spanbar_p_->set_parent (bar_l_arr_[0], Y_AXIS); - spanbar_p_->set_parent (bar_l_arr_[0], X_AXIS); - - announce_element (spanbar_p_,0); + spanbar_ = make_item ("SpanBar", SCM_EOL); + + spanbar_->set_parent (bars_[0], X_AXIS); + } } } + 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++) - Span_bar::add_bar( spanbar_p_,bar_l_arr_[i]); - typeset_element (spanbar_p_); - spanbar_p_ =0; - } - bar_l_arr_.set_size (0); -} - + for (int 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_c_equal_p (spanbar_->internal_get_property (vissym), vis)) + spanbar_->internal_set_property (vissym, vis); -ADD_THIS_TRANSLATOR(Span_bar_engraver); - + + spanbar_ = 0; + } + bars_.set_size (0); +} +ADD_TRANSLATOR (Span_bar_engraver, +/* descr */ "This engraver makes cross-staff barlines: It catches all normal " +"bar lines, and draws a single span-bar across them.", +/* creats*/ "SpanBar", +/* accepts */ "", +/* acks */ "bar-line-interface", +/* reads */ "", +/* write */ "");