2 staff-performer.cc -- implement Staff_performer
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2005 Jan Nieuwenhuizen <janneke@gnu.org>
10 #include "audio-column.hh"
11 #include "audio-item.hh"
12 #include "audio-staff.hh"
13 #include "performer-group-performer.hh"
16 /** Perform a staff. Individual notes should have their instrument
17 (staff-wide) set, so we override play_element ()
19 class Staff_performer
: public Performer
22 TRANSLATOR_DECLARATIONS (Staff_performer
);
25 String
new_instrument_string ();
26 String instrument_string_
;
29 virtual void acknowledge_audio_element (Audio_element
*p
);
30 virtual void finalize ();
31 virtual void initialize ();
32 virtual void create_audio_elements ();
33 void stop_translation_timestep ();
36 Audio_staff
*audio_staff_
;
37 Audio_instrument
*instrument_
;
38 Audio_text
*instrument_name_
;
43 #include "translator.icc"
45 ADD_TRANSLATOR (Staff_performer
, "", "",
49 Staff_performer::Staff_performer ()
58 Staff_performer::~Staff_performer ()
63 Staff_performer::initialize ()
65 audio_staff_
= new Audio_staff
;
66 announce_element (Audio_element_info (audio_staff_
, 0));
68 name_
= new Audio_text (Audio_text::TRACK_NAME
, context ()->id_string ());
69 announce_element (Audio_element_info (name_
, 0));
71 tempo_
= new Audio_tempo (get_tempo ());
72 announce_element (Audio_element_info (tempo_
, 0));
76 Staff_performer::create_audio_elements ()
78 String str
= new_instrument_string ();
81 instrument_name_
= new Audio_text (Audio_text::INSTRUMENT_NAME
, str
);
82 announce_element (Audio_element_info (instrument_name_
, 0));
83 instrument_
= new Audio_instrument (str
);
84 announce_element (Audio_element_info (instrument_
, 0));
87 Have to be here before notes arrive into the staff.
89 play_element (instrument_
);
90 play_element (instrument_name_
);
95 Staff_performer::stop_translation_timestep ()
97 SCM proc
= ly_lily_module_constant ("percussion?");
99 SCM drums
= scm_call_1 (proc
, ly_symbol2scm (instrument_string_
.to_str0 ()));
100 audio_staff_
->channel_
= (drums
== SCM_BOOL_T
? 9 : -1);
103 play_element (name_
);
108 play_element (tempo_
);
111 instrument_name_
= 0;
116 Staff_performer::finalize ()
118 Performer::play_element (audio_staff_
);
123 Staff_performer::new_instrument_string ()
125 // mustn't ask Score for instrument: it will return piano!
126 SCM minstr
= get_property ("midiInstrument");
128 if (!scm_is_string (minstr
)
129 || ly_scm2string (minstr
) == instrument_string_
)
132 instrument_string_
= ly_scm2string (minstr
);
134 return instrument_string_
;
138 Staff_performer::acknowledge_audio_element (Audio_element
*p
)
140 if (Audio_item
*ai
= dynamic_cast<Audio_item
*> (p
))
142 audio_staff_
->add_audio_item (ai
);