X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fstaff-symbol-engraver.cc;h=cfd92d8a56f5fb0b7ca40c25bffa6bdb2de89156;hb=5d057e2673b75417a187d75f09023f6071a81e3e;hp=410cbac927eedb45b81705bc6b15c520df7474e8;hpb=9c8bcb9a2a1fedb5459e593b18a8c550318e6800;p=lilypond.git diff --git a/lily/staff-symbol-engraver.cc b/lily/staff-symbol-engraver.cc index 410cbac927..cfd92d8a56 100644 --- a/lily/staff-symbol-engraver.cc +++ b/lily/staff-symbol-engraver.cc @@ -3,7 +3,7 @@ source file of the GNU LilyPond music typesetter - (c) 1997--2000 Han-Wen Nienhuys + (c) 1997--2004 Han-Wen Nienhuys */ @@ -18,62 +18,107 @@ Manage the staff symbol. */ class Staff_symbol_engraver : public Engraver { - Spanner *span_p_; public: - VIRTUAL_COPY_CONS(Translator); - Staff_symbol_engraver(); + TRANSLATOR_DECLARATIONS (Staff_symbol_engraver); protected: - virtual ~Staff_symbol_engraver(); - virtual void acknowledge_element (Score_element_info); - virtual void do_removal_processing(); - virtual void do_creation_processing(); + Spanner *span_; + + virtual ~Staff_symbol_engraver (); + virtual void acknowledge_grob (Grob_info); + virtual void finalize (); + virtual void process_music (); }; -Staff_symbol_engraver::~Staff_symbol_engraver() +Staff_symbol_engraver::~Staff_symbol_engraver () { - assert (!span_p_); + assert (!span_); } -Staff_symbol_engraver::Staff_symbol_engraver() +Staff_symbol_engraver::Staff_symbol_engraver () { - span_p_ = 0; + span_ = 0; } void -Staff_symbol_engraver::do_creation_processing() +Staff_symbol_engraver::process_music () { - span_p_ = new Spanner (get_property ("staffSymbolBasicProperties")); + if (!span_) + { + span_ = make_spanner ("StaffSymbol"); - span_p_->set_bound(LEFT, unsmob_element (get_property ("currentCommandColumn"))); + span_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn"))); - announce_element (span_p_, 0); + announce_grob (span_, SCM_EOL); + } } void -Staff_symbol_engraver::do_removal_processing() +Staff_symbol_engraver::finalize () { - SCM n = get_property ("numberOfStaffLines"); - SCM ss = get_property ("staffSpace"); + if (span_) + { + span_->set_bound (RIGHT,unsmob_grob (get_property ("currentCommandColumn"))); + typeset_grob (span_); + } + span_ =0; +} - if (gh_number_p (ss)) - span_p_->set_elt_property ("staff-space", ss); - if (gh_number_p (n)) - span_p_->set_elt_property ("line-count", n); +void +Staff_symbol_engraver::acknowledge_grob (Grob_info s) +{ + s.grob_->set_property ("staff-symbol", span_->self_scm ()); - span_p_->set_bound(RIGHT,unsmob_element (get_property ("currentCommandColumn"))); - typeset_element (span_p_); - span_p_ =0; + // remove this. probly not necessary? + s.grob_->add_dependency (span_); // UGH. UGH. UGH } + + + +ENTER_DESCRIPTION (Staff_symbol_engraver, +/* descr */ "Create the constellation of five (default) " +"staff lines.", +/* creats*/ "StaffSymbol", +/* accepts */ "", +/* acks */ "grob-interface", +/* reads */ "", +/* write */ ""); + +/****************************************************************/ + + +class Tab_staff_symbol_engraver : public Staff_symbol_engraver +{ +public: + TRANSLATOR_DECLARATIONS (Tab_staff_symbol_engraver); +protected: + virtual void process_music (); +}; + void -Staff_symbol_engraver::acknowledge_element (Score_element_info s) +Tab_staff_symbol_engraver::process_music () { - s.elem_l_->set_elt_property ("staff-symbol", span_p_->self_scm ()); - s.elem_l_->add_dependency (span_p_); // UGH. UGH. UGH + bool init = !span_; + Staff_symbol_engraver::process_music (); + if (init) + { + int k = scm_ilength (get_property ("stringTunings")); + if (k>=0) + span_->set_property ("line-count", gh_int2scm (k)); + } } +Tab_staff_symbol_engraver::Tab_staff_symbol_engraver () +{ +} -ADD_THIS_TRANSLATOR(Staff_symbol_engraver); - +ENTER_DESCRIPTION (Tab_staff_symbol_engraver, +/* descr */ "Create a staff-symbol, but look at stringTunings for the number of lines." +"staff lines.", +/* creats*/ "StaffSymbol", +/* accepts */ "", +/* acks */ "grob-interface", +/* reads */ "stringTunings", +/* write */ "");