X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fsimple-spacer.cc;h=fcad2f18c126897929ce27c4690d994334810ede;hb=7227d4397875a176cc9dc94ede56c85fc23fe577;hp=c8b6490c37bff61117c6fefbc4effa9d2a4aba49;hpb=3a46c0c5944963e1b3e5dc0bc5c5f843e908d884;p=lilypond.git

diff --git a/lily/simple-spacer.cc b/lily/simple-spacer.cc
index c8b6490c37..fcad2f18c1 100644
--- a/lily/simple-spacer.cc
+++ b/lily/simple-spacer.cc
@@ -81,8 +81,11 @@ Real
 Simple_spacer::rod_force (int l, int r, Real dist)
 {
   Real d = range_ideal_len (l, r);
-  Real c = range_stiffness (l, r, d > 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 */
+    return 0;
   return c * block_stretch;
 }
 
@@ -167,6 +170,9 @@ Simple_spacer::expand_line ()
   for (vsize i=0; i < springs_.size (); i++)
     inv_hooke += springs_[i].inverse_stretch_strength ();
 
+  if (inv_hooke == 0.0) /* avoid division by zero. If springs are infinitely stiff */
+    return 0.0;         /* anyway, then it makes no difference what the force is */
+
   assert (cur_len <= line_len_);
   return (line_len_ - cur_len) / inv_hooke + force_;
 }
@@ -200,6 +206,7 @@ Simple_spacer::compress_line ()
 
   vector<Spring> sorted_springs = springs_;
   sort (sorted_springs.begin (), sorted_springs.end (), greater<Spring> ());
+
   for (vsize i = 0; i < sorted_springs.size (); i++)
     {
       Spring sp = sorted_springs[i];
@@ -264,20 +271,6 @@ Simple_spacer::force_penalty (bool ragged) const
 
 /****************************************************************/
 
-/*
-  TODO: should a add penalty for widely varying spring forces (caused
-  by constraints, eg.
-
-
-  .     =====
-  .     |   |
-  .o|o|x ##x
-  .
-
-  The ## forces the notes apart; we shouldn't allow the O's to touch
-  this closely.
-*/
-
 struct Rod_description
 {
   vsize r_;