lilypond-0.1.21

diff --git a/lily/idealspacing.cc b/lily/idealspacing.cc
index 16298be1e11613652a55bd2ccd23f9a87ca8f9a1..7497d3b66a8b5508a6fab8d7e07c62a845f8c421 100644 (file)
--- a/lily/idealspacing.cc
+++ b/lily/idealspacing.cc
@@ -34,3 +34,15 @@ Idealspacing::OK() const
 {
   assert (hooke_f_ >= 0);
 }
+
+Real
+Idealspacing::energy_f(Real x) const
+{
+  Real dx = (space_f_ - x);
+  
+  Real e =  sqr(dx);
+  if ( dx < 0)
+    e *= 4;                    // ugh.
+  
+  return hooke_f_ * e;
+}