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   Musical_req *mus_l = dynamic_cast <Musical_req *> (req_l);
  18   if (Slur_req *sl = dynamic_cast <Slur_req *> (mus_l))
  19     {
  20       new_slur_req_l_arr_.push (dynamic_cast <Slur_req *> (mus_l));
  21       return true;
  22     }
  23   return false;
  24 }
  25
  26 void
  27 Slur_engraver::acknowledge_element (Score_element_info info)
  28 {
  29   if (dynamic_cast<Note_column *> (info.elem_l_))
  30     {
  31       Note_column *col_l =dynamic_cast<Note_column *> (info.elem_l_) ;// 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 void
  54 Slur_engraver::do_process_requests()
  55 {
  56   Array<Slur*> start_slur_l_arr_;
  57   for (int i=0; i< new_slur_req_l_arr_.size(); i++)
  58     {
  59       Slur_req* slur_req_l = new_slur_req_l_arr_[i];
  60       // end slur: move the slur to other array
  61       if (slur_req_l->spantype_ == STOP)
  62         {
  63           if (slur_l_stack_.empty())
  64
  65             slur_req_l->warning (_f ("can't find both ends of %s", _("slur")));
  66           else
  67             {
  68               end_slur_l_arr_.push (slur_l_stack_.pop());
  69               requests_arr_.pop();
  70             }
  71         }
  72       else  if (slur_req_l->spantype_ == START)
  73         {
  74           // push a new slur onto stack.
  75           //(use temp. array to wait for all slur STOPs)
  76           Slur * s_p =new Slur;
  77           Scalar prop = get_property ("slurdash", 0);
  78           if (prop.isnum_b ())
  79             s_p->dash_i_ = prop;
  80
  81           prop = get_property ("minVerticalAlign", 0);
  82           if (prop.isnum_b ())
  83             s_p->vertical_align_drul_[MIN] = prop;
  84
  85           prop = get_property ("maxVerticalAlign", 0);
  86           if (prop.isnum_b ())
  87             s_p->vertical_align_drul_[MAX] = prop;
  88
  89           requests_arr_.push (slur_req_l);
  90           start_slur_l_arr_.push (s_p);
  91           announce_element (Score_element_info (s_p, slur_req_l));
  92         }
  93     }
  94   for (int i=0; i < start_slur_l_arr_.size(); i++)
  95     slur_l_stack_.push (start_slur_l_arr_[i]);
  96 }
  97
  98 void
  99 Slur_engraver::do_pre_move_processing()
 100 {
 101   Scalar dir (get_property ("slurydirection", 0));
 102   Scalar dir2 (get_property ("ydirection", 0));
 103
 104   Direction slurdir = CENTER;
 105   if (dir.length_i () && dir.isnum_b ())
 106     slurdir = (Direction) sign (int(dir));
 107   else if (dir2.length_i () && dir2.isnum_b ())
 108     slurdir = (Direction) sign (int (dir2));
 109
 110   for (int i = 0; i < end_slur_l_arr_.size(); i++)
 111     {
 112       end_slur_l_arr_[i]->dir_ = slurdir;
 113       typeset_element (end_slur_l_arr_[i]);
 114     }
 115   end_slur_l_arr_.clear();
 116 }
 117
 118 void
 119 Slur_engraver::do_post_move_processing()
 120 {
 121   new_slur_req_l_arr_.clear();
 122 }
 123
 124
 125 ADD_THIS_TRANSLATOR(Slur_engraver);