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 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-column-format.hh"
  20 #include "tie-formatting-problem.hh"
  21
  22
  23 ADD_INTERFACE(Laissez_vibrer_tie_column,
  24               "laissez-vibrer-tie-column-interface",
  25               "The interface for a column of l.v. ties.",
  26
  27               /* properties */
  28               "positioning-done "
  29               "tie-configuration "
  30               );
  31
  32
  33
  34 /*
  35   Cut & paste from tie-column.cc
  36  */
  37 MAKE_SCHEME_CALLBACK(Laissez_vibrer_tie_column, calc_positioning_done, 1);
  38 SCM
  39 Laissez_vibrer_tie_column::calc_positioning_done (SCM smob)
  40 {
  41   Grob *me = unsmob_grob (smob);
  42
  43   extract_grob_set (me, "ties", lv_ro_ties);
  44   Link_array<Grob> lv_ties (lv_ro_ties);
  45
  46   lv_ties.sort (&Laissez_vibrer_tie::compare);
  47
  48   Ties_configuration ties_config;
  49   for (int i = 0; i < lv_ties.size (); i++)
  50     {
  51       Tie_configuration conf;
  52       conf.dir_ = CENTER;
  53       Item *head = unsmob_item (lv_ties[i]->get_object ("note-head"));
  54
  55       if (head)
  56         conf.position_ = (int) Staff_symbol_referencer::get_position (head);
  57
  58       ties_config.ties_.push (conf);
  59     }
  60
  61   bool manual_override = false;
  62   SCM manual_configs = me->get_property ("tie-configuration");
  63   set_manual_tie_configuration (&ties_config,
  64                                 &manual_override,
  65                                 manual_configs
  66                                 );
  67
  68   set_tie_config_directions (&ties_config);
  69
  70   Tie_formatting_problem problem;
  71   problem.from_lv_ties (lv_ties);
  72
  73   Tie_details details;
  74   details.init (lv_ties[0]);
  75
  76   /*
  77     Calculate final width and shape of the ties.
  78    */
  79   for (int i = 0; i < lv_ties.size(); i++)
  80     {
  81       final_shape_adjustment (ties_config.ties_[i],
  82                               problem,
  83                               lv_ties[0],
  84                               details);
  85     }
  86
  87   /*
  88     Try to shift small ties into available spaces.
  89    */
  90   if (!manual_override)
  91     {
  92       shift_small_ties (&ties_config, lv_ties[0], details);
  93     }
  94
  95   for (int i = 0; i < lv_ties.size(); i++)
  96     {
  97       Tie::set_control_points (lv_ties[i], problem.common_x_refpoint (), ties_config.ties_[i],
  98                                details );
  99       set_grob_direction (lv_ties[i], ties_config.ties_[i].dir_);
 100     }
 101
 102   return SCM_BOOL_T;
 103 }
 104
 105