#include "performer.hh"
#include "stream-event.hh"
#include "warn.hh"
+#include "lily-imports.hh"
#include "translator.icc"
void process_music ();
void stop_translation_timestep ();
- DECLARE_TRANSLATOR_LISTENER (key_change);
+ void listen_key_change (Stream_event *);
private:
Stream_event *key_ev_;
Audio_key *audio_;
if (key_ev_)
{
SCM pitchlist = key_ev_->get_property ("pitch-alist");
- SCM proc = ly_lily_module_constant ("alterations-in-key");
- SCM acc = scm_call_1 (proc, pitchlist);
+ SCM acc = Lily::alterations_in_key (pitchlist);
Pitch key_do (0,
scm_to_int (scm_caar (pitchlist)),
}
}
-IMPLEMENT_TRANSLATOR_LISTENER (Key_performer, key_change);
void
Key_performer::listen_key_change (Stream_event *ev)
{
key_ev_ = ev;
}
+void
+Key_performer::boot ()
+{
+ ADD_LISTENER (Key_performer, key_change);
+}
+
ADD_TRANSLATOR (Key_performer,
/* doc */
"",