2 staff-performer.cc -- implement Staff_performer
4 source file of the GNU LilyPond music typesetter
6 (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
9 #include "staff-performer.hh"
10 #include "translator.hh"
11 #include "input-translator.hh"
13 #include "audio-column.hh"
14 #include "audio-item.hh"
15 #include "audio-staff.hh"
17 IMPLEMENT_IS_TYPE_B1(Staff_performer,Performer_group_performer);
18 ADD_THIS_PERFORMER(Staff_performer);
20 Staff_performer::Staff_performer()
25 Staff_performer::~Staff_performer()
27 delete audio_staff_p_;
31 Staff_performer::do_creation_processing()
33 audio_staff_p_ = new Audio_staff;
36 play (new Audio_text (Audio_text::TRACK_NAME, instrument_str()));
38 // instrument description
39 play (new Audio_text (Audio_text::INSTRUMENT_NAME, instrument_str()));
42 play (new Audio_tempo (get_tempo_i()));
45 play (new Audio_instrument (instrument_str()));
49 Staff_performer::do_removal_processing()
51 Performer::play (audio_staff_p_);
56 Staff_performer::instrument_str()
58 return Translator::id_str_;
62 Staff_performer::play (Audio_element* p)
64 if (p->is_type_b (Audio_item::static_name())) {
65 audio_staff_p_->add ((Audio_item*)p);