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
  14 bool
  15 Slur_engraver::do_try_music (Music *req_l)
  16 {
  17   if (Slur_req *sl = dynamic_cast <Slur_req *> (req_l))
  18     {
  19       new_slur_req_l_arr_.push (sl);
  20       return true;
  21     }
  22   return false;
  23 }
  24
  25 void
  26 Slur_engraver::acknowledge_element (Score_element_info info)
  27 {
  28   if (dynamic_cast<Note_column *> (info.elem_l_))
  29     {
  30       Note_column *col_l =dynamic_cast<Note_column *> (info.elem_l_) ;// ugh
  31       for (int i = 0; i < slur_l_stack_.size(); i++)
  32         slur_l_stack_[i]->add_column (col_l);
  33       for (int i = 0; i < end_slur_l_arr_.size(); i++)
  34         end_slur_l_arr_[i]->add_column (col_l);
  35     }
  36 }
  37
  38 void
  39 Slur_engraver::do_removal_processing ()
  40 {
  41   for (int i = 0; i < slur_l_stack_.size(); i++)
  42     {
  43       typeset_element (slur_l_stack_[i]);
  44     }
  45   slur_l_stack_.clear ();
  46   for (int i=0; i < requests_arr_.size(); i++)
  47     {
  48       requests_arr_[i]->warning (_ ("unterminated slur"));
  49     }
  50 }
  51
  52 void
  53 Slur_engraver::do_process_requests()
  54 {
  55   Array<Slur*> start_slur_l_arr_;
  56   for (int i=0; i< new_slur_req_l_arr_.size(); i++)
  57     {
  58       Slur_req* slur_req_l = new_slur_req_l_arr_[i];
  59       // end slur: move the slur to other array
  60       if (slur_req_l->spantype_ == STOP)
  61         {
  62           if (slur_l_stack_.empty())
  63
  64             slur_req_l->warning (_f ("can't find both ends of %s", _("slur")));
  65           else
  66             {
  67               end_slur_l_arr_.push (slur_l_stack_.pop());
  68               requests_arr_.pop();
  69             }
  70         }
  71       else  if (slur_req_l->spantype_ == START)
  72         {
  73           // push a new slur onto stack.
  74           //(use temp. array to wait for all slur STOPs)
  75           Slur * s_p =new Slur;
  76           Scalar prop = get_property ("slurdash", 0);
  77           if (prop.isnum_b ())
  78             s_p->set_elt_property (dashed_scm_sym, gh_int2scm(prop));
  79
  80           requests_arr_.push (slur_req_l);
  81           start_slur_l_arr_.push (s_p);
  82           announce_element (Score_element_info (s_p, slur_req_l));
  83         }
  84     }
  85   for (int i=0; i < start_slur_l_arr_.size(); i++)
  86     slur_l_stack_.push (start_slur_l_arr_[i]);
  87 }
  88
  89 void
  90 Slur_engraver::do_pre_move_processing()
  91 {
  92   Scalar dir (get_property ("slurydirection", 0));
  93   Scalar dir2 (get_property ("ydirection", 0));
  94
  95   Direction slurdir = CENTER;
  96   if (dir.length_i () && dir.isnum_b ())
  97     slurdir = (Direction) sign (int(dir));
  98   else if (dir2.length_i () && dir2.isnum_b ())
  99     slurdir = (Direction) sign (int (dir2));
 100
 101   for (int i = 0; i < end_slur_l_arr_.size(); i++)
 102     {
 103       end_slur_l_arr_[i]->dir_ = slurdir;
 104       typeset_element (end_slur_l_arr_[i]);
 105     }
 106   end_slur_l_arr_.clear();
 107 }
 108
 109 void
 110 Slur_engraver::do_post_move_processing()
 111 {
 112   new_slur_req_l_arr_.clear();
 113 }
 114
 115
 116 ADD_THIS_TRANSLATOR(Slur_engraver);