-Spaceable_grob::add_spring (Grob*me, Grob * p, Real d, Real strength)
+Spaceable_grob::add_spring (Grob *me, Grob *other, Spring sp)
+{
+ SCM ideal = me->get_object ("ideal-distances");
+
+ ideal = scm_cons (scm_cons (sp.smobbed_copy (), other->self_scm ()), ideal);
+ me->set_object ("ideal-distances", ideal);
+}
+
+Spring
+Spaceable_grob::get_spring (Grob *this_col, Grob *next_col)