lily/rhythmic-column-engraver.cc

   1 /*
   2   rhythmic-column-grav.cc -- implement Rhythmic_column_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
   9 #include "dimension-cache.hh"
  10 #include "slur.hh"
  11 #include "engraver.hh"
  12 #include "note-head.hh"
  13 #include "stem.hh"
  14 #include "note-column.hh"
  15 #include "dot-column.hh"
  16 #include "musical-request.hh"
  17
  18 class Rhythmic_column_engraver :public Engraver
  19 {
  20   Link_array<Rhythmic_head> rhead_l_arr_;
  21   Link_array<Slur> grace_slur_endings_;
  22   Stem * stem_l_;
  23   Note_column *ncol_p_;
  24   Dot_column *dotcol_l_;
  25
  26 protected:
  27   VIRTUAL_COPY_CONS(Translator);
  28   virtual void acknowledge_element (Score_element_info);
  29   virtual void process_acknowledged ();
  30   virtual void do_pre_move_processing();
  31   virtual void do_post_move_processing();
  32 public:
  33   Rhythmic_column_engraver();
  34
  35 };
  36
  37
  38
  39 Rhythmic_column_engraver::Rhythmic_column_engraver()
  40 {
  41   stem_l_ =0;
  42   ncol_p_=0;
  43   dotcol_l_ =0;
  44 }
  45
  46
  47 void
  48 Rhythmic_column_engraver::process_acknowledged ()
  49 {
  50   if (rhead_l_arr_.size ())
  51     {
  52       if (!ncol_p_)
  53         {
  54           ncol_p_ = new Note_column (SCM_EOL);
  55           announce_element (Score_element_info (ncol_p_, 0));
  56         }
  57
  58       for (int i=0; i < rhead_l_arr_.size (); i++)
  59         {
  60           if (!rhead_l_arr_[i]->parent_l(X_AXIS))
  61             ncol_p_->add_head (rhead_l_arr_[i]);
  62         }
  63       rhead_l_arr_.set_size (0);
  64     }
  65
  66
  67   if (ncol_p_)
  68     {
  69       if (dotcol_l_
  70           && !dotcol_l_->parent_l(X_AXIS))
  71         {
  72           ncol_p_->set_dotcol (dotcol_l_);
  73         }
  74
  75       if (stem_l_
  76           && !stem_l_->parent_l(X_AXIS))
  77         {
  78           ncol_p_->set_stem (stem_l_);
  79           stem_l_ = 0;
  80         }
  81
  82       SCM wg = get_property ("weAreGraceContext");
  83       bool wegrace = to_boolean (wg);
  84
  85       if (!wegrace)
  86         for (int i=0; i < grace_slur_endings_.size(); i++)
  87           grace_slur_endings_[i]->add_column (ncol_p_);
  88       grace_slur_endings_.clear ();
  89     }
  90 }
  91
  92 void
  93 Rhythmic_column_engraver::acknowledge_element (Score_element_info i)
  94 {
  95   SCM wg = get_property ("weAreGraceContext");
  96   bool wegrace = to_boolean (wg);
  97   if ((wegrace !=
  98       (i.elem_l_->get_elt_property ("grace") != SCM_UNDEFINED))
  99     && !dynamic_cast<Slur*> (i.elem_l_))
 100     return ;
 101
 102   Item * item =  dynamic_cast <Item *> (i.elem_l_);
 103   if (Stem*s=dynamic_cast<Stem *> (item))
 104     {
 105       stem_l_ = s;
 106     }
 107   else if (Rhythmic_head*r=dynamic_cast<Rhythmic_head *> (item))
 108     {
 109       rhead_l_arr_.push (r);
 110     }
 111   else if (Dot_column*d =dynamic_cast<Dot_column *> (item))
 112     {
 113       dotcol_l_ = d;
 114     }
 115   else if (Slur *s = dynamic_cast<Slur*> (i.elem_l_))
 116     {
 117       /*
 118         end slurs starting on grace notes
 119        */
 120
 121       if (to_boolean (s->get_elt_property ("grace")))
 122         grace_slur_endings_.push (s);
 123    }
 124 }
 125
 126 void
 127 Rhythmic_column_engraver::do_pre_move_processing()
 128 {
 129   if (ncol_p_)
 130     {
 131       typeset_element (ncol_p_);
 132       ncol_p_ =0;
 133     }
 134 }
 135
 136 void
 137 Rhythmic_column_engraver::do_post_move_processing()
 138 {
 139   grace_slur_endings_.clear ();
 140   dotcol_l_ =0;
 141   stem_l_ =0;
 142 }
 143
 144 ADD_THIS_TRANSLATOR(Rhythmic_column_engraver);
 145