accidentals_[d] = make_item ("AmbitusAccidental", SCM_EOL);
accidentals_[d]->set_parent (heads_[d], Y_AXIS);
heads_[d]->set_object ("accidental-grob",
accidentals_[d] = make_item ("AmbitusAccidental", SCM_EOL);
accidentals_[d]->set_parent (heads_[d], Y_AXIS);
heads_[d]->set_object ("accidental-grob",
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]);
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]);
{
SCM l = scm_list_1 (scm_from_int (p.get_alteration ()));
accidentals_[d]->set_property ("accidentals", l);
{
SCM l = scm_list_1 (scm_from_int (p.get_alteration ()));
accidentals_[d]->set_property ("accidentals", l);
- ambitus_->set_object ("note-heads", scm_list_2 (heads_[DOWN]->self_scm (),
- heads_[UP]->self_scm ()));
+
+ Pointer_group_interface::add_grob (ambitus_, ly_symbol2scm ("note-heads"), heads_[DOWN]);
+ Pointer_group_interface::add_grob (ambitus_, ly_symbol2scm ("note-heads"), heads_[UP]);