-/*
- TODO: set minimum distances for begin/end of line
- */
-SCM
-Tie::set_spacing_rods (SCM smob)
-{
- Score_element*me = unsmob_element (smob);
- Spanner*sp = dynamic_cast<Spanner*> (me);
- Rod r;
-
- 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);