/*
accidental-engraver.cc -- implement accidental_engraver
- (c) 1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
Modified 2001--2002 by Rune Zedeler <rz@daimi.au.dk>
*/
set_property_on_children (Translator_group * trans, const char * sym, SCM val)
{
trans->set_property (sym, val);
- for (SCM p = trans -> trans_group_list_; gh_pair_p (p); p = ly_cdr(p)) {
+ for (SCM p = trans->trans_group_list_; gh_pair_p (p); p = ly_cdr(p)) {
Translator_group *trg = dynamic_cast<Translator_group*> (unsmob_translator (ly_car (p)));
set_property_on_children(trg,sym,ly_deep_copy(val));
}
Translator_group * origin = accidentals_[i].origin_;
Pitch * pitch = unsmob_pitch (note->get_mus_property ("pitch"));
+ if (!pitch)
+ continue;
+
int num = number_accidentals (note, pitch, origin, accidentals, barnum);
int num_caut = number_accidentals (note, pitch, origin, cautionaries, barnum);
bool cautionary = to_boolean (note->get_mus_property ("cautionary"));
if (num)
{
- Grob * a = new Item (get_property ("Accidental"));
+ Grob * a = make_item ("Accidental");
a->set_parent (support, Y_AXIS);
if (!accidental_placement_)
{
- accidental_placement_ = new Item (get_property ("AccidentalPlacement"));
+ accidental_placement_ = make_item ("AccidentalPlacement");
announce_grob (accidental_placement_, a->self_scm());
}
void
Accidental_engraver::finalize ()
{
-
+ last_keysig_ = SCM_EOL;
}
void