- me->set_property ("minimum-distances" , SCM_EOL);
- me->set_property ("spacing-wishes", SCM_EOL);
- me->set_property ("ideal-distances", SCM_EOL);
+ Spring_smob *spring = 0;
+
+ for (SCM s = this_col->get_object ("ideal-distances");
+ !spring && scm_is_pair (s);
+ s = scm_cdr (s))
+ {
+ Spring_smob *sp = unsmob_spring (scm_car (s));
+
+ if (sp && sp->other_ == next_col)
+ spring = sp;
+ }
+
+ if (!spring)
+ programming_error (_f ("No spring between column %d and next one",
+ Paper_column::get_rank (this_col)));
+
+ *dist = (spring) ? spring->distance_ : 5.0;
+ *inv_strength = (spring) ? spring->inverse_strength_ : 1.0;