source file of the GNU LilyPond music typesetter
- (c) 2002--2005 Juergen Reuter <reuter@ipd.uka.de>
+ (c) 2002--2006 Juergen Reuter <reuter@ipd.uka.de>
Han-Wen Nienhuys <hanwen@xs4all.nl
*/
accidentals_[d] = make_item ("AmbitusAccidental", SCM_EOL);
accidentals_[d]->set_parent (heads_[d], Y_AXIS);
heads_[d]->set_object ("accidental-grob",
- accidentals_[d]->self_scm ());
+ accidentals_[d]->self_scm ());
Axis_group_interface::add_element (group_, heads_[d]);
Axis_group_interface::add_element (group_, accidentals_[d]);
Side_position_interface::add_support (accidentals_[d], heads_[d]);
* be placed after the rest.
*/
if (!ambitus_)
- {
- create_ambitus ();
- }
+ create_ambitus ();
}
void
int sig_alter = (handle != SCM_BOOL_F)
? scm_to_int (scm_cdr (handle)) : 0;
-
+
if (sig_alter == p.get_alteration ())
{
accidentals_[d]->suicide ();
{
SCM l = scm_list_1 (scm_from_int (p.get_alteration ()));
accidentals_[d]->set_property ("accidentals", l);
-
}
}
while (flip (&d) != DOWN);
ambitus_->set_object ("note-heads", scm_list_2 (heads_[DOWN]->self_scm (),
- heads_[UP]->self_scm ()));
+ heads_[UP]->self_scm ()));
}
else
{
}
}
-
-ADD_ACKNOWLEDGER(Ambitus_engraver, note_head);
+ADD_ACKNOWLEDGER (Ambitus_engraver, note_head);
ADD_TRANSLATOR (Ambitus_engraver,
- /* descr */ "",
- /* creats*/ "Ambitus AmbitusLine AmbitusNoteHead AmbitusAccidental",
- /* accepts */ "",
- /* reads */ "",
+ /* doc */ "",
+ /* create */ "Ambitus AmbitusLine AmbitusNoteHead AmbitusAccidental",
+ /* accept */ "",
+ /* read */ "",
/* write */ "");