* scm/music-functions.scm (descend-to-context): new

[lilypond.git] / lily / performer.cc

diff --git a/lily/performer.cc b/lily/performer.cc
index 449caf22bb486cc2de1c436eafbd99a6fb2f01f9..14a4239c1faaf6fb29abdf717634720ffdfd26f6 100644 (file)
--- a/lily/performer.cc
+++ b/lily/performer.cc
@@ -3,33 +3,48 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1996,  1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1996--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
                Jan Nieuwenhuizen <janneke@gnu.org>
  */
 
-
+#include "context.hh"
 #include "performer-group-performer.hh"
-#include "debug.hh"
-
-
-IMPLEMENT_IS_TYPE_B1(Performer, Translator);
+#include "warn.hh"
 
 void 
-Performer::play (Audio_element* p) 
+Performer::play_element (Audio_element* p) 
 { 
-  daddy_perf_l ()->play (p); 
+  get_daddy_performer ()->play_element (p); 
 }
 
 int
-Performer::get_tempo_i() const
+Performer::get_tempo () const
 {
-  return daddy_perf_l ()->get_tempo_i();
+  return get_daddy_performer ()->get_tempo ();
 }
 
 Performer_group_performer*
-Performer::daddy_perf_l () const
+Performer::get_daddy_performer () const
+{
+  return
+    dynamic_cast<Performer_group_performer *> (get_daddy_translator ());
+}
+
+void
+Performer::acknowledge_audio_element (Audio_element_info)
+{
+}
+
+void
+Performer::create_audio_elements ()
+{
+}
+
+
+void
+Performer::announce_element (Audio_element_info i)
 {
-  return (daddy_trans_l_) 
-    ?dynamic_cast<Performer_group_performer *> (daddy_trans_l_)
-    : 0;
+  if (!i.origin_trans_)
+    i.origin_trans_= this;
+  get_daddy_performer ()->announce_element (i);
 }