lily/slur-engraver.cc

   1 /*
   2   slur-grav.cc -- implement Slur_engraver
   3
   4   (c)  1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   5 */
   6
   7 #include "proto.hh"
   8 #include "plist.hh"
   9 #include "musical-request.hh"
  10 #include "slur-engraver.hh"
  11 #include "slur.hh"
  12 #include "debug.hh"
  13 #include "note-column.hh"
  14
  15 bool
  16 Slur_engraver::do_try_request (Request *req_l)
  17 {
  18   Musical_req *mus_l = req_l->access_Musical_req ();
  19   if (!mus_l || !mus_l->access_Slur_req ())
  20     return false;
  21
  22   new_slur_req_l_arr_.push (mus_l->access_Slur_req ());
  23   return true;
  24 }
  25
  26 void
  27 Slur_engraver::acknowledge_element (Score_element_info info)
  28 {
  29   if (info.elem_l_->is_type_b (Note_column::static_name ()))
  30     {
  31       Note_column *col_l =(Note_column*) info.elem_l_->access_Item() ;// ugh
  32       for (int i = 0; i < slur_l_stack_.size(); i++)
  33         slur_l_stack_[i]->add_column (col_l);
  34       for (int i = 0; i < end_slur_l_arr_.size(); i++)
  35         end_slur_l_arr_[i]->add_column (col_l);
  36     }
  37 }
  38
  39 void
  40 Slur_engraver::do_removal_processing ()
  41 {
  42   for (int i = 0; i < slur_l_stack_.size(); i++)
  43     {
  44       typeset_element (slur_l_stack_[i]);
  45     }
  46   slur_l_stack_.clear ();
  47   for (int i=0; i < requests_arr_.size(); i++)
  48     {
  49       requests_arr_[i]->warning (_ ("unterminated slur"));
  50     }
  51 }
  52
  53 /*
  54   abracadabra
  55   */
  56 Slur_engraver::Slur_engraver()
  57 {
  58   dir_ =CENTER;
  59 }
  60 void
  61 Slur_engraver::do_process_requests()
  62 {
  63   Array<Slur*> start_slur_l_arr_;
  64   for (int i=0; i< new_slur_req_l_arr_.size(); i++)
  65     {
  66       Slur_req* slur_req_l = new_slur_req_l_arr_[i];
  67       // end slur: move the slur to other array
  68       if (slur_req_l->spantype == Span_req::STOP)
  69         {
  70           if (slur_l_stack_.empty())
  71
  72             slur_req_l->warning (_f ("can't find both ends of %s", _("slur")));
  73           else
  74             {
  75               end_slur_l_arr_.push (slur_l_stack_.pop());
  76               requests_arr_.pop();
  77             }
  78         }
  79       else  if (slur_req_l->spantype == Span_req::START)
  80         {
  81           // push a new slur onto stack.
  82           //(use temp. array to wait for all slur STOPs)
  83           Slur * s_p =new Slur;
  84           Scalar prop = get_property ("slurdash");
  85           if (prop.isnum_b ())
  86             s_p->dash_i_ = prop;
  87           requests_arr_.push (slur_req_l);
  88           start_slur_l_arr_.push (s_p);
  89           announce_element (Score_element_info (s_p, slur_req_l));
  90         }
  91     }
  92   for (int i=0; i < start_slur_l_arr_.size(); i++)
  93     slur_l_stack_.push (start_slur_l_arr_[i]);
  94 }
  95
  96 void
  97 Slur_engraver::do_pre_move_processing()
  98 {
  99   Scalar dir (get_property ("slurydirection"));
 100   Scalar dir2 (get_property ("ydirection"));
 101   if (dir.length_i ())
 102     {
 103       dir_ = (Direction) sign (int(dir));
 104     }
 105   else if (dir2.length_i ())
 106     dir_ = (Direction) sign (int (dir2));
 107
 108   for (int i = 0; i < end_slur_l_arr_.size(); i++)
 109     {
 110       if (dir_)
 111         end_slur_l_arr_[i]->dir_ = dir_;
 112       typeset_element (end_slur_l_arr_[i]);
 113     }
 114   end_slur_l_arr_.clear();
 115 }
 116
 117 void
 118 Slur_engraver::do_post_move_processing()
 119 {
 120   new_slur_req_l_arr_.clear();
 121 }
 122
 123 IMPLEMENT_IS_TYPE_B1(Slur_engraver,Engraver);
 124 ADD_THIS_TRANSLATOR(Slur_engraver);