- /*
- Fallback
- */
- SCM v = me->get_property ("stem-attachment-function");
- if (!ly_is_procedure (v))
- return 0.0;
-
- SCM result = scm_call_2 (v, me->self_scm (), scm_from_int (a));
- if (!scm_is_pair (result))
- return 0.0;
-
- result = (a == X_AXIS) ? scm_car (result) : scm_cdr (result);
-
- return robust_scm2double (result, 0);