Only issue warning about running configure

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

diff --git a/lily/tie-performer.cc b/lily/tie-performer.cc
index da9696c2a5890cf8dad25f40c3f15c2d80daf135..b38e9f2cb733feb62e1d7b90bdedac9e729a85a8 100644 (file)
--- a/lily/tie-performer.cc
+++ b/lily/tie-performer.cc
@@ -3,11 +3,11 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 1999--2003 Jan Nieuwenhuizen <janneke@gnu.org>
+  (c) 1999--2004 Jan Nieuwenhuizen <janneke@gnu.org>
   
  */
 
-
+#include "context.hh"
 #include "audio-item.hh"
 #include "event.hh"
 #include "pqueue.hh"
@@ -52,7 +52,7 @@ private:
   Link_array<Audio_tie> ties_;
   
 protected:
-  virtual void initialize ();
+  virtual void process_music ();
   virtual void start_translation_timestep ();
   virtual void stop_translation_timestep ();
   virtual void acknowledge_audio_element (Audio_element_info);
@@ -60,11 +60,19 @@ protected:
   virtual void create_audio_elements ();
 };
 
+void
+Tie_performer::process_music ()
+{
+  if (event_)
+    daddy_context_->set_property ("tieMelismaBusy", SCM_BOOL_T);
+}
+
 
 Tie_performer::Tie_performer ()
 {
   event_ = 0;
   ties_created_ = false;
+  prev_event_ = 0;
 }
 
 ENTER_DESCRIPTION (Tie_performer, "", "",
@@ -72,13 +80,6 @@ ENTER_DESCRIPTION (Tie_performer, "", "",
                   "", "", "");
 
 
-void
-Tie_performer::initialize ()
-{
-  event_ = 0;
-  prev_event_ = 0;
-}
-
 
 bool
 Tie_performer::try_music (Music *m)
@@ -119,8 +120,8 @@ Tie_performer::create_audio_elements ()
          for (int j = now_notes_.size(); j--;)
            {
              int comp
-               = Pitch::compare (*unsmob_pitch (tied_notes_[i].event_->get_mus_property ("pitch")),
-                                 *unsmob_pitch (now_notes_[j].event_->get_mus_property ("pitch")));
+               = Pitch::compare (*unsmob_pitch (tied_notes_[i].event_->get_property ("pitch")),
+                                 *unsmob_pitch (now_notes_[j].event_->get_property ("pitch")));
 
              if (comp == 0)
                {
@@ -207,8 +208,8 @@ int
 CNote_melodic_tuple::pitch_compare (CNote_melodic_tuple const&h1,
                                    CNote_melodic_tuple const &h2)
 {
-  SCM p1  = h1.event_->get_mus_property ("pitch");
-  SCM p2  = h2.event_->get_mus_property ("pitch");  
+  SCM p1  = h1.event_->get_property ("pitch");
+  SCM p2  = h2.event_->get_property ("pitch");  
   return Pitch::compare (*unsmob_pitch (p1),
                               *unsmob_pitch (p2));
 }