-
-
-MAKE_SCHEME_CALLBACK(Dot_column,force_shift_callback,2);
-SCM
-Dot_column::force_shift_callback (SCM element_smob, SCM axis)
-{
- Grob *me = unsmob_grob (element_smob);
- Axis a = (Axis) gh_scm2int (axis);
- assert (a == Y_AXIS);
- me = me->parent_l (X_AXIS);
- SCM dots = me->get_grob_property ("dots");
- do_shifts (dots);
- return gh_double2scm (0.0);
-}
-