lily/slur-engraver.cc

   1 /*
   2   slur-grav.cc -- implement Slur_engraver
   3
   4   (c)  1997--1999 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
  15 ADD_THIS_TRANSLATOR (Slur_engraver);
  16
  17 bool
  18 Slur_engraver::do_try_music (Music *req_l)
  19 {
  20   if (Span_req *sl = dynamic_cast <Span_req *> (req_l))
  21     {
  22       if (sl->span_type_str_ != "slur")
  23         return false;
  24       new_slur_req_l_arr_.push (sl);
  25
  26       return true;
  27     }
  28   return false;
  29 }
  30
  31 void
  32 Slur_engraver::set_melisma (bool m)
  33 {
  34   Translator_group *where = daddy_trans_l_;
  35   get_property ("slurMelismaBusy", &where);
  36   if (!where)
  37     where = daddy_trans_l_;
  38
  39   daddy_trans_l_->set_property ("slurMelismaBusy", m ? SCM_BOOL_T :SCM_BOOL_F);
  40 }
  41
  42 void
  43 Slur_engraver::acknowledge_element (Score_element_info info)
  44 {
  45   if (dynamic_cast<Note_column *> (info.elem_l_))
  46     {
  47       Note_column *col_l =dynamic_cast<Note_column *> (info.elem_l_) ;// ugh
  48       for (int i = 0; i < slur_l_stack_.size(); i++)
  49         slur_l_stack_[i]->add_column (col_l);
  50       for (int i = 0; i < end_slur_l_arr_.size(); i++)
  51         end_slur_l_arr_[i]->add_column (col_l);
  52     }
  53 }
  54
  55 void
  56 Slur_engraver::do_removal_processing ()
  57 {
  58   for (int i = 0; i < slur_l_stack_.size(); i++)
  59     {
  60       typeset_element (slur_l_stack_[i]);
  61     }
  62   slur_l_stack_.clear ();
  63   SCM wg = get_property ("weAreGraceContext",0);
  64   bool wgb = to_boolean (wg);
  65   if (!wgb)
  66     for (int i=0; i < requests_arr_.size(); i++)
  67       {
  68         requests_arr_[i]->warning (_ ("unterminated slur"));
  69       }
  70 }
  71
  72 void
  73 Slur_engraver::do_process_requests()
  74 {
  75   Array<Slur*> start_slur_l_arr_;
  76   for (int i=0; i< new_slur_req_l_arr_.size(); i++)
  77     {
  78       Span_req* slur_req_l = new_slur_req_l_arr_[i];
  79       // end slur: move the slur to other array
  80       if (slur_req_l->span_dir_ == STOP)
  81         {
  82           if (slur_l_stack_.empty())
  83
  84             slur_req_l->warning (_f ("Can't find both ends of %s", _("slur")));
  85           else
  86             {
  87               end_slur_l_arr_.push (slur_l_stack_.pop());
  88               requests_arr_.pop();
  89             }
  90         }
  91       else  if (slur_req_l->span_dir_ == START)
  92         {
  93           // push a new slur onto stack.
  94           //(use temp. array to wait for all slur STOPs)
  95           Slur * s_p =new Slur;
  96
  97           requests_arr_.push (slur_req_l);
  98           start_slur_l_arr_.push (s_p);
  99           announce_element (Score_element_info (s_p, slur_req_l));
 100         }
 101     }
 102   for (int i=0; i < start_slur_l_arr_.size(); i++)
 103     slur_l_stack_.push (start_slur_l_arr_[i]);
 104 }
 105
 106 void
 107 Slur_engraver::do_pre_move_processing()
 108 {
 109   for (int i = 0; i < end_slur_l_arr_.size(); i++)
 110     {
 111       typeset_element (end_slur_l_arr_[i]);
 112     }
 113   end_slur_l_arr_.clear();
 114 }
 115
 116 void
 117 Slur_engraver::do_post_move_processing()
 118 {
 119   new_slur_req_l_arr_.clear();
 120   SCM m = get_property ("automaticMelismata",0);
 121   if (to_boolean (m))
 122     {
 123       set_melisma (slur_l_stack_.size ());
 124     }
 125 }
 126