lily/axis-group-engraver.cc

   1 /*
   2   axis-group-engraver.cc -- implement Axis_group_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "axis-group-engraver.hh"
  10
  11 #include "axis-group-interface.hh"
  12 #include "pointer-group-interface.hh"
  13 #include "context.hh"
  14 #include "international.hh"
  15 #include "spanner.hh"
  16 #include "warn.hh"
  17
  18 #include "translator.icc"
  19
  20 Axis_group_engraver::Axis_group_engraver ()
  21 {
  22   must_be_last_ = true;
  23   staffline_ = 0;
  24 }
  25
  26 void
  27 Axis_group_engraver::process_music ()
  28 {
  29   if (!staffline_)
  30     {
  31       staffline_ = get_spanner ();
  32       Grob *it = unsmob_grob (get_property ("currentCommandColumn"));
  33       staffline_->set_bound (LEFT, it);
  34     }
  35 }
  36
  37 Spanner *
  38 Axis_group_engraver::get_spanner ()
  39 {
  40   return make_spanner ("VerticalAxisGroup", SCM_EOL);
  41 }
  42
  43 void
  44 Axis_group_engraver::finalize ()
  45 {
  46   if (staffline_)
  47     {
  48       Grob *it = unsmob_grob (get_property ("currentCommandColumn"));
  49       staffline_->set_bound (RIGHT, it);
  50
  51       Pointer_group_interface::set_ordered (staffline_, ly_symbol2scm ("elements"), false);
  52     }
  53 }
  54
  55 void
  56 Axis_group_engraver::acknowledge_grob (Grob_info i)
  57 {
  58   elts_.push_back (i.grob ());
  59 }
  60
  61 /*
  62   maybe should check if our parent is set, because we now get a
  63   cyclic parent relationship if we have two Axis_group_engravers in
  64   the context.  */
  65 void
  66 Axis_group_engraver::process_acknowledged ()
  67 {
  68   if (!staffline_)
  69     return;
  70
  71   for (vsize i = 0; i < elts_.size (); i++)
  72     {
  73       if (!unsmob_grob (elts_[i]->get_object ("axis-group-parent-Y")))
  74         {
  75           if (staffline_->get_parent (Y_AXIS)
  76               && staffline_->get_parent (Y_AXIS) == elts_[i])
  77             {
  78               staffline_->warning (_ ("Axis_group_engraver: vertical group already has a parent"));
  79               staffline_->warning (_ ("are there two Axis_group_engravers?"));
  80               staffline_->warning (_ ("removing this vertical group"));
  81               staffline_->suicide ();
  82               staffline_ = 0;
  83               break;
  84             }
  85           add_element (elts_[i]);
  86         }
  87     }
  88   elts_.clear ();
  89 }
  90
  91 void
  92 Axis_group_engraver::add_element (Grob *e)
  93 {
  94   Axis_group_interface::add_element (staffline_, e);
  95 }
  96
  97 ADD_ACKNOWLEDGER (Axis_group_engraver, grob);
  98
  99 ADD_TRANSLATOR (Axis_group_engraver,
 100                 /* doc */
 101                 "Group all objects created in this context in a"
 102                 " @code{VerticalAxisGroup} spanner.",
 103
 104                 /* create */
 105                 "VerticalAxisGroup ",
 106
 107                 /* read */
 108                 "currentCommandColumn ",
 109
 110                 /* write */
 111                 ""
 112                 );