- if (!right->get_system ())
- right = right->find_prebroken_piece (LEFT);
-
- /* Divide the remaining space of the column over the left and
- right side. At the moment, FIXME */
- Grob *common = right->common_refpoint (left, X_AXIS);
-
- Real rx = right->extent (common, X_AXIS)[LEFT];
- Real lx = left->extent (common, X_AXIS)[RIGHT];
- Real total_dx = rx - lx;
- Interval cval = col->extent (col, X_AXIS);
-
- /* Put it in the middle. This is not an ideal solution -- the
- break alignment code inserts a fixed space before the clef
- (about 1 SS), while the space following the clef is flexible.
- In tight situations, the clef will almost be on top of the
- following note. */
- Real dx = rx - lx - cval.length ();
- if (total_dx < 2* cval.length ())
- {
- /* TODO: this is discontinuous. I'm too tired to
- invent a sliding mechanism. Duh. */
- dx *= 0.25;
- }
- else
- dx *= 0.5;
+ int st = Paper_column::get_rank (c[0]);
+ int end = Paper_column::get_rank (c.back ());
+ Interval iv (pure_height (this, st, end));
+ system->set_property ("pure-Y-extent", ly_interval2scm (iv));