* THANKS: add Don.

[lilypond.git] / lily / piano-pedal-performer.cc

diff --git a/lily/piano-pedal-performer.cc b/lily/piano-pedal-performer.cc
index f5cfd9089587c05076fb5a470062cffd504faa9f..4083c468f915279fbb19ea5f2d0da57264f6f13d 100644 (file)
--- a/lily/piano-pedal-performer.cc
+++ b/lily/piano-pedal-performer.cc
@@ -1,106 +1,152 @@
 /*
- piano-pedal-performer.cc -- implement Piano_pedal_performer
+  piano-pedal-performer.cc -- implement Piano_pedal_performer
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  2000 Jan Nieuwenhuizen <janneke@gnu.org>
+  (c) 2000--2006 Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
 #include "performer.hh"
-#include "command-request.hh"
-#include "musical-request.hh"
-#include "audio-item.hh"
-
 
-/*
-  TODO:
-    sostenuto
-    una-chorda ?
- */
+#include "audio-item.hh"
+#include "international.hh"
+#include "music.hh"
 
 /**
    perform Piano pedals
- */
+*/
 class Piano_pedal_performer : public Performer
 {
+  struct Pedal_info
+  {
+    char const *name_;
+    Music *start_event_;
+    Drul_array<Music *> event_drul_;
+  };
+
 public:
-  VIRTUAL_COPY_CONS (Translator);
-  
-  Piano_pedal_performer ();
+  TRANSLATOR_DECLARATIONS (Piano_pedal_performer);
+  ~Piano_pedal_performer ();
 
 protected:
-  virtual bool do_try_music (Music*);
-  virtual void do_process_music ();
-  virtual void do_pre_move_processing ();
-  virtual void do_post_move_processing ();
+  virtual void initialize ();
+  virtual bool try_music (Music *);
+  void process_music ();
+  void stop_translation_timestep ();
+  void start_translation_timestep ();
 
 private:
-  Link_array<Audio_piano_pedal> audio_p_arr_;
-  Span_req* span_start_req_l_;
-  Drul_array<Span_req*> span_req_l_drul_;
+  vector<Audio_piano_pedal*> audios_;
+  Pedal_info *info_alist_;
 };
 
-ADD_THIS_TRANSLATOR (Piano_pedal_performer);
-
 Piano_pedal_performer::Piano_pedal_performer ()
 {
-  span_req_l_drul_[START] = 0;
-  span_req_l_drul_[STOP] = 0;
-  span_start_req_l_ = 0;
+  info_alist_ = 0;
+}
+
+Piano_pedal_performer::~Piano_pedal_performer ()
+{
+  delete[] info_alist_;
 }
 
 void
-Piano_pedal_performer::do_process_music ()
+Piano_pedal_performer::initialize ()
 {
-  if (span_req_l_drul_[STOP])
+  info_alist_ = new Pedal_info[4];
+  Pedal_info *p = info_alist_;
+
+  char *names [] = { "Sostenuto", "Sustain", "UnaCorda", 0 };
+  char **np = names;
+  do
     {
-      if (!span_start_req_l_)
+      p->name_ = *np;
+      p->event_drul_[START] = 0;
+      p->event_drul_[STOP] = 0;
+      p->start_event_ = 0;
+
+      p++;
+    }
+  while (* (np++));
+}
+
+void
+Piano_pedal_performer::process_music ()
+{
+  for (Pedal_info *p = info_alist_; p && p->name_; p++)
+
+    {
+      if (p->event_drul_[STOP])
        {
-         span_req_l_drul_[STOP]->warning (_ ("can't find start of piano_pedal"));
+         if (!p->start_event_)
+           p->event_drul_[STOP]->origin ()->warning (_f ("can't find start of piano pedal: `%s'", string (p->name_)));
+         else
+           {
+             Audio_piano_pedal *a = new Audio_piano_pedal;
+             a->type_string_ = string (p->name_);
+             a->dir_ = STOP;
+             audios_.push_back (a);
+              Audio_element_info info(a, p->event_drul_[STOP]);
+              announce_element (info);
+           }
+         p->start_event_ = 0;
        }
-      else
+
+      if (p->event_drul_[START])
        {
-         Audio_piano_pedal* p = new Audio_piano_pedal;
-         p->type_b_ = false;
-         audio_p_arr_.push (p);
+         p->start_event_ = p->event_drul_[START];
+         Audio_piano_pedal *a = new Audio_piano_pedal;
+         a->type_string_ = string (p->name_);
+         a->dir_ = START;
+         audios_.push_back (a);
+          Audio_element_info info(a, p->event_drul_[START]);
+          announce_element (info);
        }
-      span_start_req_l_ = 0;
-    }
-
-  if (span_req_l_drul_[START])
-    {
-      span_start_req_l_ = span_req_l_drul_[START];
-      Audio_piano_pedal* p = new Audio_piano_pedal;
-      p->type_b_ = true;
-      audio_p_arr_.push (p);
+      p->event_drul_[START] = 0;
+      p->event_drul_[STOP] = 0;
     }
 }
 
 void
-Piano_pedal_performer::do_pre_move_processing ()
+Piano_pedal_performer::stop_translation_timestep ()
 {
-  for (int i=0; i < audio_p_arr_.size (); i++)
-    play_element (audio_p_arr_[i]);
-  audio_p_arr_.clear ();
+  for (vsize i = 0; i < audios_.size (); i++)
+    play_element (audios_[i]);
+  audios_.clear ();
 }
 
 void
-Piano_pedal_performer::do_post_move_processing ()
+Piano_pedal_performer::start_translation_timestep ()
 {
-  span_req_l_drul_[STOP] = 0;
-  span_req_l_drul_[START] = 0;
+  for (Pedal_info *p = info_alist_; p && p->name_; p++)
+    {
+      p->event_drul_[STOP] = 0;
+      p->event_drul_[START] = 0;
+    }
 }
 
 bool
-Piano_pedal_performer::do_try_music (Music* r)
+Piano_pedal_performer::try_music (Music *r)
 {
-  if (Span_req * s = dynamic_cast<Span_req*>(r))
+  if (r->is_mus_type ("pedal-event"))
     {
-      if (s-> span_type_str_ == "sustain")
+      for (Pedal_info *p = info_alist_; p->name_; p++)
        {
-         span_req_l_drul_[s->span_dir_] = s;
-         return true;
+         string nm = p->name_ + string ("Event");
+         if (ly_is_equal (r->get_property ("name"),
+                          scm_str2symbol (nm.c_str ())))
+           {
+             Direction d = to_dir (r->get_property ("span-direction"));
+             p->event_drul_[d] = r;
+             return true;
+           }
        }
     }
   return false;
 }
+
+#include "translator.icc"
+
+ADD_TRANSLATOR (Piano_pedal_performer, "", "",
+               "pedal-event",
+               "", "");