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   Separating_group_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 Separating_group_spanner (get_property ("basicSeparatingGroupSpannerProperties"));
  43   announce_element (Score_element_info (sep_span_p_, 0));
  44   sep_span_p_->set_bound (LEFT, unsmob_element (get_property ("currentCommandColumn")));
  45 }
  46
  47 void
  48 Separating_line_group_engraver::do_removal_processing ()
  49 {
  50   sep_span_p_->set_bound (RIGHT, unsmob_element (get_property ("currentCommandColumn")));
  51   typeset_element (sep_span_p_);
  52   sep_span_p_ =0;
  53 }
  54
  55 void
  56 Separating_line_group_engraver::acknowledge_element (Score_element_info i)
  57 {
  58   Item * it = dynamic_cast <Item *> (i.elem_l_);
  59   if (it && !it->parent_l (X_AXIS))
  60     {
  61       bool ib =it->breakable_b ();
  62       Item *&p_ref_ (ib ? break_malt_p_
  63                               : nobreak_malt_p_);
  64
  65       if (!p_ref_)
  66         {
  67           p_ref_ = new Item
  68             (get_property ("basicSeparationItemProperties"));
  69
  70           if (ib)
  71             p_ref_->set_elt_property ("breakable", SCM_BOOL_T);
  72           announce_element (Score_element_info (p_ref_, 0));
  73         }
  74       Separation_item::add_item (p_ref_,it);
  75     }
  76 }
  77
  78 void
  79 Separating_line_group_engraver::do_pre_move_processing ()
  80 {
  81   if (break_malt_p_)
  82     {
  83       Separating_group_spanner::add_spacing_unit (sep_span_p_, break_malt_p_);
  84
  85       typeset_element (break_malt_p_);
  86       break_malt_p_ =0;
  87     }
  88   if (nobreak_malt_p_)
  89     {
  90       Separating_group_spanner::add_spacing_unit (sep_span_p_, nobreak_malt_p_);
  91       typeset_element (nobreak_malt_p_);
  92       nobreak_malt_p_ =0;
  93     }
  94 }
  95
  96
  97
  98 ADD_THIS_TRANSLATOR(Separating_line_group_engraver);
  99