lily/separating-line-group-engraver.cc

   1 /*
   2   separating-line-group-grav.cc --  implement Separating_line_group_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "separating-line-group-engraver.hh"
  11 #include "separating-group-spanner.hh"
  12 #include "single-malt-grouping-item.hh"
  13 #include "paper-column.hh"
  14 #include "paper-def.hh"
  15
  16 Separating_line_group_engraver::Separating_line_group_engraver ()
  17 {
  18   sep_span_p_ = 0;
  19   break_malt_p_ = 0;
  20   nobreak_malt_p_ =0;
  21 }
  22
  23 void
  24 Separating_line_group_engraver::do_creation_processing ()
  25 {
  26   sep_span_p_ = new Separating_group_spanner (SCM_EOL);
  27   announce_element (Score_element_info (sep_span_p_, 0));
  28   sep_span_p_->set_bound (LEFT, unsmob_element (get_property ("currentCommandColumn")));
  29 }
  30
  31 void
  32 Separating_line_group_engraver::do_removal_processing ()
  33 {
  34   sep_span_p_->set_bound (RIGHT, unsmob_element (get_property ("currentCommandColumn")));
  35   typeset_element (sep_span_p_);
  36   sep_span_p_ =0;
  37 }
  38
  39 void
  40 Separating_line_group_engraver::acknowledge_element (Score_element_info i)
  41 {
  42   Item * it = dynamic_cast <Item *> (i.elem_l_);
  43   if (it && !it->parent_l (X_AXIS))
  44     {
  45       bool ib =it->breakable_b ();
  46       Single_malt_grouping_item *&p_ref_ (ib ? break_malt_p_
  47                                           : nobreak_malt_p_);
  48
  49       if (!p_ref_)
  50         {
  51           p_ref_
  52             = new Single_malt_grouping_item
  53             (get_property ("basicSingleMaltGroupingItemProperties"));
  54
  55           if (ib)
  56             p_ref_->set_elt_property ("breakable", SCM_BOOL_T);
  57           announce_element (Score_element_info (p_ref_, 0));
  58         }
  59       p_ref_->add_item (it);
  60     }
  61 }
  62
  63 void
  64 Separating_line_group_engraver::do_pre_move_processing ()
  65 {
  66   if (break_malt_p_)
  67     {
  68       sep_span_p_->add_spacing_unit (break_malt_p_);
  69
  70       typeset_element (break_malt_p_);
  71       break_malt_p_ =0;
  72     }
  73   if (nobreak_malt_p_)
  74     {
  75       sep_span_p_->add_spacing_unit (nobreak_malt_p_);
  76       typeset_element (nobreak_malt_p_);
  77       nobreak_malt_p_ =0;
  78     }
  79 }
  80
  81
  82
  83 ADD_THIS_TRANSLATOR( Separating_line_group_engraver);
  84