source file of the GNU LilyPond music typesetter
- (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 2005--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "staff-symbol-referencer.hh"
#include "item.hh"
#include "tie-formatting-problem.hh"
-#include "tie-configuration.hh"
#include "tie-column-format.hh"
ADD_INTERFACE(Semi_tie_column,
- "semi-tie-column-interface",
"The interface for a column of l.v. ties.",
/* properties */
Semi_tie_column::calc_positioning_done (SCM smob)
{
Grob *me = unsmob_grob (smob);
-
+
+ me->set_property ("positioning-done", SCM_BOOL_T);
+
extract_grob_set (me, "ties", lv_ro_ties);
vector<Grob*> lv_ties (lv_ro_ties);
SCM manual_configs = me->get_property ("tie-configuration");
problem.set_manual_tie_configuration (manual_configs);
- Ties_configuration base = problem.generate_optimal_chord_configuration ();
+ Ties_configuration base = problem.generate_optimal_configuration ();
for (vsize i = 0; i < lv_ties.size(); i++)
{
- Tie::set_control_points (lv_ties[i], problem.common_x_refpoint (), base[i],
- problem.details_);
+ SCM cp = Tie::get_control_points (lv_ties[i], problem.common_x_refpoint (), base[i],
+ problem.details_);
+
+ lv_ties[i]->set_property ("control-points", cp);
set_grob_direction (lv_ties[i], base[i].dir_);
- }
+ problem.set_debug_scoring (base);
+ }
+
return SCM_BOOL_T;
}