lily/slur-engraver.cc

   1 /*
   2   slur-engraver.cc -- implement Slur_engraver
   3
   4   (c)  1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   5 */
   6
   7 #include "musical-request.hh"
   8 #include "slur.hh"
   9 #include "warn.hh"
  10 #include "note-column.hh"
  11 #include "translator-group.hh"
  12 #include "engraver.hh"
  13 #include "spanner.hh"
  14
  15 class Slur_engraver : public Engraver
  16 {
  17   Link_array<Span_req> requests_arr_;
  18   Link_array<Span_req> new_slur_req_l_arr_;
  19   Link_array<Grob> slur_l_stack_;
  20   Link_array<Grob> end_slur_l_arr_;
  21   Moment last_start_;
  22
  23   void set_melisma (bool);
  24
  25 protected:
  26   virtual bool try_music (Music*);
  27   virtual void acknowledge_grob (Grob_info);
  28   virtual void stop_translation_timestep ();
  29   virtual void start_translation_timestep ();
  30   virtual void finalize ();
  31   virtual void process_acknowledged_grobs ();
  32
  33 public:
  34   TRANSLATOR_DECLARATIONS (Slur_engraver);
  35 };
  36
  37 Slur_engraver::Slur_engraver ()
  38 {
  39   last_start_ = Moment (-1);
  40 }
  41
  42 bool
  43 Slur_engraver::try_music (Music *req_l)
  44 {
  45   if (Span_req *sl = dynamic_cast <Span_req *> (req_l))
  46     {
  47       String t =  ly_scm2string (sl->get_mus_property ("span-type"));
  48       if (t == "abort")
  49         {
  50           for (int i = 0; i < slur_l_stack_.size (); i++)
  51             {
  52               slur_l_stack_[i]->suicide ();
  53             }
  54           slur_l_stack_.clear ();
  55           for (int i = 0; i < end_slur_l_arr_.size (); i++)
  56             {
  57               end_slur_l_arr_[i]->suicide ();
  58             }
  59           end_slur_l_arr_.clear ();
  60           requests_arr_.clear ();
  61           new_slur_req_l_arr_.clear ();
  62         }
  63       else if (t == "slur")
  64         {
  65           /*
  66             Let's not start more than one slur per moment.
  67            */
  68           if (sl->get_span_dir () == START)
  69             {
  70               if (now_mom () > last_start_)
  71                 {
  72                   new_slur_req_l_arr_.push (sl);
  73                   last_start_ = now_mom ();
  74                   return true;
  75                 }
  76             }
  77           else
  78             {
  79               new_slur_req_l_arr_.push (sl);
  80               return true;
  81             }
  82         }
  83     }
  84   return false;
  85 }
  86
  87 void
  88 Slur_engraver::set_melisma (bool m)
  89 {
  90   daddy_trans_l_->set_property ("slurMelismaBusy", m ? SCM_BOOL_T :SCM_BOOL_F);
  91 }
  92
  93 void
  94 Slur_engraver::acknowledge_grob (Grob_info info)
  95 {
  96   if (Note_column::has_interface (info.grob_l_))
  97     {
  98       Grob *e =info.grob_l_;
  99       for (int i = 0; i < slur_l_stack_.size (); i++)
 100         Slur::add_column (slur_l_stack_[i], e);
 101       for (int i = 0; i < end_slur_l_arr_.size (); i++)
 102         Slur::add_column (end_slur_l_arr_[i], e);
 103     }
 104 }
 105
 106 void
 107 Slur_engraver::finalize ()
 108 {
 109   for (int i = 0; i < slur_l_stack_.size (); i++)
 110     {
 111 #if 0
 112       typeset_grob (slur_l_stack_[i]);
 113 #else
 114       /*
 115         Let's not typeset unterminated stuff
 116        */
 117       slur_l_stack_[i]->suicide ();
 118 #endif
 119     }
 120   slur_l_stack_.clear ();
 121
 122   for (int i=0; i < requests_arr_.size (); i++)
 123       {
 124         requests_arr_[i]->origin ()->warning (_ ("unterminated slur"));
 125       }
 126 }
 127
 128 void
 129 Slur_engraver::process_acknowledged_grobs ()
 130 {
 131   Link_array<Grob> start_slur_l_arr;
 132   for (int i=0; i< new_slur_req_l_arr_.size (); i++)
 133     {
 134       Span_req* slur_req_l = new_slur_req_l_arr_[i];
 135       // end slur: move the slur to other array
 136       if (slur_req_l->get_span_dir () == STOP)
 137         {
 138           if (slur_l_stack_.empty ())
 139             /* How to shut up this warning, when Voice_devnull_engraver has
 140                eaten start request? */
 141             slur_req_l->origin ()->warning (_f ("can't find start of slur"));
 142           else
 143             {
 144               Grob* slur = slur_l_stack_.pop ();
 145
 146               end_slur_l_arr_.push (slur);
 147               requests_arr_.pop ();
 148             }
 149         }
 150       else  if (slur_req_l->get_span_dir () == START)
 151         {
 152           // push a new slur onto stack.
 153           // (use temp. array to wait for all slur STOPs)
 154           Grob* slur = new Spanner (get_property ("Slur"));
 155           Slur::set_interface (slur); // cannot remove yet!
 156           start_slur_l_arr.push (slur);
 157           requests_arr_.push (slur_req_l);
 158           announce_grob (slur, slur_req_l->self_scm ());
 159         }
 160     }
 161   for (int i=0; i < start_slur_l_arr.size (); i++)
 162     slur_l_stack_.push (start_slur_l_arr[i]);
 163   new_slur_req_l_arr_.clear ();
 164 }
 165
 166 void
 167 Slur_engraver::stop_translation_timestep ()
 168 {
 169   for (int i = 0; i < end_slur_l_arr_.size (); i++)
 170     {
 171       typeset_grob (end_slur_l_arr_[i]);
 172     }
 173   end_slur_l_arr_.clear ();
 174 }
 175
 176 void
 177 Slur_engraver::start_translation_timestep ()
 178 {
 179   new_slur_req_l_arr_.clear ();
 180   SCM m = get_property ("automaticMelismata");
 181   if (to_boolean (m))
 182     {
 183       set_melisma (slur_l_stack_.size ());
 184     }
 185 }
 186
 187
 188
 189 ENTER_DESCRIPTION (Slur_engraver,
 190 /* descr */       "Build slurs from Slur_reqs",
 191 /* creats*/       "Slur",
 192 /* acks  */       "note-column-interface",
 193 /* reads */       "slurMelismaBusy",
 194 /* write */       "");