X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fspacing-spanner.cc;h=eccd4cb11e53eb52c005ed975b11079270a33bb1;hb=59d0cc762d47ad9e1ae46620215a5c4f943be4c9;hp=7b1756620f17884c207ba7a2b47d0415c3c61a06;hpb=56cb2f30d1da32759b82a7820fd0d32e368bc973;p=lilypond.git

diff --git a/lily/spacing-spanner.cc b/lily/spacing-spanner.cc
index 7b1756620f..eccd4cb11e 100644
--- a/lily/spacing-spanner.cc
+++ b/lily/spacing-spanner.cc
@@ -1,9 +1,20 @@
 /*
-  spacing-spanner.cc -- implement Spacing_spanner
+  This file is part of LilyPond, the GNU music typesetter.
 
-  source file of the GNU LilyPond music typesetter
+  Copyright (C) 1999--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
-  (c) 1999--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  LilyPond is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  LilyPond is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 */
 
 #include "spacing-spanner.hh"
@@ -168,7 +179,7 @@ Spacing_spanner::generate_pair_spacing (Grob *me,
   if (Paper_column::is_musical (left_col))
     {
       if (!Paper_column::is_musical (right_col)
-	  && options->float_nonmusical_columns_
+	  && (options->float_nonmusical_columns_ || to_boolean (right_col->get_property ("maybe-loose")))
 	  && after_right_col
 	  && Paper_column::is_musical (after_right_col))
 	{
@@ -303,7 +314,8 @@ Spacing_spanner::generate_springs (Grob *me,
       prev = col;
     }
 
-  set_column_rods (cols, 0.1); // FIXME: padding
+  Real padding = robust_scm2double (prev->get_property ("padding"), 0.1);
+  set_column_rods (cols, padding);
 }
 
 /*
@@ -323,21 +335,33 @@ Spacing_spanner::musical_column_spacing (Grob *me,
   else
     {
       vector<Spring> springs;
-      extract_grob_set (left_col, "right-neighbors", neighbors);
+      extract_grob_set (left_col, "spacing-wishes", wishes);
 
-      for (vsize i = 0; i < neighbors.size (); i++)
+      for (vsize i = 0; i < wishes.size (); i++)
 	{
-	  Grob *wish = neighbors[i];
+	  Grob *wish = wishes[i];
+	  if (Spacing_interface::left_column (wish) != left_col)
+	    {
+	      /* This shouldn't really happen, but the ancient music
+		 stuff really messes up the spacing code, grrr
+	      */
+	      continue;
+	    }
 
-	  Item *wish_rcol = Spacing_interface::right_column (wish);
-	  if (Spacing_interface::left_column (wish) != left_col
-	      || (wish_rcol != right_col && wish_rcol != right_col->original ()))
-	    continue;
+	  extract_grob_set (wish, "right-items", right_items);
+	  bool found_matching_column = false;
+	  for (vsize j = 0; j < right_items.size (); j++)
+	    {
+	      Item *it = dynamic_cast<Item*> (right_items[j]);
+	      if (it && (right_col == it->get_column ()
+			 || right_col->original () == it->get_column ()))
+		found_matching_column = true;
+	    }
 
 	  /*
 	    This is probably a waste of time in the case of polyphonic
 	    music.  */
-	  if (Note_spacing::has_interface (wish))
+	  if (found_matching_column && Note_spacing::has_interface (wish))
 	    {
 	      Real inc = options->increment_;
 	      Grob *gsp = unsmob_grob (left_col->get_object ("grace-spacing"));
@@ -513,7 +537,8 @@ Spacing_spanner::breakable_column_spacing (Grob *me, Item *l, Item *r,
       && l->break_status_dir () == CENTER
       && fills_measure (me, l, r))
     {
-      spring.set_distance (spring.distance () + 1.0);
+      Real full_measure_extra_space = robust_scm2double (l->get_property ("full-measure-extra-space"), 1.0);
+      spring.set_distance (spring.distance () + full_measure_extra_space);
       spring.set_default_strength ();
     }