X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fspacing-spanner.cc;h=6ec8108d691decc8040ba297046c395e6650aeb9;hb=b087ea53eddbea8cd2ee8b96a46e2d49c3d422c6;hp=446c1413cdbe984fc61ea411d0eb704d2ffee53e;hpb=bd6fb0b2b29864ad1738beab50939c4f9e67e7e3;p=lilypond.git

diff --git a/lily/spacing-spanner.cc b/lily/spacing-spanner.cc
index 446c1413cd..6ec8108d69 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--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
-  (c) 1999--2009 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"
@@ -38,8 +49,8 @@ Spacing_spanner::get_columns (Grob *me_grob)
   vsize end = binary_search (all, (Grob*) me->get_bound (RIGHT),
 			     &Paper_column::less_than);  
   
-  all = vector<Grob*>::vector<Grob*> (all.begin () + start,
-				      all.begin () + end + 1);
+  all = vector<Grob*> (all.begin () + start,
+		       all.begin () + end + 1);
   return all;
 }
 
@@ -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"));