lily/slur-engraver.cc

   1 /*
   2   slur-grav.cc -- implement Slur_engraver
   3
   4   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   5 */
   6
   7 #include "proto.hh"
   8 #include "musical-request.hh"
   9 #include "slur-engraver.hh"
  10 #include "slur.hh"
  11 #include "debug.hh"
  12 #include "note-column.hh"
  13 #include "translator-group.hh"
  14 #include "engraver.hh"
  15
  16 class Slur_engraver :public Engraver {
  17   Link_array<Span_req> requests_arr_;
  18   Link_array<Span_req> new_slur_req_l_arr_;
  19   Link_array<Slur> slur_l_stack_;
  20   Link_array<Slur> end_slur_l_arr_;
  21
  22   void set_melisma (bool);
  23 protected:
  24   virtual bool do_try_music (Music*);
  25   virtual void do_process_music();
  26   virtual void acknowledge_element (Score_element_info);
  27   virtual void do_pre_move_processing();
  28   virtual void do_post_move_processing();
  29   virtual void do_removal_processing ();
  30
  31 public:
  32   VIRTUAL_COPY_CONS(Translator);
  33
  34 };
  35
  36 bool
  37 Slur_engraver::do_try_music (Music *req_l)
  38 {
  39   if (Span_req *sl = dynamic_cast <Span_req *> (req_l))
  40     {
  41       if (sl->span_type_str_ != "slur")
  42         return false;
  43       new_slur_req_l_arr_.push (sl);
  44
  45       return true;
  46     }
  47   return false;
  48 }
  49
  50 void
  51 Slur_engraver::set_melisma (bool m)
  52 {
  53   daddy_trans_l_->set_property ("slurMelismaBusy", m ? SCM_BOOL_T :SCM_BOOL_F);
  54 }
  55
  56 void
  57 Slur_engraver::acknowledge_element (Score_element_info info)
  58 {
  59   if (dynamic_cast<Note_column *> (info.elem_l_))
  60     {
  61       Note_column *col_l =dynamic_cast<Note_column *> (info.elem_l_) ;// ugh
  62       for (int i = 0; i < slur_l_stack_.size(); i++)
  63         slur_l_stack_[i]->add_column (col_l);
  64       for (int i = 0; i < end_slur_l_arr_.size(); i++)
  65         end_slur_l_arr_[i]->add_column (col_l);
  66     }
  67 }
  68
  69 void
  70 Slur_engraver::do_removal_processing ()
  71 {
  72   for (int i = 0; i < slur_l_stack_.size(); i++)
  73     {
  74       typeset_element (slur_l_stack_[i]);
  75     }
  76   slur_l_stack_.clear ();
  77   SCM wg = get_property ("weAreGraceContext");
  78   bool wgb = to_boolean (wg);
  79   if (!wgb)
  80     for (int i=0; i < requests_arr_.size(); i++)
  81       {
  82         requests_arr_[i]->warning (_ ("unterminated slur"));
  83       }
  84 }
  85
  86 void
  87 Slur_engraver::do_process_music()
  88 {
  89   Array<Slur*> start_slur_l_arr_;
  90   for (int i=0; i< new_slur_req_l_arr_.size(); i++)
  91     {
  92       Span_req* slur_req_l = new_slur_req_l_arr_[i];
  93       // end slur: move the slur to other array
  94       if (slur_req_l->span_dir_ == STOP)
  95         {
  96           if (slur_l_stack_.empty())
  97
  98             slur_req_l->warning (_f ("can't find both ends of %s", _("slur")));
  99           else
 100             {
 101               end_slur_l_arr_.push (slur_l_stack_.pop());
 102               requests_arr_.pop();
 103             }
 104         }
 105       else  if (slur_req_l->span_dir_ == START)
 106         {
 107           // push a new slur onto stack.
 108           //(use temp. array to wait for all slur STOPs)
 109           Slur * s_p =new Slur (get_property ("basicSlurProperties"));
 110
 111           requests_arr_.push (slur_req_l);
 112           start_slur_l_arr_.push (s_p);
 113           announce_element (Score_element_info (s_p, slur_req_l));
 114         }
 115     }
 116   for (int i=0; i < start_slur_l_arr_.size(); i++)
 117     slur_l_stack_.push (start_slur_l_arr_[i]);
 118 }
 119
 120 void
 121 Slur_engraver::do_pre_move_processing()
 122 {
 123   for (int i = 0; i < end_slur_l_arr_.size(); i++)
 124     {
 125       typeset_element (end_slur_l_arr_[i]);
 126     }
 127   end_slur_l_arr_.clear();
 128 }
 129
 130 void
 131 Slur_engraver::do_post_move_processing()
 132 {
 133   new_slur_req_l_arr_.clear();
 134   SCM m = get_property ("automaticMelismata");
 135   if (to_boolean (m))
 136     {
 137       set_melisma (slur_l_stack_.size ());
 138     }
 139 }
 140
 141
 142 ADD_THIS_TRANSLATOR(Slur_engraver);