Clean up spring stuff.

[lilypond.git] / lily / spacing-spanner.cc

diff --git a/lily/spacing-spanner.cc b/lily/spacing-spanner.cc
index a61bffb98a3aa41d7a417ee493a17e7412e127b0..568283846d345b99065c56f3c0d922e0922f9804 100644 (file)
--- a/lily/spacing-spanner.cc
+++ b/lily/spacing-spanner.cc
@@ -167,15 +167,10 @@ Spacing_spanner::generate_pair_spacing (Grob *me,
 {
   if (Paper_column::is_musical (left_col))
     {
-      bool skip_unbroken_right = false;
-
       if (!Paper_column::is_musical (right_col)
          && options->float_nonmusical_columns_
          && after_right_col
          && Paper_column::is_musical (after_right_col))
-       skip_unbroken_right = true;
-
-      if (skip_unbroken_right)
        {
          /*
            TODO: should generate rods to prevent collisions.
@@ -233,8 +228,7 @@ Spacing_spanner::generate_springs (Grob *me,
 }
 
 /*
-  Generate the space between two musical columns LEFT_COL and RIGHT_COL, given
-  spacing parameters INCR and SHORTEST.
+  Generate the space between two musical columns LEFT_COL and RIGHT_COL.
 */
 void
 Spacing_spanner::musical_column_spacing (Grob *me,
@@ -242,8 +236,7 @@ Spacing_spanner::musical_column_spacing (Grob *me,
                                         Item *right_col,
                                         Spacing_options const *options)
 {
-  bool expand_only = false;
-  Real base_note_space = note_spacing (me, left_col, right_col, options, &expand_only);
+  Real base_note_space = note_spacing (me, left_col, right_col, options);
 
   Real max_fixed = 0;
   Real max_space = 0;
@@ -461,17 +454,15 @@ Spacing_spanner::breakable_column_spacing (Grob *me, Item *l, Item *r,
          if (!spacing_grob || !Staff_spacing::has_interface (spacing_grob))
            continue;
 
-         Real space = 0.;
-         Real fixed_space = 0.;
-
          /*
            column for the left one settings should be ok due automatic
            pointer munging.
          */
          assert (spacing_grob->get_column () == l);
 
-         Staff_spacing::get_spacing_params (spacing_grob,
-                                            &space, &fixed_space);
+         Spring sp = Staff_spacing::get_spacing_params (spacing_grob);
+         Real space = sp.distance_;
+         Real fixed = sp.distance_ - sp.inverse_compress_strength_;
 
          if (Paper_column::when_mom (r).grace_part_)
            {
@@ -484,10 +475,10 @@ Spacing_spanner::breakable_column_spacing (Grob *me, Item *l, Item *r,
            }
 
          max_space = max (max_space, space);
-         max_fixed = max (max_fixed, fixed_space);
+         max_fixed = max (max_fixed, fixed);
          
          compound_space += space;
-         compound_fixed += fixed_space;
+         compound_fixed += fixed;
          wish_count++;
        }
     }
@@ -528,6 +519,7 @@ Spacing_spanner::breakable_column_spacing (Grob *me, Item *l, Item *r,
 
   Real inverse_strength = (compound_space - compound_fixed);
   Real distance = compound_space;
+  message (_f ("adding spring of length %f", distance));
   Spaceable_grob::add_spring (l, r, distance, inverse_strength);
 }