From a208ddc402e54bc877f1ac6354e5cffb5edeef48 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 22:41:49 +0000
Subject: [PATCH] lilypond-1.2.14

---
 CHANGES               | 15 +++++++++++++++
 lily/simple-spacer.cc | 29 ++++++++++++++---------------
 2 files changed, 29 insertions(+), 15 deletions(-)

diff --git a/CHANGES b/CHANGES
index 8acd8145cb..2463a44bc1 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,18 @@
+13.jcn2,3
+	- mutopia/J.S.Bach/Petites-Preludes: bf's and mutopia preraration
+	- separate documentation package
+
+13.hwn2
+	- mutopia: scs2, horn-concerto-3
+	- junked Line_spacer baseclass.
+	- removed gourlay complications
+	- use force iso. energy for minimisation. Add uniformity term
+to demerits.
+
+13.jcn1
+	- bf: mudela-book
+
+*******
 12.jcn1
 	- auto-knees, input/test/auto-knee.ly
 
diff --git a/lily/simple-spacer.cc b/lily/simple-spacer.cc
index 47eff23a03..a053d9f6f8 100644
--- a/lily/simple-spacer.cc
+++ b/lily/simple-spacer.cc
@@ -19,10 +19,14 @@
 #include "rod.hh"
 #include "warn.hh"
 #include "column-x-positions.hh"
+#include "dimensions.hh"
 
 Simple_spacer::Simple_spacer ()
 {
   force_f_ = 0.;
+  indent_f_ =0.0;
+  default_space_f_ = 20 PT;
+  compression_energy_factor_f_ = 3.0;
 }
 
 void
@@ -207,20 +211,17 @@ void
 Simple_spacer::solve (Column_x_positions *positions) const
 {
   positions->energy_f_  = energy_f ();  // abs (force_f_);
+  positions->force_f_ = force_f_;
+  
   positions->config_.push (indent_f_);
   for (int i=0; i <springs_.size (); i++)
     {
       positions->config_.push (positions->config_.top () + springs_[i].length (force_f_));
     }
 
-  positions->satisfies_constraints_b_ = active_b ();
+  positions->satisfies_constraints_b_ =  (line_len_f_ < 0) || active_b ();
 }
 
-void
-Simple_spacer::lower_bound_solution (Column_x_positions * posns) const
-{
-  solve (posns);
-}
 
 
 Spring_description::Spring_description( )
@@ -236,13 +237,6 @@ Spring_description::energy_f (Real force) const
 {
   Real stretch = (force >? block_force_f_) / hooke_f_;
   Real e = 0.5 * stretch * stretch * hooke_f_;
-
-  /*
-    be harder to compress.
-   */
-  if (stretch < 0)
-    e *= 4;
-
   return e;
 }
 
@@ -252,7 +246,12 @@ Simple_spacer::energy_f () const
   Real e =0.;
 
   for (int i=0; i <springs_.size (); i++)
-    e += springs_[i].energy_f (force_f_);
-      
+    {
+      e += springs_[i].energy_f (force_f_);
+    }
+
+  if (force_f_ < 0)
+    e *= compression_energy_factor_f_;
+
   return e;
 }
-- 
2.39.5