lily/separating-line-group-engraver.cc

   1 /*
   2   separating-line-group-engraver.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-group-spanner.hh"
  11 #include "separation-item.hh"
  12 #include "paper-column.hh"
  13 #include "paper-def.hh"
  14 #include "engraver.hh"
  15
  16 class Separating_line_group_engraver : public Engraver
  17 {
  18 protected:
  19   Item * break_malt_p_;
  20   Item * nobreak_malt_p_;
  21   Spanner * sep_span_p_;
  22
  23   virtual void acknowledge_element (Score_element_info);
  24   virtual void do_creation_processing ();
  25   virtual void do_removal_processing ();
  26   virtual void do_pre_move_processing ();
  27 public:
  28   Separating_line_group_engraver ();
  29   VIRTUAL_COPY_CONS (Translator);
  30 };
  31
  32 Separating_line_group_engraver::Separating_line_group_engraver ()
  33 {
  34   sep_span_p_ = 0;
  35   break_malt_p_ = 0;
  36   nobreak_malt_p_ =0;
  37 }
  38
  39 void
  40 Separating_line_group_engraver::do_creation_processing ()
  41 {
  42   sep_span_p_ = new Spanner (get_property ("SeparatingGroupSpanner"));
  43   Separating_group_spanner::set_interface (sep_span_p_);
  44   announce_element (sep_span_p_, 0);
  45   sep_span_p_->set_bound (LEFT, unsmob_element (get_property ("currentCommandColumn")));
  46 }
  47
  48 void
  49 Separating_line_group_engraver::do_removal_processing ()
  50 {
  51   sep_span_p_->set_bound (RIGHT, unsmob_element (get_property ("currentCommandColumn")));
  52   typeset_element (sep_span_p_);
  53   sep_span_p_ =0;
  54 }
  55
  56 void
  57 Separating_line_group_engraver::acknowledge_element (Score_element_info i)
  58 {
  59   Item * it = dynamic_cast <Item *> (i.elem_l_);
  60   if (it && !it->parent_l (X_AXIS))
  61     {
  62       bool ib =Item::breakable_b (it);
  63       Item *&p_ref_ (ib ? break_malt_p_
  64                               : nobreak_malt_p_);
  65
  66       if (!p_ref_)
  67         {
  68           p_ref_ = new Item
  69             (get_property ("SeparationItem"));
  70
  71           if (ib)
  72             p_ref_->set_elt_property ("breakable", SCM_BOOL_T);
  73           announce_element (p_ref_, 0);
  74         }
  75       Separation_item::add_item (p_ref_,it);
  76     }
  77 }
  78
  79 void
  80 Separating_line_group_engraver::do_pre_move_processing ()
  81 {
  82   if (break_malt_p_)
  83     {
  84       Separating_group_spanner::add_spacing_unit (sep_span_p_, break_malt_p_);
  85
  86       typeset_element (break_malt_p_);
  87       break_malt_p_ =0;
  88     }
  89   if (nobreak_malt_p_)
  90     {
  91       Separating_group_spanner::add_spacing_unit (sep_span_p_, nobreak_malt_p_);
  92       typeset_element (nobreak_malt_p_);
  93       nobreak_malt_p_ =0;
  94     }
  95 }
  96
  97
  98
  99 ADD_THIS_TRANSLATOR(Separating_line_group_engraver);
 100