#include "warn.hh"
#include "audio-column.hh"
#include "audio-item.hh"
#include "audio-staff.hh"
#include "performer-group-performer.hh"
#include "warn.hh"
#include "audio-column.hh"
#include "audio-item.hh"
#include "audio-staff.hh"
#include "performer-group-performer.hh"
/** Perform a staff. Individual notes should have their instrument
(staff-wide) set, so we override play_element ()
/** Perform a staff. Individual notes should have their instrument
(staff-wide) set, so we override play_element ()
-ENTER_DESCRIPTION (Staff_performer, "", "",
+ADD_TRANSLATOR (Staff_performer, "", "",
audio_staff_ = new Audio_staff;
announce_element (Audio_element_info (audio_staff_, 0));
audio_staff_ = new Audio_staff;
announce_element (Audio_element_info (audio_staff_, 0));
announce_element (Audio_element_info (name_, 0));
tempo_ = new Audio_tempo (get_tempo ());
announce_element (Audio_element_info (name_, 0));
tempo_ = new Audio_tempo (get_tempo ());
announce_element (Audio_element_info (instrument_name_, 0));
instrument_ = new Audio_instrument (str);
announce_element (Audio_element_info (instrument_, 0));
announce_element (Audio_element_info (instrument_name_, 0));
instrument_ = new Audio_instrument (str);
announce_element (Audio_element_info (instrument_, 0));
- static SCM proc;
-
- if (!proc)
- proc = scm_primitive_eval (ly_symbol2scm ("percussion?"));
-
- SCM drums = gh_call1 (proc, ly_symbol2scm (instrument_string_.to_str0 ()));
+ SCM drums = scm_call_1 (proc, ly_symbol2scm (instrument_string_.to_str0 ()));
// mustn't ask Score for instrument: it will return piano!
SCM minstr = get_property ("midiInstrument");
// mustn't ask Score for instrument: it will return piano!
SCM minstr = get_property ("midiInstrument");