lily/semi-tie-column.cc

   1 /*
   2   semi-tie-column.cc -- implement Semi_tie_column
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7
   8 */
   9
  10 #include "semi-tie-column.hh"
  11 #include "semi-tie.hh"
  12 #include "grob.hh"
  13 #include "tie-column.hh"
  14 #include "tie.hh"
  15 #include "directional-element-interface.hh"
  16 #include "pointer-group-interface.hh"
  17 #include "staff-symbol-referencer.hh"
  18 #include "item.hh"
  19 #include "tie-formatting-problem.hh"
  20 #include "tie-configuration.hh"
  21 #include "tie-column-format.hh"
  22
  23
  24 ADD_INTERFACE(Semi_tie_column,
  25               "semi-tie-column-interface",
  26               "The interface for a column of l.v. ties.",
  27
  28               /* properties */
  29               "positioning-done "
  30               "head-direction "
  31               "tie-configuration "
  32               );
  33
  34
  35
  36 /*
  37   Cut & paste from tie-column.cc
  38  */
  39 MAKE_SCHEME_CALLBACK(Semi_tie_column, calc_positioning_done, 1);
  40 SCM
  41 Semi_tie_column::calc_positioning_done (SCM smob)
  42 {
  43   Grob *me = unsmob_grob (smob);
  44
  45   extract_grob_set (me, "ties", lv_ro_ties);
  46   vector<Grob*> lv_ties (lv_ro_ties);
  47
  48   vector_sort (lv_ties, Semi_tie::less);
  49
  50   Ties_configuration ties_config;
  51
  52
  53   Tie_formatting_problem problem;
  54
  55   problem.from_semi_ties (lv_ties, to_dir (me->get_property ("head-direction")));
  56
  57   SCM manual_configs = me->get_property ("tie-configuration");
  58   problem.set_manual_tie_configuration (manual_configs);
  59
  60   Ties_configuration base = problem.generate_optimal_chord_configuration ();
  61   for (vsize i = 0; i < lv_ties.size(); i++)
  62     {
  63       Tie::set_control_points (lv_ties[i], problem.common_x_refpoint (), base[i],
  64                                problem.details_);
  65       set_grob_direction (lv_ties[i], base[i].dir_);
  66     }
  67
  68   return SCM_BOOL_T;
  69 }
  70
  71