2 performer-group-performer.cc -- implement Performer_group_performer
4 source file of the GNU LilyPond music typesetter
6 (c) 1996--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 Jan Nieuwenhuizen <janneke@gnu.org>
10 #include "performer-group-performer.hh"
12 #include "audio-element.hh"
16 ADD_THIS_TRANSLATOR(Performer_group_performer);
20 Performer_group_performer::announce_element (Audio_element_info info)
22 announce_info_arr_.push (info);
23 Performer::announce_element (info);
29 Performer_group_performer::create_audio_elements ()
31 for (SCM p = simple_trans_list_; gh_pair_p (p); p = gh_cdr ( p))
33 Translator * t = unsmob_translator (gh_car (p));
34 Performer * eng = dynamic_cast<Performer*> (t);
36 eng->create_audio_elements ();
41 Performer_group_performer::acknowledge_audio_elements ()
43 for (int j =0; j < announce_info_arr_.size(); j++)
45 Audio_element_info info = announce_info_arr_[j];
47 for (SCM p = simple_trans_list_; gh_pair_p (p); p = gh_cdr (p))
49 Translator * t = unsmob_translator (gh_car (p));
50 Performer * eng = dynamic_cast<Performer*> (t);
51 if (eng && eng!= info.origin_trans_l_)
52 eng->acknowledge_audio_element (info);
58 Performer_group_performer::do_announces()
60 for (SCM p = trans_group_list_; gh_pair_p (p); p =gh_cdr ( p))
62 Translator * t = unsmob_translator (gh_car (p));
63 dynamic_cast<Performer_group_performer*> (t)->do_announces ();
67 create_audio_elements ();
69 while (announce_info_arr_.size ())
71 acknowledge_audio_elements ();
72 announce_info_arr_.clear ();
73 create_audio_elements ();
76 if (announce_info_arr_.size ())
78 printf ("do_announces: elt: %s\n",
79 classname (announce_info_arr_[0].elem_l_));
80 announce_info_arr_.clear ();