- Direction dir = Direction (sign (p->rank_i () - rank_i ()));
-
- if (dir != RIGHT)
- {
- programming_error ("Must set minimum distance LTOR.");
- return;
- }
-
- for (int i=0; i < minimal_dists_.size (); i++)
- {
- Column_rod &rod = minimal_dists_[i];
- if (rod.other_l_ == p)
- {
- rod.distance_f_ = rod.distance_f_ >? d;
- return ;
- }
- }
-
- Column_rod cr;
- cr.distance_f_ = d;
- cr.other_l_ = p;
-
- minimal_dists_.push (cr);
-}
-
-void
-Paper_column::add_spring (Paper_column * p, Real d, Real s)
-{
- Direction dir = Direction (sign (p->rank_i () - rank_i ()));
-
- if (dir != RIGHT)
- {
- programming_error ("Must set springs LTOR");
- return;
- }
-
- for (int i=0; i < springs_.size (); i++)
- {
- Column_spring &spring = springs_[i];
- if (spring.other_l_ == p)
- {
- spring.distance_f_ = spring.distance_f_ >? d;
- return ;
- }
- }
-
- Column_spring cr;
- cr.distance_f_ = d;
- cr.strength_f_ = s;
- cr.other_l_ = p;
-
- springs_.push (cr);