lily/script-column-engraver.cc

   1 /*
   2   script-column-engraver.cc -- implement Script_column_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "engraver.hh"
  10 #include "script-column.hh"
  11 #include "side-position-interface.hh"
  12 #include "item.hh"
  13
  14 #include "translator.icc"
  15
  16 /**
  17    Find potentially colliding scripts, and put them in a
  18    Script_column, that will fix the collisions.  */
  19 class Script_column_engraver : public Engraver
  20 {
  21   Grob *script_column_;
  22   vector<Grob*> scripts_;
  23
  24 public:
  25   TRANSLATOR_DECLARATIONS (Script_column_engraver);
  26 protected:
  27   DECLARE_ACKNOWLEDGER (side_position);
  28   void process_acknowledged ();
  29   void stop_translation_timestep ();
  30 };
  31
  32 Script_column_engraver::Script_column_engraver ()
  33 {
  34   script_column_ = 0;
  35 }
  36
  37 void
  38 Script_column_engraver::stop_translation_timestep ()
  39 {
  40   if (script_column_)
  41     {
  42       for (vsize i = 0; i < scripts_.size (); i++)
  43         if (Side_position_interface::get_axis (scripts_[i]) == Y_AXIS)
  44           Script_column::add_side_positioned (script_column_, scripts_[i]);
  45     }
  46
  47   script_column_ = 0;
  48   scripts_.clear ();
  49 }
  50
  51 void
  52 Script_column_engraver::acknowledge_side_position (Grob_info inf)
  53 {
  54   Item *thing = dynamic_cast<Item *> (inf.grob ());
  55   if (thing)
  56     {
  57       if (!Item::is_non_musical (thing))
  58         scripts_.push_back (thing);
  59     }
  60 }
  61
  62 void
  63 Script_column_engraver::process_acknowledged ()
  64 {
  65   if (!script_column_ && scripts_.size () > 1)
  66     script_column_ = make_item ("ScriptColumn", SCM_EOL);
  67 }
  68
  69 ADD_ACKNOWLEDGER (Script_column_engraver, side_position);
  70 ADD_TRANSLATOR (Script_column_engraver,
  71                 /* doc */
  72                 "Find potentially colliding scripts and put them into a"
  73                 " @code{ScriptColumn} object; that will fix the collisions.",
  74
  75                 /* create */
  76                 "ScriptColumn ",
  77
  78                 /* read */
  79                 "",
  80
  81                 /* write */
  82                 ""
  83                 );