source file of the GNU LilyPond music typesetter
- (c) 1996,1997 Han-Wen Nienhuys <hanwen@stack.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 " << left_i_ << " right " << right_i_ << "}\n";
-#endif
-}
Idealspacing::Idealspacing()
{
space_f_ = 0.0;
hooke_f_ = 0.0;
- left_i_ = -1;
- right_i_ = -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;
+ cols_drul_[LEFT] = cols_drul_[RIGHT] = -1;
}