lily/separating-group-spanner.cc

   1 /*
   2   separating-group-spanner.cc --  implement Separating_group_spanner
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "separating-group-spanner.hh"
  11 #include "single-malt-grouping-item.hh"
  12 #include "p-col.hh"
  13 #include "paper-def.hh"
  14
  15 Array<Rod>
  16 Separating_group_spanner::get_rods () const
  17 {
  18   Array<Rod> a;
  19
  20   for (int i=0; i < spacing_unit_l_arr_.size () -1; i++)
  21     {
  22       Single_malt_grouping_item *l =spacing_unit_l_arr_[i];
  23       Single_malt_grouping_item *lb
  24         = dynamic_cast<Single_malt_grouping_item*>(l->find_prebroken_piece (RIGHT));
  25       Single_malt_grouping_item *r = spacing_unit_l_arr_[i+1];
  26       Single_malt_grouping_item *rb
  27         = dynamic_cast<Single_malt_grouping_item*>(r->find_prebroken_piece (LEFT));
  28
  29       a.push (Rod (spacing_unit_l_arr_[i], spacing_unit_l_arr_[i+1]));
  30       if (lb)
  31         {
  32           Rod rod(lb, r);
  33           rod.distance_f_ += padding_f_;
  34           a.push (rod);
  35         }
  36
  37       if (rb)
  38         {
  39           a.push (Rod (l, rb));
  40         }
  41
  42       if (lb && rb)
  43         {
  44           Rod rod(lb, rb);
  45           rod.distance_f_ += padding_f_;
  46           a.push (rod);
  47         }
  48     }
  49
  50   return a;
  51 }
  52
  53 void
  54 Separating_group_spanner::add_spacing_unit (Single_malt_grouping_item*i)
  55 {
  56   spacing_unit_l_arr_.push (i);
  57   add_dependency (i);
  58 }
  59
  60 void
  61 Separating_group_spanner::do_substitute_element_pointer (Score_element*o, Score_element*n)
  62 {
  63   if (dynamic_cast<Single_malt_grouping_item *> (o))
  64     {
  65       Single_malt_grouping_item*ns = dynamic_cast<Single_malt_grouping_item *> (n);
  66       spacing_unit_l_arr_.substitute (dynamic_cast<Single_malt_grouping_item *> (o), ns);
  67     }
  68 }
  69
  70 Separating_group_spanner::Separating_group_spanner()
  71 {
  72   set_elt_property (break_helper_only_scm_sym, SCM_BOOL_T);
  73   padding_f_ =0.0;
  74 }