- r.item_l_drul_ [LEFT]=sp->get_bound (LEFT);
- r.item_l_drul_ [RIGHT]=sp->get_bound (RIGHT);
-
- r.distance_f_
- = gh_scm2double (me->get_elt_property ("minimum-length"))
- * me->paper_l ()->get_var ("staffspace");
- r.add_to_cols ();
- return SCM_UNSPECIFIED;
-}
-
-MAKE_SCHEME_CALLBACK(Tie,brew_molecule,1);
-SCM
-Tie::brew_molecule (SCM smob)
-{
- Score_element*me = unsmob_element (smob);
-
- SCM cp = me->get_elt_property ("control-points");
- if (cp == SCM_EOL)