if (!def)
{
SCM vis = get_property ("explicitKeySignatureVisibility");
- if (gh_procedure_p (vis))
+ if (ly_c_procedure_p (vis))
item_->set_property ("break-visibility",vis);
}
}
}
}
else if (Bar_line::has_interface (info.grob_)
- && gh_pair_p (get_property ("keySignature")))
+ && ly_c_pair_p (get_property ("keySignature")))
{
create_key (true);
}
Key_engraver::read_ev (Music const * r)
{
SCM p = r->get_property ("pitch-alist");
- if (!gh_pair_p (p))
+ if (!ly_c_pair_p (p))
return;
SCM n = scm_list_copy (p);
SCM accs = SCM_EOL;
for (SCM s = get_property ("keyAccidentalOrder");
- gh_pair_p (s); s = ly_cdr (s))
+ ly_c_pair_p (s); s = ly_cdr (s))
{
- if (gh_pair_p (scm_member (ly_car (s), n)))
+ if (ly_c_pair_p (scm_member (ly_car (s), n)))
{
- accs = gh_cons (ly_car (s), accs);
+ accs = scm_cons (ly_car (s), accs);
n = scm_delete_x (ly_car (s), n);
}
}
- for (SCM s = n ; gh_pair_p (s); s = ly_cdr (s))
- if (gh_scm2int (ly_cdar (s)))
- accs = gh_cons (ly_car (s), accs);
+ for (SCM s = n ; ly_c_pair_p (s); s = ly_cdr (s))
+ if (ly_scm2int (ly_cdar (s)))
+ accs = scm_cons (ly_car (s), accs);
- daddy_context_->set_property ("keySignature", accs);
- daddy_context_->set_property ("tonic" ,
+ context ()->set_property ("keySignature", accs);
+ context ()->set_property ("tonic" ,
r->get_property ("tonic"));
}
Key_engraver::start_translation_timestep ()
{
key_ev_ = 0;
- daddy_context_->set_property ("lastKeySignature", get_property ("keySignature"));
+ context ()->set_property ("lastKeySignature", get_property ("keySignature"));
}
void
Key_engraver::initialize ()
{
- daddy_context_->set_property ("keySignature", SCM_EOL);
- daddy_context_->set_property ("lastKeySignature", SCM_EOL);
+ context ()->set_property ("keySignature", SCM_EOL);
+ context ()->set_property ("lastKeySignature", SCM_EOL);
Pitch p (0,0,0);
- daddy_context_->set_property ("tonic", p.smobbed_copy ());
+ context ()->set_property ("tonic", p.smobbed_copy ());
}