lily/vertical-align-engraver.cc

   1 /*
   2   vertical-align-grav.cc -- implement Vertical_align_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8 #include "translator-group.hh"
   9 #include "paper-column.hh"
  10 #include "align-interface.hh"
  11 #include "span-bar.hh"
  12 #include "axis-group-interface.hh"
  13 #include "engraver.hh"
  14 #include "spanner.hh"
  15
  16 class Vertical_align_engraver : public Engraver
  17 {
  18   Spanner * valign_p_;
  19   bool qualifies_b (Score_element_info) const;
  20 public:
  21   VIRTUAL_COPY_CONS(Translator);
  22   Vertical_align_engraver();
  23 protected:
  24   virtual void acknowledge_element (Score_element_info);
  25   virtual void do_creation_processing();
  26   virtual void do_removal_processing();
  27 };
  28
  29 Vertical_align_engraver::Vertical_align_engraver()
  30 {
  31   valign_p_ =0;
  32 }
  33
  34 void
  35 Vertical_align_engraver::do_creation_processing()
  36 {
  37   valign_p_ =new Spanner (get_property ("VerticalAlignment"));
  38   valign_p_->set_bound(LEFT,unsmob_element (get_property ("currentCommandColumn")));
  39   announce_element (valign_p_ , 0);
  40 }
  41
  42 void
  43 Vertical_align_engraver::do_removal_processing()
  44 {
  45   SCM min = get_property ("maxVerticalAlign");
  46   SCM max = get_property ("minVerticalAlign");
  47
  48   if (gh_number_p (min) || gh_number_p (max))
  49     {
  50       min = gh_number_p (min) ? min : gh_double2scm (0.0);
  51       max = gh_number_p (max) ? max : gh_double2scm (infinity_f);
  52
  53       valign_p_->set_elt_property ("threshold",
  54                                    gh_cons (min,max));
  55     }
  56
  57   valign_p_->set_bound(RIGHT,unsmob_element (get_property ("currentCommandColumn")));
  58   typeset_element (valign_p_);
  59   valign_p_ =0;
  60 }
  61
  62
  63 bool
  64 Vertical_align_engraver::qualifies_b (Score_element_info i) const
  65 {
  66   int sz = i.origin_trans_l_arr ((Translator*)this).size()  ;
  67
  68   return sz > 1 && Axis_group_interface::has_interface (i.elem_l_)
  69     && !i.elem_l_->parent_l (Y_AXIS) && Axis_group_interface::axis_b (i.elem_l_, Y_AXIS);
  70 }
  71
  72 void
  73 Vertical_align_engraver::acknowledge_element (Score_element_info i)
  74 {
  75   if (qualifies_b (i))
  76     {
  77       Align_interface::add_element (valign_p_,i.elem_l_);
  78     }
  79 }
  80
  81 ADD_THIS_TRANSLATOR(Vertical_align_engraver);