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-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 (SCM_EOL);
  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_
  68             = new Item
  69             (get_property ("basicSingleMaltGroupingItemProperties"));
  70
  71           if (ib)
  72             p_ref_->set_elt_property ("breakable", SCM_BOOL_T);
  73           announce_element (Score_element_info (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       sep_span_p_->add_spacing_unit (break_malt_p_);
  85
  86       typeset_element (break_malt_p_);
  87       break_malt_p_ =0;
  88     }
  89   if (nobreak_malt_p_)
  90     {
  91       sep_span_p_->add_spacing_unit (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