X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmetronome-engraver.cc;h=841ae6df948037860786017fd85c8f4be13aa8b9;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=f3f04f1d3cd7d0f60f9ca30e8492a4ea471e2af2;hpb=d31881bf4e0a6f26efd0ad3715e0abf2804f0abd;p=lilypond.git diff --git a/lily/metronome-engraver.cc b/lily/metronome-engraver.cc index f3f04f1d3c..841ae6df94 100644 --- a/lily/metronome-engraver.cc +++ b/lily/metronome-engraver.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 1998--2010 Jan Nieuwenhuizen + Copyright (C) 1998--2015 Jan Nieuwenhuizen LilyPond is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -26,6 +26,7 @@ using namespace std; #include "duration.hh" #include "grob-array.hh" #include "item.hh" +#include "music.hh" #include "stream-event.hh" #include "text-interface.hh" @@ -33,138 +34,163 @@ using namespace std; class Metronome_mark_engraver : public Engraver { -public: - TRANSLATOR_DECLARATIONS (Metronome_mark_engraver); -protected: Item *text_; - Grob *bar_line_; + Grob *support_; + Grob *bar_; + Stream_event *tempo_ev_; - SCM last_duration_; - SCM last_count_; - SCM last_text_; +public: + TRANSLATOR_DECLARATIONS (Metronome_mark_engraver); - DECLARE_ACKNOWLEDGER (break_aligned); - DECLARE_ACKNOWLEDGER (break_alignment); - protected: - virtual void derived_mark () const; void stop_translation_timestep (); void process_music (); + + DECLARE_ACKNOWLEDGER (break_aligned); + DECLARE_ACKNOWLEDGER (break_alignment); + DECLARE_ACKNOWLEDGER (grob); + + DECLARE_TRANSLATOR_LISTENER (tempo_change); }; Metronome_mark_engraver::Metronome_mark_engraver () { text_ = 0; - last_duration_ = SCM_EOL; - last_count_ = SCM_EOL; - last_text_ = SCM_EOL; + support_ = 0; + bar_ = 0; + tempo_ev_ = 0; } +IMPLEMENT_TRANSLATOR_LISTENER (Metronome_mark_engraver, tempo_change); void -Metronome_mark_engraver::derived_mark () const +Metronome_mark_engraver::listen_tempo_change (Stream_event *ev) { - scm_gc_mark (last_count_); - scm_gc_mark (last_duration_); - scm_gc_mark (last_text_); + ASSIGN_EVENT_ONCE (tempo_ev_, ev); } -void -Metronome_mark_engraver::acknowledge_break_aligned (Grob_info inf) +static bool +safe_is_member (SCM scm, SCM lst) { - Grob *s = inf.grob (); - if (text_ - && !text_->get_parent (X_AXIS) - && dynamic_cast (s) - && (s->get_property_data ("break-align-symbol") - == text_->get_property_data ("break-align-symbol"))) - text_->set_parent (s, X_AXIS); + return scm_list_p (lst) == SCM_BOOL_T + && scm_member (scm, lst) != SCM_BOOL_F; } void -Metronome_mark_engraver::acknowledge_break_alignment (Grob_info inf) +Metronome_mark_engraver::acknowledge_break_aligned (Grob_info info) { - Grob *s = inf.grob (); + Grob *g = info.grob (); + if (text_ - && dynamic_cast (s)) + && g->get_property ("break-align-symbol") + == ly_symbol2scm ("staff-bar")) + bar_ = g; + else if (text_ + && !support_ + && safe_is_member (g->get_property ("break-align-symbol"), + text_->get_property ("break-align-symbols")) + && Item::break_visible (g)) { - text_->set_parent (s, X_AXIS); + support_ = g; + text_->set_parent (g, X_AXIS); } + if (bar_ || support_) + text_->set_property ("non-musical", SCM_BOOL_T); } +void +Metronome_mark_engraver::acknowledge_break_alignment (Grob_info info) +{ + Grob *g = info.grob (); + + if (text_ + && support_ + && dynamic_cast (g)) + text_->set_parent (g, X_AXIS); +} + +void +Metronome_mark_engraver::acknowledge_grob (Grob_info info) +{ + Grob *g = info.grob (); + + if (text_) + for (SCM s = text_->get_property ("non-break-align-symbols"); + scm_is_pair (s); + s = scm_cdr (s)) + if (g->internal_has_interface (scm_car (s))) + text_->set_parent (g, X_AXIS); +} void Metronome_mark_engraver::stop_translation_timestep () { if (text_) { - /* - Problem: how to set musical columns as parent - when there's no breakable object of interest nearby? - We don't want metronome marks aligned to paper columns. - - Grob *mc = unsmob_grob (get_property ("currentMusicalColumn")); - text_->set_parent (mc, X_AXIS); - */ + if (text_->get_parent (X_AXIS) + && text_->get_parent (X_AXIS)->internal_has_interface (ly_symbol2scm ("multi-measure-rest-interface")) + && bar_) + text_->set_parent (bar_, X_AXIS); + else if (!support_) + { + /* + Gardner Read "Music Notation", p.278 + + Align the metronome mark over the time signature (or the + first notational element of the measure if no time + signature is present in that measure). + */ + if (Grob *mc = Grob::unsmob (get_property ("currentMusicalColumn"))) + text_->set_parent (mc, X_AXIS); + else if (Grob *cc = Grob::unsmob (get_property ("currentCommandColumn"))) + text_->set_parent (cc, X_AXIS); + } text_->set_object ("side-support-elements", - grob_list_to_grob_array (get_property ("stavesFound"))); + grob_list_to_grob_array (get_property ("stavesFound"))); text_ = 0; + support_ = 0; + bar_ = 0; + tempo_ev_ = 0; } } void Metronome_mark_engraver::process_music () { - SCM count = get_property ("tempoUnitCount"); - SCM duration = get_property ("tempoUnitDuration"); - SCM text = get_property ("tempoText"); - - if ( ( (unsmob_duration (duration) && scm_is_number (count)) - || Text_interface::is_markup (text) ) - && !(ly_is_equal (count, last_count_) - && ly_is_equal (duration, last_duration_) - && ly_is_equal (text, last_text_))) + if (tempo_ev_) { - text_ = make_item ("MetronomeMark", SCM_EOL); + text_ = make_item ("MetronomeMark", tempo_ev_->self_scm ()); SCM proc = get_property ("metronomeMarkFormatter"); - SCM result = scm_call_4 (proc, - text, - duration, - count, - context ()->self_scm ()); + SCM result = scm_call_2 (proc, + tempo_ev_->self_scm (), + context ()->self_scm ()); text_->set_property ("text", result); } - - last_duration_ = duration; - last_count_ = count; - last_text_ = text; } - - ADD_ACKNOWLEDGER (Metronome_mark_engraver, break_aligned); ADD_ACKNOWLEDGER (Metronome_mark_engraver, break_alignment); +ADD_ACKNOWLEDGER (Metronome_mark_engraver, grob); ADD_TRANSLATOR (Metronome_mark_engraver, - /* doc */ - "Engrave metronome marking. This delegates the formatting" - " work to the function in the @code{metronomeMarkFormatter}" - " property. The mark is put over all staves. The staves are" - " taken from the @code{stavesFound} property, which is" - " maintained by @ref{Staff_collecting_engraver}.", - - /* create */ - "MetronomeMark ", - - /* read */ - "stavesFound " - "metronomeMarkFormatter " - "tempoUnitDuration " - "tempoUnitCount " - "tempoText " - "tempoHideNote ", - - /* write */ - "" - ); + /* doc */ + "Engrave metronome marking. This delegates the formatting" + " work to the function in the @code{metronomeMarkFormatter}" + " property. The mark is put over all staves. The staves are" + " taken from the @code{stavesFound} property, which is" + " maintained by @ref{Staff_collecting_engraver}.", + + /* create */ + "MetronomeMark ", + + /* read */ + "currentCommandColumn " + "currentMusicalColumn " + "metronomeMarkFormatter " + "stavesFound " + "tempoHideNote ", + + /* write */ + "" + );