X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmetronome-engraver.cc;h=f3b6353435f7cbec1c05eefb3cad3d4d05cfcc1b;hb=77ec1817e3fb96b06888a7165ef70d318ef91174;hp=b30fea183a5132dde6a9fc9e7e51049ef50e6c5c;hpb=fcc5f76615e024803904a055902fdc6a3b24dccb;p=lilypond.git diff --git a/lily/metronome-engraver.cc b/lily/metronome-engraver.cc index b30fea183a..f3b6353435 100644 --- a/lily/metronome-engraver.cc +++ b/lily/metronome-engraver.cc @@ -16,6 +16,7 @@ using namespace std; #include "grob-array.hh" #include "item.hh" #include "stream-event.hh" +#include "text-interface.hh" #include "translator.icc" @@ -33,6 +34,7 @@ protected: SCM last_duration_; SCM last_count_; + SCM last_text_; protected: virtual void derived_mark () const; @@ -45,6 +47,7 @@ Metronome_mark_engraver::Metronome_mark_engraver () text_ = 0; last_duration_ = SCM_EOL; last_count_ = SCM_EOL; + last_text_ = SCM_EOL; } void @@ -52,6 +55,7 @@ Metronome_mark_engraver::derived_mark () const { scm_gc_mark (last_count_); scm_gc_mark (last_duration_); + scm_gc_mark (last_text_); } void @@ -72,16 +76,19 @@ Metronome_mark_engraver::process_music () { SCM count = get_property ("tempoUnitCount"); SCM duration = get_property ("tempoUnitDuration"); - - if (unsmob_duration (duration) - && scm_is_number (count) + 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 (duration, last_duration_) + && ly_is_equal (text, last_text_))) { text_ = make_item ("MetronomeMark", SCM_EOL); SCM proc = get_property ("metronomeMarkFormatter"); - SCM result = scm_call_3 (proc, + SCM result = scm_call_4 (proc, + text, duration, count, context ()->self_scm ()); @@ -91,15 +98,16 @@ Metronome_mark_engraver::process_music () last_duration_ = duration; last_count_ = count; + last_text_ = text; } 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}.", + "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 ", @@ -108,7 +116,9 @@ ADD_TRANSLATOR (Metronome_mark_engraver, "stavesFound " "metronomeMarkFormatter " "tempoUnitDuration " - "tempoUnitCount ", + "tempoUnitCount " + "tempoText " + "tempoHideNote ", /* write */ ""