X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fbar-number-engraver.cc;h=6ef193e2ebde5fa40abb8547ced1638df00e7e17;hb=10fce7970987502ec8340819411897a829f6be23;hp=7adc8dcdea11546bd76121830c06bfdba24698e5;hpb=75be12aa75a535af753d6125bfc03da3ee303b36;p=lilypond.git diff --git a/lily/bar-number-engraver.cc b/lily/bar-number-engraver.cc index 7adc8dcdea..6ef193e2eb 100644 --- a/lily/bar-number-engraver.cc +++ b/lily/bar-number-engraver.cc @@ -1,40 +1,120 @@ /* - bar-number-grav.cc -- implement Bar_number_engraver + bar-number-engraver.cc -- implement Bar_number_engraver source file of the GNU LilyPond music typesetter - (c) 1997--1998 Han-Wen Nienhuys + (c) 1997--2005 Han-Wen Nienhuys */ +#include "paper-column.hh" +#include "output-def.hh" +#include "side-position-interface.hh" +#include "engraver.hh" +#include "context.hh" + +/* + +TODO: detect the top staff (stavesFound), and acknowledge staff-group +system-start-delims. If we find these, and the top staff is in the +staff-group, add padding to the bar number. + +*/ + + +class Bar_number_engraver : public Engraver +{ +protected: + Item* text_; +protected: + virtual void stop_translation_timestep (); + virtual void acknowledge_grob (Grob_info); + virtual void process_music (); + void create_items (); + TRANSLATOR_DECLARATIONS (Bar_number_engraver ); +}; -#include "bar-number-engraver.hh" -#include "time-description.hh" -#include "timing-engraver.hh" -#include "engraver-group.hh" -#include "g-text-item.hh" -Bar_number_engraver::Bar_number_engraver() +void +Bar_number_engraver::process_music () { - axis_ = Y_AXIS; - type_ = "barNumber"; - visibility_lambda_ - = gh_eval_str ("(lambda (d) (if (= d 1) '(#f . #f) '(#t . #t)))"); + // todo include (&&!time->cadenza_b_) + + SCM wb = get_property ("whichBar"); + + if (scm_is_string (wb)) + { + Moment mp (robust_scm2moment (get_property ("measurePosition"), Moment (0))); + if (mp.main_part_ == Rational (0)) + { + SCM bn = get_property ("currentBarNumber"); + SCM proc = get_property ("barNumberVisibility"); + if (scm_is_number (bn) && ly_c_procedure_p (proc) + && to_boolean (scm_call_1(proc, bn))) + { + create_items (); + // guh. + text_->set_property + ("text", scm_makfrom0str (to_string (scm_to_int (bn)).to_str0 ())); + } + } + } + } + + +Bar_number_engraver::Bar_number_engraver () +{ + text_ = 0; +} + + void -Bar_number_engraver::do_process_requests () +Bar_number_engraver::acknowledge_grob (Grob_info inf) { - Translator *tr = daddy_grav_l ()->get_simple_translator ("Timing_engraver"); - Timing_translator *timer = dynamic_cast(tr); - Time_description *time = &timer->time_; + Grob * s = inf.grob_; + if (text_ + && dynamic_cast (s) + && s->get_property ("break-align-symbol") == ly_symbol2scm ("left-edge")) + { + /* + By default this would land on the Paper_column -- so why + doesn't it work when you leave this out? */ + text_->set_parent (s, X_AXIS); + } +} - if (!time->whole_in_measure_ && !time->cadenza_b_ && now_moment () > Moment (0)) +void +Bar_number_engraver::stop_translation_timestep () +{ + if (text_) { - create_items (0); - - text_p_->text_str_ = to_str (time->bars_i_); - text_p_->style_str_ = "roman"; + text_->set_property ("side-support-elements", get_property ("stavesFound")); + + text_ = 0; } } -ADD_THIS_TRANSLATOR(Bar_number_engraver); + +void +Bar_number_engraver::create_items () +{ + if (text_) + return; + + text_ = make_item ("BarNumber", SCM_EOL); + Side_position_interface::set_axis (text_, Y_AXIS); +} + +ADD_TRANSLATOR (Bar_number_engraver, +/* descr */ "A bar number is created whenever measurePosition is zero. It is\n" + "put on top of all staves, and appears only at left side of the staff. " + "The staves are taken from @code{stavesFound}, which is maintained by " + "@code{@ref{Staff_collecting_engraver}}. " + , + +/* creats*/ "BarNumber", +/* accepts */ "", +/* acks */ "break-aligned-interface", +/* reads */ "currentBarNumber stavesFound barNumberVisibility" , +/* write */ "");