MAKE_SCHEME_CALLBACK (Semi_tie_column, calc_positioning_done, 1);
SCM
Semi_tie_column::calc_positioning_done (SCM smob)
{
MAKE_SCHEME_CALLBACK (Semi_tie_column, calc_positioning_done, 1);
SCM
Semi_tie_column::calc_positioning_done (SCM smob)
{
vector_sort (lv_ties, Semi_tie::less);
Ties_configuration ties_config;
vector_sort (lv_ties, Semi_tie::less);
Ties_configuration ties_config;
problem.from_semi_ties (lv_ties, to_dir (me->get_property ("head-direction")));
SCM manual_configs = me->get_property ("tie-configuration");
problem.from_semi_ties (lv_ties, to_dir (me->get_property ("head-direction")));
SCM manual_configs = me->get_property ("tie-configuration");
for (vsize i = 0; i < lv_ties.size (); i++)
{
SCM cp = Tie::get_control_points (lv_ties[i], problem.common_x_refpoint (), base[i],
for (vsize i = 0; i < lv_ties.size (); i++)
{
SCM cp = Tie::get_control_points (lv_ties[i], problem.common_x_refpoint (), base[i],
lv_ties[i]->set_property ("control-points", cp);
set_grob_direction (lv_ties[i], base[i].dir_);
problem.set_debug_scoring (base);
}
lv_ties[i]->set_property ("control-points", cp);
set_grob_direction (lv_ties[i], base[i].dir_);
problem.set_debug_scoring (base);
}
MAKE_SCHEME_CALLBACK (Semi_tie_column, calc_head_direction, 1);
SCM
Semi_tie_column::calc_head_direction (SCM smob)
{
MAKE_SCHEME_CALLBACK (Semi_tie_column, calc_head_direction, 1);
SCM
Semi_tie_column::calc_head_direction (SCM smob)
{
- {
- programming_error ("all semi-ties in a semi-tie-column should have the same head-direction");
- return scm_from_int (d);
- }
+ {
+ programming_error ("all semi-ties in a semi-tie-column should have the same head-direction");
+ return scm_from_int (d);
+ }