lily/laissez-vibrer-tie-column.cc

   1 /*
   2   laissez-vibrer-tie-column.cc -- implement Laissez_vibrer_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 "laissez-vibrer-tie-column.hh"
  11 #include "laissez-vibrer-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(Laissez_vibrer_tie_column,
  25               "laissez-vibrer-tie-column-interface",
  26               "The interface for a column of l.v. ties.",
  27
  28               /* properties */
  29               "positioning-done "
  30               "tie-configuration "
  31               );
  32
  33
  34
  35 /*
  36   Cut & paste from tie-column.cc
  37  */
  38 MAKE_SCHEME_CALLBACK(Laissez_vibrer_tie_column, calc_positioning_done, 1);
  39 SCM
  40 Laissez_vibrer_tie_column::calc_positioning_done (SCM smob)
  41 {
  42   Grob *me = unsmob_grob (smob);
  43
  44   extract_grob_set (me, "ties", lv_ro_ties);
  45   Link_array<Grob> lv_ties (lv_ro_ties);
  46
  47   lv_ties.sort (&Laissez_vibrer_tie::compare);
  48
  49   Ties_configuration ties_config;
  50
  51
  52   Tie_formatting_problem problem;
  53
  54   problem.from_lv_ties (lv_ties);
  55
  56   SCM manual_configs = me->get_property ("tie-configuration");
  57   problem.set_manual_tie_configuration (manual_configs);
  58
  59   Ties_configuration base = problem.generate_optimal_chord_configuration ();
  60   for (int i = 0; i < lv_ties.size(); i++)
  61     {
  62       Tie::set_control_points (lv_ties[i], problem.common_x_refpoint (), base[i],
  63                                problem.details_);
  64       set_grob_direction (lv_ties[i], base[i].dir_);
  65     }
  66
  67   return SCM_BOOL_T;
  68 }
  69
  70