2 semi-tie-column.cc -- implement Semi_tie_column
4 source file of the GNU LilyPond music typesetter
6 (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
10 #include "semi-tie-column.hh"
11 #include "semi-tie.hh"
13 #include "tie-column.hh"
15 #include "directional-element-interface.hh"
16 #include "pointer-group-interface.hh"
17 #include "staff-symbol-referencer.hh"
19 #include "tie-formatting-problem.hh"
20 #include "tie-column-format.hh"
23 ADD_INTERFACE(Semi_tie_column,
24 "The interface for a column of l.v. ties.",
35 Cut & paste from tie-column.cc
37 MAKE_SCHEME_CALLBACK(Semi_tie_column, calc_positioning_done, 1);
39 Semi_tie_column::calc_positioning_done (SCM smob)
41 Grob *me = unsmob_grob (smob);
43 extract_grob_set (me, "ties", lv_ro_ties);
44 vector<Grob*> lv_ties (lv_ro_ties);
46 vector_sort (lv_ties, Semi_tie::less);
48 Ties_configuration ties_config;
51 Tie_formatting_problem problem;
53 problem.from_semi_ties (lv_ties, to_dir (me->get_property ("head-direction")));
55 SCM manual_configs = me->get_property ("tie-configuration");
56 problem.set_manual_tie_configuration (manual_configs);
58 Ties_configuration base = problem.generate_optimal_chord_configuration ();
59 for (vsize i = 0; i < lv_ties.size(); i++)
61 Tie::set_control_points (lv_ties[i], problem.common_x_refpoint (), base[i],
63 set_grob_direction (lv_ties[i], base[i].dir_);