]> git.donarmstrong.com Git - lilypond.git/blob - lily/performer.cc
* lily/include/lily-guile.hh: rename ly_c_X_p -> ly_is_X
[lilypond.git] / lily / performer.cc
1 /*
2   performer.cc -- implement Performer
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1996--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   Jan Nieuwenhuizen <janneke@gnu.org>
8 */
9
10 #include "context.hh"
11 #include "performer-group-performer.hh"
12 #include "warn.hh"
13
14 void
15 Performer::play_element (Audio_element *p)
16 {
17   get_daddy_performer ()->play_element (p);
18 }
19
20 int
21 Performer::get_tempo () const
22 {
23   return get_daddy_performer ()->get_tempo ();
24 }
25
26 Performer_group_performer *
27 Performer::get_daddy_performer () const
28 {
29   return
30     dynamic_cast<Performer_group_performer *> (get_daddy_translator ());
31 }
32
33 void
34 Performer::acknowledge_audio_element (Audio_element_info)
35 {
36 }
37
38 void
39 Performer::create_audio_elements ()
40 {
41 }
42
43 void
44 Performer::announce_element (Audio_element_info i)
45 {
46   if (!i.origin_trans_)
47     i.origin_trans_ = this;
48   get_daddy_performer ()->announce_element (i);
49 }