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 #if 0
  75       typeset_element (slur_l_stack_[i]);
  76 #else
  77       /*
  78         Let's not typeset unterminated stuff
  79        */
  80       slur_l_stack_[i]->suicide ();
  81 #endif
  82     }
  83   slur_l_stack_.clear ();
  84   SCM wg = get_property ("weAreGraceContext");
  85   bool wgb = to_boolean (wg);
  86   if (!wgb)
  87     for (int i=0; i < requests_arr_.size (); i++)
  88       {
  89         requests_arr_[i]->origin ()->warning (_ ("unterminated slur"));
  90       }
  91 }
  92
  93 void
  94 Slur_engraver::do_process_music ()
  95 {
  96   Link_array<Score_element> start_slur_l_arr_;
  97   for (int i=0; i< new_slur_req_l_arr_.size (); i++)
  98     {
  99       Span_req* slur_req_l = new_slur_req_l_arr_[i];
 100       // end slur: move the slur to other array
 101       if (slur_req_l->span_dir_ == STOP)
 102         {
 103           if (slur_l_stack_.empty ())
 104             slur_req_l->origin ()->warning (_f ("can't find start of slur"));
 105           else
 106             {
 107               Score_element* slur = slur_l_stack_.pop ();
 108               SCM s = get_property ("slurEndAttachment");
 109               if (gh_symbol_p (s))
 110                 {
 111                   index_set_cell (slur->get_elt_property ("attachment"), STOP, s);
 112                 }
 113               end_slur_l_arr_.push (slur);
 114               requests_arr_.pop ();
 115             }
 116         }
 117       else  if (slur_req_l->span_dir_ == START)
 118         {
 119           // push a new slur onto stack.
 120           // (use temp. array to wait for all slur STOPs)
 121           Score_element* slur = new Spanner (get_property ("basicSlurProperties"));
 122           Slur::set_interface (slur);
 123           SCM s = get_property ("slurBeginAttachment");
 124           if (gh_symbol_p (s))
 125             {
 126               index_set_cell (slur->get_elt_property ("attachment"), START, s);
 127             }
 128           start_slur_l_arr_.push (slur);
 129           requests_arr_.push (slur_req_l);
 130           announce_element (slur, slur_req_l);
 131         }
 132     }
 133   for (int i=0; i < start_slur_l_arr_.size (); i++)
 134     slur_l_stack_.push (start_slur_l_arr_[i]);
 135 }
 136
 137 void
 138 Slur_engraver::do_pre_move_processing ()
 139 {
 140   for (int i = 0; i < end_slur_l_arr_.size (); i++)
 141     {
 142       typeset_element (end_slur_l_arr_[i]);
 143     }
 144   end_slur_l_arr_.clear ();
 145 }
 146
 147 void
 148 Slur_engraver::do_post_move_processing ()
 149 {
 150   new_slur_req_l_arr_.clear ();
 151   SCM m = get_property ("automaticMelismata");
 152   if (to_boolean (m))
 153     {
 154       set_melisma (slur_l_stack_.size ());
 155     }
 156 }
 157
 158
 159 ADD_THIS_TRANSLATOR (Slur_engraver);