- /*
- Not (yet) in scm, because of messy effects when a column commits suicide.
- */
- int rank_i_;
- /// set a minimum distance
- void add_rod (Paper_column * to, Real distance);
- void add_spring (Paper_column * to, Real dist, Real strength);
+ // ugh: friend declarations.
+ friend void set_loose_columns (System *which, Column_x_positions const *posns);
+ friend class System;
+public:
+ Paper_column (SCM, Object_key const *);
+ Paper_column (Paper_column const &, int count);