(process_music): new function. Set melisma

[lilypond.git] / lily / tie-performer.cc

diff --git a/lily/tie-performer.cc b/lily/tie-performer.cc
index 12ea01c52ee8517b8b2eb1c5ef09b5e5647fb650..6e767ef2dd1a696c879d37f31a8ad52ae421f13d 100644 (file)
--- a/lily/tie-performer.cc
+++ b/lily/tie-performer.cc
@@ -7,7 +7,7 @@
   
  */
 
-
+#include "translator-group.hh"
 #include "audio-item.hh"
 #include "event.hh"
 #include "pqueue.hh"
@@ -52,6 +52,7 @@ private:
   Link_array<Audio_tie> ties_;
   
 protected:
+  virtual void process_music ();
   virtual void start_translation_timestep ();
   virtual void stop_translation_timestep ();
   virtual void acknowledge_audio_element (Audio_element_info);
@@ -59,6 +60,13 @@ protected:
   virtual void create_audio_elements ();
 };
 
+void
+Tie_performer::process_music ()
+{
+  if (event_)
+    daddy_trans_->set_property ("tieMelismaBusy", SCM_BOOL_T);
+}
+
 
 Tie_performer::Tie_performer ()
 {