X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fsimple-spacer.cc;h=4da2ac9a87d3439893e93f57dc951b82dc4d6458;hb=1f419a2af14d4a5daf9bc9eb5f7368eedb5c6021;hp=fcad2f18c126897929ce27c4690d994334810ede;hpb=6fa1029a4b2cba0847e17b30c1a8b650a09e5b97;p=lilypond.git

diff --git a/lily/simple-spacer.cc b/lily/simple-spacer.cc
index fcad2f18c1..4da2ac9a87 100644
--- a/lily/simple-spacer.cc
+++ b/lily/simple-spacer.cc
@@ -84,7 +84,7 @@ Simple_spacer::rod_force (int l, int r, Real dist)
   Real c = range_stiffness (l, r, dist > d);
   Real block_stretch = dist - d;
 
-  if (isinf (c)) /* take care of the 0*infinity_f case */
+  if (isinf (c) && block_stretch == 0) /* take care of the 0*infinity_f case */
     return 0;
   return c * block_stretch;
 }
@@ -105,7 +105,12 @@ Simple_spacer::add_rod (int l, int r, Real dist)
       Real spring_dist = range_ideal_len (l, r);
       if (spring_dist < dist)
 	for (int i = l; i < r; i++)
-	  springs_[i].set_distance (springs_[i].distance () * dist / spring_dist);
+	  {
+	    if (spring_dist)
+	      springs_[i].set_distance (springs_[i].distance () * dist / spring_dist);
+	    else
+	      springs_[i].set_distance (dist / (r - l));
+	  }
 
       return;
     }
@@ -266,7 +271,7 @@ Simple_spacer::force_penalty (bool ragged) const
 
   /* Use a convex compression penalty. */
   Real f = force_;
-  return f - (f < 0 ? f*f*f*f*4 : 0);
+  return f - (f < 0 ? f*f*f*f*2 : 0);
 }
 
 /****************************************************************/