2 spaceable-grob.cc -- implement Spaceable_grob
4 source file of the GNU LilyPond music typesetter
6 (c) 2000--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
12 #include "spaceable-grob.hh"
16 #include "group-interface.hh"
19 Spaceable_grob::get_minimum_distances (Grob
*me
)
21 return me
->get_grob_property ("minimum-distances");
24 /*todo: merge code of spring & rod?
27 Spaceable_grob::add_rod (Grob
*me
, Grob
* p
, Real d
)
29 // printf ("rod %lf\n", d);
32 SCM mins
= get_minimum_distances (me
);
33 SCM newdist
= gh_double2scm (d
);
34 for (SCM s
= mins
; gh_pair_p (s
); s
= ly_cdr (s
))
36 SCM dist
= ly_car (s
);
37 if (ly_car (dist
) == p
->self_scm ())
39 gh_set_cdr_x (dist
, scm_max (ly_cdr (dist
),
45 mins
= gh_cons (gh_cons (p
->self_scm (), newdist
), mins
);
46 me
->set_grob_property ("minimum-distances", mins
);
50 Spaceable_grob::add_spring (Grob
*me
, Grob
* p
, Real d
, Real strength
, bool expand_only
)
52 // printf ("dist %lf, str %lf\n", d, strength);
53 if (d
<= 0.0 || strength
<= 0.0)
55 programming_error ("Adding reverse spring! Setting to unit spring");
60 if (isinf (d
) || isnan(d
)
64 strength == INF is possible. It means fixed distance.
66 programming_error ("Insane distance found.");
72 SCM mins
= me
->get_grob_property ("ideal-distances");
73 for (SCM s
= mins
; gh_pair_p (s
); s
= ly_cdr (s
))
75 Spring_smob
* sp
= unsmob_spring(ly_car (s
));
78 programming_error ("already have that spring");
85 spring
.strength_
= strength
;
87 spring
.expand_only_b_
= expand_only
;
90 Group_interface::add_thing (me
, ly_symbol2scm ("ideal-distances"), spring
.smobbed_copy ());
95 Spaceable_grob::remove_interface (Grob
*me
)
97 me
->set_grob_property ("minimum-distances" , SCM_EOL
);
98 me
->set_grob_property ("spacing-wishes", SCM_EOL
);
99 me
->set_grob_property ("ideal-distances", SCM_EOL
);
104 ADD_INTERFACE (Spaceable_grob
,"spaceable-grob-interface",
105 "A grob (a Paper_column) that takes part in the \n"
107 "measure-length spacing-wishes penalty minimum-distances ideal-distances "
108 "left-neighbors right-neighbors");