]> git.donarmstrong.com Git - lilypond.git/blob - lily/spring.cc
release: 1.3.53
[lilypond.git] / lily / spring.cc
1 /*   
2   spring.cc --  implement Spring
3   
4   source file of the GNU LilyPond music typesetter
5   
6   (c) 1999--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #include "spring.hh"
11 #include "debug.hh"
12 #include "item.hh"
13 #include "paper-column.hh"
14
15 Spring::Spring ()
16 {
17   item_l_drul_[LEFT]  =item_l_drul_[RIGHT] =0;
18   distance_f_ =0.;
19   strength_f_ =1.0;
20 }
21
22 void
23 Spring::add_to_cols ()
24 {
25   item_l_drul_[LEFT]->column_l ()->add_spring (item_l_drul_[RIGHT]->column_l (), distance_f_, strength_f_);
26 }
27
28
29 Column_spring::Column_spring ()
30 {
31   other_l_ = 0;
32   distance_f_ =0;
33   strength_f_ =1.0;
34 }
35
36
37 int
38 Column_spring::compare (Column_spring const & r1, Column_spring const &r2)
39 {
40   return r1.other_l_->rank_i() - r2.other_l_->rank_i();
41 }
42