f->set_grob_property ("script-priority",
gh_int2scm (finger_prio + i));
f->add_offset_callback (Side_position_interface::aligned_side_proc, Y_AXIS);
- f->add_offset_callback (Side_position_interface::out_of_staff_proc, Y_AXIS);
f->add_offset_callback (Self_alignment_interface::centered_on_parent_proc, X_AXIS);
f->add_offset_callback (Self_alignment_interface::aligned_on_self_proc, X_AXIS);
f->add_offset_callback (Self_alignment_interface::centered_on_parent_proc, X_AXIS);
f->add_offset_callback (Self_alignment_interface::aligned_on_self_proc, X_AXIS);
f->add_offset_callback (Side_position_interface::aligned_side_proc, Y_AXIS);
- f->add_offset_callback (Side_position_interface::out_of_staff_proc, Y_AXIS);
f->set_grob_property ("direction", gh_int2scm (DOWN));
typeset_grob (f);
}
o += - iv[-d];
}
+ /*
+ Maintain a minimum distance to the staff. This is similar to side
+ position with padding, but it will put adjoining objects on a row if
+ stuff sticks out of the staff a little.
+ */
Grob * st = Staff_symbol_referencer::get_staff_symbol (me);
if (st && a == Y_AXIS
&& gh_number_p (me->get_grob_property ("staff-padding")))
return gh_double2scm (o);
}
-/*
- Maintain a minimum distance to the staff. This is similar to side
- position with padding, but it will put adjoining objects on a row if
- stuff sticks out of the staff a little.
- */
-MAKE_SCHEME_CALLBACK (Side_position_interface,out_of_staff,2);
-SCM
-Side_position_interface::out_of_staff (SCM element_smob, SCM axis)
-{
- return gh_double2scm (0);
-}
-
void
Side_position_interface::add_staff_support (Grob*me)
{
"Position a victim object (this one) next to other objects (the "
"support). In this case, the property @code{direction} signifies where to put the "
"victim object relative to the support (left or right, up or down?)\n\n "
- "The @code{out_of_staff} routine puts objects at a distance of the staff. If the property "
- "@code{staff-padding} is not defined, the routine doesn't do anything."
+ "The routine puts objects at a distance of the staff if the property "
+ "@code{staff-padding} is defined. If undefined, the staff symbol is ignored."
,
"staff-padding side-support-elements direction-source "
"direction side-relative-direction minimum-space padding");