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--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "axis-group-engraver.hh"
  10
  11 #include "spanner.hh"
  12 #include "axis-group-interface.hh"
  13 #include "warn.hh"
  14 #include "context.hh"
  15
  16 #include "translator.icc"
  17
  18 Axis_group_engraver::Axis_group_engraver ()
  19 {
  20   must_be_last_ = true;
  21   staffline_ = 0;
  22 }
  23
  24 void
  25 Axis_group_engraver::process_music ()
  26 {
  27   if (!staffline_)
  28     {
  29       staffline_ = get_spanner ();
  30       Grob *it = unsmob_grob (get_property ("currentCommandColumn"));
  31       staffline_->set_bound (LEFT, it);
  32     }
  33 }
  34
  35 Spanner *
  36 Axis_group_engraver::get_spanner ()
  37 {
  38   return make_spanner ("VerticalAxisGroup", SCM_EOL);
  39 }
  40
  41 /*
  42   TODO: should we junk minimumVerticalExtent/extraVerticalExtent ?
  43 */
  44
  45 void
  46 Axis_group_engraver::finalize ()
  47 {
  48   if (staffline_)
  49     {
  50       Grob *it = unsmob_grob (get_property ("currentCommandColumn"));
  51       staffline_->set_bound (RIGHT, it);
  52     }
  53 }
  54
  55 void
  56 Axis_group_engraver::acknowledge_grob (Grob_info i)
  57 {
  58   elts_.push (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 (int 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 */ "Group all objects created in this context in a VerticalAxisGroup spanner.",
 101                 /* create */ "VerticalAxisGroup",
 102                 /* accept */ "",
 103                 /* read */ "verticalExtent minimumVerticalExtent extraVerticalExtent",
 104                 /* write */ "");