class Key_performer : public Performer
{
public:
- TRANSLATOR_DECLARATIONS(Key_performer);
+ TRANSLATOR_DECLARATIONS (Key_performer);
~Key_performer ();
protected:
{
if (key_req_)
{
- SCM pitchlist = key_req_->get_mus_property ("pitch-alist");
- SCM proc = scm_primitive_eval (ly_symbol2scm ("accidentals-in-key"));
+ SCM pitchlist = key_req_->get_property ("pitch-alist");
+ SCM proc = ly_scheme_function ("alterations-in-key");
+
SCM acc = gh_call1 (proc, pitchlist);
Pitch key_do (0,
/* MIDI keys are too limited for lilypond scales.
We check for minor scale and assume major otherwise. */
- SCM minor = scm_primitive_eval (ly_symbol2scm ("minor"));
+ SCM minor = scm_c_eval_string ("minor");
audio_ = new Audio_key (gh_scm2int (acc),
SCM_BOOL_T != scm_equal_p (minor, c_pitchlist));
return false;
}
-ENTER_DESCRIPTION(Key_performer,
+ENTER_DESCRIPTION (Key_performer,
"","",
"key-change-event",
"","","");