release: 1.3.53

[lilypond.git] / lily / idealspacing.cc

diff --git a/lily/idealspacing.cc b/lily/idealspacing.cc
index 3e3859a0c75f2e8d68a9fbab22ef791500fe2cf7..90cfa1dbae38da7848f33a3eccc5bd50e20525fd 100644 (file)
--- a/lily/idealspacing.cc
+++ b/lily/idealspacing.cc
@@ -3,23 +3,14 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1996, 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1996--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include "idealspacing.hh"
-#include "p-col.hh"
-#include "p-score.hh"
+#include "paper-column.hh"
+#include "paper-score.hh"
 #include "debug.hh"
 
-void
-Idealspacing::print() const
-{
-#ifndef NPRINT
-  DOUT << "idealspacing {" ;
-  DOUT << "distance " << space_f_ << " strength " << hooke_f_;
-  DOUT << "left " << cols_drul_[LEFT] << " right " << cols_drul_[RIGHT] << "}\n";
-#endif
-}
 
 Idealspacing::Idealspacing()
 {
@@ -27,21 +18,3 @@ Idealspacing::Idealspacing()
   hooke_f_ = 0.0;
   cols_drul_[LEFT] = cols_drul_[RIGHT] = -1;
 }
-
-void
-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;
-}