+
+ return scm_from_int (d);
+}
+
+MAKE_SCHEME_CALLBACK (Script_interface, calc_cross_staff, 1);
+SCM
+Script_interface::calc_cross_staff (SCM smob)
+{
+ Grob *me = unsmob_grob (smob);
+ Grob *stem = Note_column::get_stem (me->get_parent (X_AXIS));
+ return scm_from_bool (stem && to_boolean (stem->get_property ("cross-staff")));