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 #include "stem.hh"
  16
  17 class Dot_column_engraver : public Engraver
  18 {
  19   Grob *dotcol_ ;
  20   Grob * stem_;
  21   Link_array<Item> head_l_arr_;
  22 public:
  23   VIRTUAL_COPY_CONS (Translator);
  24   Dot_column_engraver ();
  25
  26 protected:
  27   virtual void acknowledge_grob (Grob_info);
  28   virtual void stop_translation_timestep ();
  29 };
  30
  31
  32 Dot_column_engraver::Dot_column_engraver ()
  33 {
  34   dotcol_ =0;
  35   stem_ = 0;
  36 }
  37
  38 void
  39 Dot_column_engraver::stop_translation_timestep ()
  40 {
  41   if (dotcol_)
  42     {
  43
  44       /*
  45         Add the stem to the support so dots stay clear of flags.
  46
  47         See [Ross, p 171]
  48        */
  49       if (stem_)
  50         dotcol_->set_grob_property ("stem", stem_->self_scm ());
  51
  52       typeset_grob (dotcol_);
  53       dotcol_ =0;
  54     }
  55   head_l_arr_.clear ();
  56   stem_ =0;
  57 }
  58
  59 void
  60 Dot_column_engraver::acknowledge_grob (Grob_info info)
  61 {
  62   Grob *d = unsmob_grob (info.elem_l_->get_grob_property ("dot"));
  63   if (d)
  64     {
  65       if (!dotcol_)
  66         {
  67           dotcol_ = new Item (get_property ("DotColumn"));
  68
  69           Dot_column::set_interface (dotcol_);
  70           announce_grob (dotcol_, 0);
  71         }
  72
  73       Dot_column::add_head (dotcol_, info.elem_l_);
  74     }
  75   else if (Stem::has_interface (info.elem_l_))
  76     {
  77       stem_ = info.elem_l_;
  78     }
  79 }
  80
  81
  82 ADD_THIS_TRANSLATOR (Dot_column_engraver);
  83