/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1997--2014 Jan Nieuwenhuizen <janneke@gnu.org>
+ Copyright (C) 1997--2015 Jan Nieuwenhuizen <janneke@gnu.org>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
#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_;
};
-Key_performer::Key_performer ()
+Key_performer::Key_performer (Context *c)
+ : Performer (c)
{
key_ev_ = 0;
audio_ = 0;
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)),
ly_scm2rational (scm_cdar (pitchlist)));
- Pitch c_do (0, 0, 0);
+ Pitch c_do;
SCM c_pitchlist
= ly_transpose_key_alist (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 */
"",