X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finstrument-name-engraver.cc;h=377d66b832e7b9fe829aea2a219f9636495f1c8a;hb=5383cafcc75ae088f833df0081e2b2a73a5442a1;hp=039d941230fb94d658b24ebcaa10dd076202e7d7;hpb=a501f5946426488804ca2b03ab986f9c2b94ab99;p=lilypond.git diff --git a/lily/instrument-name-engraver.cc b/lily/instrument-name-engraver.cc index 039d941230..377d66b832 100644 --- a/lily/instrument-name-engraver.cc +++ b/lily/instrument-name-engraver.cc @@ -1,189 +1,166 @@ -/* - instrument-name-engraver.cc -- implement Instrument_name_engraver - +/* + instrument-name-engraver.cc -- implement Instrument_name_engraver + source file of the GNU LilyPond music typesetter - - (c) 2000--2004 Han-Wen Nienhuys - - */ + + (c) 2000--2006 Han-Wen Nienhuys +*/ #include "engraver.hh" -#include "item.hh" -#include "bar-line.hh" -#include "system-start-delimiter.hh" +#include "spanner.hh" +#include "pointer-group-interface.hh" #include "side-position-interface.hh" -#include "align-interface.hh" #include "axis-group-interface.hh" -#include "context.hh" -#include "text-item.hh" +#include "align-interface.hh" +#include "text-interface.hh" +#include "system.hh" + +#include "translator.icc" class Instrument_name_engraver : public Engraver { - public: TRANSLATOR_DECLARATIONS (Instrument_name_engraver); protected: - Grob *text_; + Spanner *text_spanner_; + + SCM long_text_; + SCM short_text_; - virtual void create_text (); - virtual void initialize (); - virtual void acknowledge_grob (Grob_info); - virtual void stop_translation_timestep (); - virtual void process_music (); + vector axis_groups_; + + virtual void finalize (); + DECLARE_ACKNOWLEDGER (axis_group); + void process_music (); + void start_spanner (); + void consider_start_spanner (); + void stop_spanner (); }; Instrument_name_engraver::Instrument_name_engraver () { - text_ = 0; -} + text_spanner_ = 0; - -void -Instrument_name_engraver::initialize () -{ - get_parent_context ()->set_property ("instrumentSupport", SCM_EOL); + long_text_ = SCM_EOL; + short_text_ = SCM_EOL; } void -Instrument_name_engraver::stop_translation_timestep () +Instrument_name_engraver::process_music () { - if (text_) - { - text_->set_property ("side-support-elements", - get_property ("instrumentSupport")); - typeset_grob (text_); - text_ = 0; - } + consider_start_spanner (); } - void -Instrument_name_engraver::create_text () +Instrument_name_engraver::consider_start_spanner () { - if (text_) - return ; - - SCM txt = get_property ("instrument"); - - if (now_mom () > Moment (0)) - txt = get_property ("instr"); - /* - UGH. - */ - if (txt == SCM_EOL) - return ; + SCM long_text = get_property ("instrumentName"); + SCM short_text = get_property ("shortInstrumentName"); - - text_ = make_item ("InstrumentName"); - - if (text_->get_property ("text") != txt) - text_->set_property ("text", txt); - announce_grob (text_, SCM_EOL); - } - -void -Instrument_name_engraver::acknowledge_grob (Grob_info i) -{ - if (Bar_line::has_interface (i.grob_)) + if (!(Text_interface::is_markup (long_text) + || Text_interface::is_markup (short_text))) { - create_text (); + long_text = get_property ("vocalName"); + short_text = get_property ("shortVocalName"); } - - if (dynamic_cast (i.grob_) - && i.grob_->internal_has_interface (ly_symbol2scm ("dynamic-interface"))) - return; - - /* - Hang the instrument names on the staves, but not on the alignment - groups enclosing that staff. The alignment has no real location, - but is only a vehicle for the placement routine it contains, and - therefore the location of its refpoint won't be very useful. - - We could also just use stavesFound, but lets keep this working - without staffs as well. - */ - if (dynamic_cast (i.grob_) - && ((Axis_group_interface::has_interface (i.grob_) - && Axis_group_interface::has_axis (i.grob_, Y_AXIS))) - && !Align_interface::has_interface (i.grob_)) + + if ((Text_interface::is_markup (long_text) + || Text_interface::is_markup (short_text)) + && (!text_spanner_ + || short_text_ != short_text + || long_text_ != long_text)) { - SCM nl = scm_cons (i.grob_->self_scm (), - get_property ("instrumentSupport")); + if (text_spanner_) + stop_spanner (); - get_parent_context ()->set_property ("instrumentSupport", nl); + + short_text_ = short_text; + long_text_ = long_text; + + start_spanner (); } } void -Instrument_name_engraver::process_music () +Instrument_name_engraver::start_spanner () { - /* - Also create text if barlines in other groups. This allows - a name to be attached to lyrics or chords. - */ - if (is_string (get_property ("whichBar"))) - create_text (); + text_spanner_ = make_spanner ("InstrumentName", SCM_EOL); + + Grob *col = unsmob_grob (get_property ("currentCommandColumn")); + text_spanner_->set_bound (LEFT, col); + text_spanner_->set_property ("text", short_text_); + text_spanner_->set_property ("long-text", long_text_); } -ENTER_DESCRIPTION (Instrument_name_engraver, -/* descr */ " Prints the name of the instrument (specified by " -" @code{Staff.instrument} and @code{Staff.instr}) " -"at the left of the staff. ", -/* creats*/ "InstrumentName", -/* accepts */ "", -/* acks */ "bar-line-interface axis-group-interface", -/* reads */ "instrument instr", -/* write */ ""); -/****************************************************************/ - - -class Vocal_name_engraver : public Instrument_name_engraver +void +Instrument_name_engraver::acknowledge_axis_group (Grob_info info) { -public: - TRANSLATOR_DECLARATIONS (Vocal_name_engraver); - virtual void create_text (); -}; + if (dynamic_cast (info.grob ()) + && Axis_group_interface::has_axis (info.grob (), Y_AXIS) + /* ugh. */ -Vocal_name_engraver::Vocal_name_engraver () -{ + && !info.grob ()->internal_has_interface (ly_symbol2scm ("dynamic-interface")) + && !info.grob ()->internal_has_interface (ly_symbol2scm ("piano-pedal-interface")) + && (!Align_interface::has_interface (info.grob ()))) + { + axis_groups_.push_back (info.grob ()); + } } +void +Instrument_name_engraver::finalize () +{ + if (text_spanner_) + { + stop_spanner (); + } +} void -Vocal_name_engraver::create_text () +Instrument_name_engraver::stop_spanner () { - if (text_) - return ; - - SCM txt = get_property ("vocalName"); + for (vsize i = 0; i < axis_groups_.size (); i++) + Pointer_group_interface::add_grob (text_spanner_, ly_symbol2scm ("elements"), axis_groups_[i]); - if (now_mom () > Moment (0)) - txt = get_property ("vocNam"); + text_spanner_->set_bound (RIGHT, + unsmob_grob (get_property ("currentCommandColumn"))); + + Pointer_group_interface::set_ordered (text_spanner_, ly_symbol2scm ("elements"), false); + + System *system = get_root_system (text_spanner_); /* - UGH. + UGH, should handle this in Score_engraver. */ - if (txt == SCM_EOL) - return ; - - text_ = make_item ("VocalName"); - - if (text_->get_property ("text") != txt) - text_->set_property ("text", txt); - announce_grob (text_, SCM_EOL); + if (system) + Axis_group_interface::add_element (system, text_spanner_); + else + text_spanner_->programming_error ("can't find root system"); + + text_spanner_ = 0; } +#include "translator.icc" + +ADD_ACKNOWLEDGER (Instrument_name_engraver, axis_group); + +ADD_TRANSLATOR (Instrument_name_engraver, + /* doc */ + "Creates a system start text for instrument or vocal names.", + + /* create */ + "InstrumentName ", + + /* read */ + "currentCommandColumn " + "shortInstrumentName " + "instrumentName " + "shortVocalName " + "vocalName " + , -ENTER_DESCRIPTION (Vocal_name_engraver, -/* descr */ " Prints the name of the a lyric voice (specified by " -" @code{Staff.vocalName} and @code{Staff.vocNam}) " -"at the left of the staff. ", -/* creats*/ "VocalName", -/* accepts */ "", -/* acks */ "bar-line-interface axis-group-interface", -/* reads */ "vocNam vocalName", -/* write */ ""); + /* write */ "");