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 {
  18   Link_array<Span_req> requests_arr_;
  19   Link_array<Span_req> new_slur_req_l_arr_;
  20   Link_array<Score_element> slur_l_stack_;
  21   Link_array<Score_element> end_slur_l_arr_;
  22   Moment last_start_;
  23
  24   void set_melisma (bool);
  25
  26 protected:
  27   virtual bool do_try_music (Music*);
  28   virtual void do_process_music ();
  29   virtual void acknowledge_element (Score_element_info);
  30   virtual void do_pre_move_processing ();
  31   virtual void do_post_move_processing ();
  32   virtual void do_removal_processing ();
  33
  34 public:
  35   VIRTUAL_COPY_CONS (Translator);
  36   Slur_engraver ();
  37 };
  38
  39 Slur_engraver::Slur_engraver ()
  40 {
  41   last_start_ = Moment (-1);
  42 }
  43
  44 bool
  45 Slur_engraver::do_try_music (Music *req_l)
  46 {
  47   if (Span_req *sl = dynamic_cast <Span_req *> (req_l))
  48     {
  49       String t =  ly_scm2string (sl->get_mus_property ("span-type"));
  50       if (t == "abort")
  51         {
  52           for (int i = 0; i < slur_l_stack_.size (); i++)
  53             {
  54               slur_l_stack_[i]->suicide ();
  55             }
  56           slur_l_stack_.clear ();
  57           for (int i = 0; i < end_slur_l_arr_.size (); i++)
  58             {
  59               end_slur_l_arr_[i]->suicide ();
  60             }
  61           end_slur_l_arr_.clear ();
  62           requests_arr_.clear ();
  63           new_slur_req_l_arr_.clear ();
  64         }
  65       else if (t == "slur")
  66         {
  67           /*
  68             Let's not start more than one slur per moment.
  69            */
  70           if (sl->get_span_dir() == START)
  71             {
  72               if (now_mom () > last_start_)
  73                 {
  74                   new_slur_req_l_arr_.push (sl);
  75                   last_start_ = now_mom ();
  76                   return true;
  77                 }
  78             }
  79           else
  80             {
  81               new_slur_req_l_arr_.push (sl);
  82               return true;
  83             }
  84         }
  85     }
  86   return false;
  87 }
  88
  89 void
  90 Slur_engraver::set_melisma (bool m)
  91 {
  92   daddy_trans_l_->set_property ("slurMelismaBusy", m ? SCM_BOOL_T :SCM_BOOL_F);
  93 }
  94
  95 void
  96 Slur_engraver::acknowledge_element (Score_element_info info)
  97 {
  98   if (Note_column::has_interface (info.elem_l_))
  99     {
 100       Score_element *e =info.elem_l_;
 101       for (int i = 0; i < slur_l_stack_.size (); i++)
 102         Slur::add_column (slur_l_stack_[i], e);
 103       for (int i = 0; i < end_slur_l_arr_.size (); i++)
 104         Slur::add_column (end_slur_l_arr_[i], e);
 105     }
 106 }
 107
 108 void
 109 Slur_engraver::do_removal_processing ()
 110 {
 111   for (int i = 0; i < slur_l_stack_.size (); i++)
 112     {
 113 #if 0
 114       typeset_element (slur_l_stack_[i]);
 115 #else
 116       /*
 117         Let's not typeset unterminated stuff
 118        */
 119       slur_l_stack_[i]->suicide ();
 120 #endif
 121     }
 122   slur_l_stack_.clear ();
 123   SCM wg = get_property ("weAreGraceContext");
 124   bool wgb = to_boolean (wg);
 125   if (!wgb)
 126     for (int i=0; i < requests_arr_.size (); i++)
 127       {
 128         requests_arr_[i]->origin ()->warning (_ ("unterminated slur"));
 129       }
 130 }
 131
 132 void
 133 Slur_engraver::do_process_music ()
 134 {
 135   Link_array<Score_element> start_slur_l_arr;
 136   for (int i=0; i< new_slur_req_l_arr_.size (); i++)
 137     {
 138       Span_req* slur_req_l = new_slur_req_l_arr_[i];
 139       // end slur: move the slur to other array
 140       if (slur_req_l->get_span_dir() == STOP)
 141         {
 142           if (slur_l_stack_.empty ())
 143             slur_req_l->origin ()->warning (_f ("can't find start of slur"));
 144           else
 145             {
 146               Score_element* slur = slur_l_stack_.pop ();
 147               SCM s = get_property ("slurEndAttachment");
 148               if (gh_symbol_p (s))
 149                 {
 150                   index_set_cell (slur->get_elt_property ("attachment"), STOP, s);
 151                 }
 152               end_slur_l_arr_.push (slur);
 153               requests_arr_.pop ();
 154             }
 155         }
 156       else  if (slur_req_l->get_span_dir() == START)
 157         {
 158           // push a new slur onto stack.
 159           // (use temp. array to wait for all slur STOPs)
 160           Score_element* slur = new Spanner (get_property ("Slur"));
 161           Slur::set_interface (slur);
 162           SCM s = get_property ("slurBeginAttachment");
 163           if (gh_symbol_p (s))
 164             {
 165               index_set_cell (slur->get_elt_property ("attachment"), START, s);
 166             }
 167           start_slur_l_arr.push (slur);
 168           requests_arr_.push (slur_req_l);
 169           announce_element (slur, slur_req_l);
 170         }
 171     }
 172   for (int i=0; i < start_slur_l_arr.size (); i++)
 173     slur_l_stack_.push (start_slur_l_arr[i]);
 174 }
 175
 176 void
 177 Slur_engraver::do_pre_move_processing ()
 178 {
 179   for (int i = 0; i < end_slur_l_arr_.size (); i++)
 180     {
 181       typeset_element (end_slur_l_arr_[i]);
 182     }
 183   end_slur_l_arr_.clear ();
 184 }
 185
 186 void
 187 Slur_engraver::do_post_move_processing ()
 188 {
 189   new_slur_req_l_arr_.clear ();
 190   SCM m = get_property ("automaticMelismata");
 191   if (to_boolean (m))
 192     {
 193       set_melisma (slur_l_stack_.size ());
 194     }
 195 }
 196
 197
 198 ADD_THIS_TRANSLATOR (Slur_engraver);