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--2001 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 #include "axis-group-interface.hh"
  16
  17 class Separating_line_group_engraver : public Engraver
  18 {
  19 protected:
  20   Item * break_malt_p_;
  21   Item * musical_malt_p_;
  22
  23   /*
  24     malt_p_ : we used to have a Single_malt_grouping_item
  25
  26    */
  27   Item * last_step_musical_malt_p_;
  28
  29   Spanner * sep_span_p_;
  30
  31   virtual void acknowledge_grob (Grob_info);
  32   virtual void initialize ();
  33   virtual void finalize ();
  34   virtual void stop_translation_timestep ();
  35 public:
  36   Separating_line_group_engraver ();
  37   VIRTUAL_COPY_CONS (Translator);
  38 };
  39
  40 Separating_line_group_engraver::Separating_line_group_engraver ()
  41 {
  42   last_step_musical_malt_p_ = 0;
  43   sep_span_p_ = 0;
  44   break_malt_p_ = 0;
  45   musical_malt_p_ =0;
  46 }
  47
  48 void
  49 Separating_line_group_engraver::initialize ()
  50 {
  51   sep_span_p_ = new Spanner (get_property ("SeparatingGroupSpanner"));
  52
  53   announce_grob (sep_span_p_, 0);
  54   sep_span_p_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn")));
  55 }
  56
  57 void
  58 Separating_line_group_engraver::finalize ()
  59 {
  60   sep_span_p_->set_bound (RIGHT, unsmob_grob (get_property ("currentCommandColumn")));
  61   typeset_grob (sep_span_p_);
  62   sep_span_p_ =0;
  63 }
  64
  65 void
  66 Separating_line_group_engraver::acknowledge_grob (Grob_info i)
  67 {
  68   Item * it = dynamic_cast <Item *> (i.elem_l_);
  69   if (!it)
  70     return;
  71   if (it->parent_l (X_AXIS)
  72       && it->parent_l (X_AXIS)->has_extent_callback_b
  73  (Axis_group_interface::group_extent_callback_proc, X_AXIS))
  74     return;
  75
  76
  77   bool ib =Item::breakable_b (it);
  78   Item *&p_ref_ (ib ? break_malt_p_
  79                  : musical_malt_p_);
  80
  81   if (!p_ref_)
  82     {
  83       p_ref_ = new Item
  84  (get_property ("SeparationItem"));
  85
  86       if (ib)
  87         p_ref_->set_grob_property ("breakable", SCM_BOOL_T);
  88       announce_grob (p_ref_, 0);
  89     }
  90   Separation_item::add_item (p_ref_,it);
  91 }
  92
  93 void
  94 Separating_line_group_engraver::stop_translation_timestep ()
  95 {
  96   if (break_malt_p_)
  97     {
  98       Separating_group_spanner::add_spacing_unit (sep_span_p_, break_malt_p_);
  99
 100       typeset_grob (break_malt_p_);
 101       break_malt_p_ =0;
 102     }
 103
 104   if (musical_malt_p_)
 105       {
 106       Separating_group_spanner::add_spacing_unit (sep_span_p_, musical_malt_p_);
 107
 108       if (last_step_musical_malt_p_)
 109         {
 110           Paper_column *col =
 111             last_step_musical_malt_p_->column_l();
 112           SCM newtup = gh_cons (last_step_musical_malt_p_->self_scm (),
 113                                 musical_malt_p_->self_scm ());
 114           col->set_grob_property ("spacing-sequence",
 115                                   gh_cons (newtup,
 116                                            col->get_grob_property ("spacing-sequence")));
 117         }
 118
 119       typeset_grob (musical_malt_p_);
 120       }
 121   last_step_musical_malt_p_ = musical_malt_p_;
 122   musical_malt_p_ =0;
 123
 124
 125 }
 126
 127
 128
 129 ADD_THIS_TRANSLATOR (Separating_line_group_engraver);
 130