X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmark-engraver.cc;h=baf353aa83ba9c9ad89aa125b10a6fc51b16b272;hb=d9bc24cb0b51b2d863e8d816c203137b88daec5c;hp=7f79b1d2103ab0ef9ccab32710c84dc1f8c15081;hpb=e7d84e6728ecfdf74d8f214486a29c2aca199819;p=lilypond.git diff --git a/lily/mark-engraver.cc b/lily/mark-engraver.cc index 7f79b1d210..baf353aa83 100644 --- a/lily/mark-engraver.cc +++ b/lily/mark-engraver.cc @@ -3,223 +3,179 @@ source file of the GNU LilyPond music typesetter - (c) 1998--2000 Jan Nieuwenhuizen + (c) 1998--2006 Jan Nieuwenhuizen */ -#include -#include "bar.hh" -#include "clef-item.hh" -#include "command-request.hh" -#include "dimension-cache.hh" -#include "engraver-group-engraver.hh" +#include +using namespace std; + #include "engraver.hh" -#include "lily-guile.hh" -#include "paper-column.hh" -#include "paper-def.hh" -#include "protected-scm.hh" -#include "side-position-interface.hh" -#include "staff-symbol-referencer.hh" -#include "staff-symbol.hh" -#include "text-item.hh" -#include "group-interface.hh" + +#include "axis-group-interface.hh" +#include "bar-line.hh" +#include "context.hh" +#include "grob-array.hh" +#include "international.hh" +#include "item.hh" +#include "stream-event.hh" +#include "text-interface.hh" +#include "warn.hh" + +#include "translator.icc" /** - put stuff over or next to bars. Examples: bar numbers, marginal notes, - rehearsal marks. - */ + put stuff over or next to bars. Examples: bar numbers, marginal notes, + rehearsal marks. +*/ class Mark_engraver : public Engraver { -public: - VIRTUAL_COPY_CONS(Translator); - Mark_engraver (); -protected: - Text_item* text_p_; - Protected_scm visibility_lambda_; - Protected_scm staffs_; - -protected: - virtual void do_creation_processing (); - virtual void do_pre_move_processing (); - virtual void acknowledge_element (Score_element_info); - void create_items(Request*); - virtual bool do_try_music (Music *req_l); - virtual void do_process_music (); - virtual void do_post_move_processing (); -private: - Mark_req * mark_req_l_; -}; + void create_items (Stream_event *); + Item *text_; + Stream_event *mark_ev_; -ADD_THIS_TRANSLATOR (Mark_engraver); +public: + TRANSLATOR_DECLARATIONS (Mark_engraver); +protected: + void process_music (); + void stop_translation_timestep (); -Mark_engraver::Mark_engraver () -{ - text_p_ =0; - mark_req_l_ = 0; - staffs_ = SCM_EOL; -} + DECLARE_TRANSLATOR_LISTENER (mark); + DECLARE_ACKNOWLEDGER (break_alignment); + DECLARE_ACKNOWLEDGER (break_aligned); +}; -void -Mark_engraver::do_creation_processing () +Mark_engraver::Mark_engraver () { - String t = "markVisibilityFunction"; - SCM proc = get_property (t); - - if (gh_procedure_p (proc)) - visibility_lambda_ = proc; + text_ = 0; + mark_ev_ = 0; } +/* + This is a flawed approach, since various break-aligned objects may + not appear depending on key signature etc. - + We keep it in case someone puts the engraver in a lower context than score. + */ void -Mark_engraver::acknowledge_element (Score_element_info inf) +Mark_engraver::acknowledge_break_aligned (Grob_info inf) { - Score_element * s = inf.elem_l_; - if (dynamic_cast (s)) - { - staffs_ = gh_cons (inf.elem_l_->self_scm_, staffs_); - } - else if (text_p_ && dynamic_cast (s)) + Grob *s = inf.grob (); + if (text_ + && !text_->get_parent (X_AXIS) + && (text_->get_property_data (ly_symbol2scm ("break-align-symbol")) + == s->get_property_data (ly_symbol2scm ("break-align-symbol"))) + && Axis_group_interface::has_interface (s)) { /* - Ugh. Figure out how to do this right at beginning of line, (without - creating class Bar_script : public Text_item). + RehearsalMark cannot be break-aligned, since the width of the + object should not be taken into alignment considerations. */ - text_p_->set_parent (s, X_AXIS); + text_->set_parent (s, X_AXIS); } } -void -Mark_engraver::do_pre_move_processing () +void +Mark_engraver::acknowledge_break_alignment (Grob_info inf) { - if (text_p_) + Grob *s = inf.grob (); + if (text_ + && dynamic_cast (s)) { - text_p_->set_elt_pointer("side-support-elements" , staffs_); - typeset_element (text_p_); - text_p_ =0; + text_->set_parent (s, X_AXIS); } } void -Mark_engraver::create_items (Request *rq) +Mark_engraver::stop_translation_timestep () { - if (text_p_) - return; - - text_p_ = new Text_item; - text_p_->set_elt_property ("breakable", SCM_BOOL_T); // ugh - Group_interface (text_p_, "interfaces").add_thing (ly_symbol2scm ("Mark")); - Side_position_interface staffside(text_p_); - staffside.set_axis (Y_AXIS); - - SCM prop = get_property ("markDirection"); - if (!isdir_b (prop)) - { - prop = gh_int2scm (UP); - } - text_p_->set_elt_property ("direction", prop); - - SCM padding = get_property ("markScriptPadding"); - if (gh_number_p(padding)) + if (text_) { - text_p_->set_elt_property ("padding", padding); + text_->set_object ("side-support-elements", + grob_list_to_grob_array (get_property ("stavesFound"))); + text_ = 0; } - else - { - text_p_ - ->set_elt_property ("padding", - gh_double2scm(paper_l ()->get_var ("interline"))); - } - - if (gh_procedure_p (visibility_lambda_)) - text_p_->set_elt_property ("visibility-lambda", - visibility_lambda_); - - announce_element (Score_element_info (text_p_, rq)); + mark_ev_ = 0; } - void -Mark_engraver::do_post_move_processing () +Mark_engraver::create_items (Stream_event *ev) { - mark_req_l_ = 0; -} + if (text_) + return; + text_ = make_item ("RehearsalMark", ev->self_scm ()); +} -bool -Mark_engraver::do_try_music (Music* r_l) +IMPLEMENT_TRANSLATOR_LISTENER (Mark_engraver, mark); +void +Mark_engraver::listen_mark (Stream_event *ev) { - if (Mark_req *mr = dynamic_cast (r_l)) - { - if (mark_req_l_ && mr->equal_b (mark_req_l_)) - return true; - if (mark_req_l_) - return false; - mark_req_l_ = mr; - return true; - } - return false; + ASSIGN_EVENT_ONCE (mark_ev_, ev); } +/* + TODO: make the increment function in Scheme. +*/ void -Mark_engraver::do_process_music () +Mark_engraver::process_music () { - if (mark_req_l_) + if (mark_ev_) { - create_items (mark_req_l_); - - String t; + create_items (mark_ev_); /* automatic marks. - */ - SCM m = (mark_req_l_->mark_label_ == SCM_UNDEFINED) - ? get_property ("rehearsalMark") - : SCM(mark_req_l_->mark_label_); - - if (gh_number_p (m)) - { - int mark_count = gh_scm2int (m); - t = to_str (mark_count); - mark_count ++; - m = gh_int2scm (mark_count); - } - else if (gh_string_p (m)) - { - t = ly_scm2string (m); - String next; - if (t.length_i ()) - { - char c = t[0]; - c++; - next = to_str (c); - } - m = ly_str02scm (next.ch_C()); - } - else - { - m = gh_int2scm (1); - } - - daddy_trans_l_->set_property ("rehearsalMark", m); - - - text_p_->set_elt_property ("text", - ly_str02scm ( t.ch_C())); + */ - String style = "mark"; - for (int i=0; i < t.length_i(); i++) + SCM m = mark_ev_->get_property ("label"); + SCM proc = get_property ("markFormatter"); + if (!Text_interface::is_markup (m) + && ly_is_procedure (proc)) { - if (!isdigit(t[i])) + if (!scm_is_number (m)) + m = get_property ("rehearsalMark"); + + if (scm_integer_p (m) == SCM_BOOL_T + && scm_exact_p (m) == SCM_BOOL_T) { - style = "large"; - break; + int mark_count = scm_to_int (m); + mark_count++; + context ()->set_property ("rehearsalMark", + scm_from_int (mark_count)); } + + if (scm_is_number (m)) + m = scm_call_2 (proc, m, context ()->self_scm ()); + else + /* FIXME: constant error message. */ + warning (_ ("rehearsalMark must have integer value")); } - SCM st = ly_str02scm (style.ch_C()); - text_p_->set_elt_property ("style", st); + + if (Text_interface::is_markup (m)) + text_->set_property ("text", m); + else + warning (_ ("mark label must be a markup object")); } } +ADD_ACKNOWLEDGER (Mark_engraver, break_aligned); +ADD_ACKNOWLEDGER (Mark_engraver, break_alignment); + +ADD_TRANSLATOR (Mark_engraver, + /* doc */ "This engraver will create RehearsalMark objects. " + "It puts them on top of all staves (which is taken from " + "the property @code{stavesFound}). If moving this engraver " + "to a different context, " + "@ref{Staff_collecting_engraver} must move along, otherwise all marks" + "end up on the same Y-location", + + /* create */ "RehearsalMark", + /* read */ + "markFormatter " + "rehearsalMark " + "stavesFound ", + + /* write */ "");