lily/dot-column-engraver.cc

   1 /*
   2   dot-column-engraver.cc -- implement Dot_column_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
  11 #include "rhythmic-head.hh"
  12 #include "dot-column.hh"
  13 #include "side-position-interface.hh"
  14 #include "engraver.hh"
  15
  16 class Dot_column_engraver : public Engraver
  17 {
  18   Grob *dotcol_p_ ;
  19   Link_array<Item> head_l_arr_;
  20 public:
  21   VIRTUAL_COPY_CONS(Translator);
  22   Dot_column_engraver();
  23
  24 protected:
  25   virtual void acknowledge_grob (Grob_info);
  26   virtual void stop_translation_timestep ();
  27 };
  28
  29
  30 Dot_column_engraver::Dot_column_engraver ()
  31 {
  32   dotcol_p_ =0;
  33 }
  34
  35 void
  36 Dot_column_engraver::stop_translation_timestep ()
  37 {
  38   if (dotcol_p_)
  39     {
  40       typeset_grob (dotcol_p_);
  41       dotcol_p_ =0;
  42     }
  43   head_l_arr_.clear ();
  44 }
  45
  46 void
  47 Dot_column_engraver::acknowledge_grob (Grob_info info)
  48 {
  49   Grob *d = unsmob_grob (info.elem_l_->get_grob_property ("dot"));
  50   if (d)
  51     {
  52       if (!dotcol_p_)
  53         {
  54           dotcol_p_ = new Item(get_property ("DotColumn"));
  55
  56           Dot_column::set_interface (dotcol_p_);
  57           Side_position_interface::set_axis (dotcol_p_, X_AXIS);
  58           Side_position_interface::set_direction (dotcol_p_, RIGHT);
  59           announce_grob (dotcol_p_, 0);
  60         }
  61
  62       Dot_column::add_head (dotcol_p_, info.elem_l_);
  63     }
  64 }
  65
  66
  67 ADD_THIS_TRANSLATOR(Dot_column_engraver);
  68