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 "musical-request.hh"
   8 #include "slur-engraver.hh"
   9 #include "slur.hh"
  10 #include "debug.hh"
  11 #include "note-column.hh"
  12 #include "translator-group.hh"
  13 #include "engraver.hh"
  14 #include "spanner.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<Score_element> slur_l_stack_;
  20   Link_array<Score_element> 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 (Note_column::has_interface (info.elem_l_))
  60     {
  61       Score_element *e =info.elem_l_;
  62       for (int i = 0; i < slur_l_stack_.size (); i++)
  63         Slur::add_column (slur_l_stack_[i], e);
  64       for (int i = 0; i < end_slur_l_arr_.size (); i++)
  65         Slur::add_column (end_slur_l_arr_[i], e);
  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   Link_array<Score_element> 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               Score_element* slur = slur_l_stack_.pop ();
 102               SCM s = get_property ("slurEndAttachment");
 103               if (gh_symbol_p (s))
 104                 {
 105                   index_set_cell (slur->get_elt_property ("attachment"), STOP, s);
 106                 }
 107               end_slur_l_arr_.push (slur);
 108               requests_arr_.pop ();
 109             }
 110         }
 111       else  if (slur_req_l->span_dir_ == START)
 112         {
 113           // push a new slur onto stack.
 114           // (use temp. array to wait for all slur STOPs)
 115           Score_element* slur = new Spanner (get_property ("basicSlurProperties"));
 116           Slur::set_interface (slur);
 117           SCM s = get_property ("slurBeginAttachment");
 118           if (gh_symbol_p (s))
 119             {
 120               index_set_cell (slur->get_elt_property ("attachment"), START, s);
 121             }
 122           start_slur_l_arr_.push (slur);
 123           requests_arr_.push (slur_req_l);
 124           announce_element (Score_element_info (slur, slur_req_l));
 125         }
 126     }
 127   for (int i=0; i < start_slur_l_arr_.size (); i++)
 128     slur_l_stack_.push (start_slur_l_arr_[i]);
 129 }
 130
 131 void
 132 Slur_engraver::do_pre_move_processing ()
 133 {
 134   for (int i = 0; i < end_slur_l_arr_.size (); i++)
 135     {
 136       typeset_element (end_slur_l_arr_[i]);
 137     }
 138   end_slur_l_arr_.clear ();
 139 }
 140
 141 void
 142 Slur_engraver::do_post_move_processing ()
 143 {
 144   new_slur_req_l_arr_.clear ();
 145   SCM m = get_property ("automaticMelismata");
 146   if (to_boolean (m))
 147     {
 148       set_melisma (slur_l_stack_.size ());
 149     }
 150 }
 151
 152
 153 ADD_THIS_TRANSLATOR (Slur_engraver);