lily/slur-engraver.cc

   1 /*
   2   slur-engraver.cc -- implement Slur_engraver
   3
   4   (c)  1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   5 */
   6
   7 #include "musical-request.hh"
   8 #include "slur.hh"
   9 #include "debug.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 create_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::create_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               SCM s = get_property ("slurEndAttachment");
 146               if (gh_symbol_p (s))
 147                 {
 148                   index_set_cell (slur->get_grob_property ("attachment"), STOP, s);
 149                 }
 150               end_slur_l_arr_.push (slur);
 151               requests_arr_.pop ();
 152             }
 153         }
 154       else  if (slur_req_l->get_span_dir () == START)
 155         {
 156           // push a new slur onto stack.
 157           // (use temp. array to wait for all slur STOPs)
 158           Grob* slur = new Spanner (get_property ("Slur"));
 159           Slur::set_interface (slur);
 160           SCM s = get_property ("slurBeginAttachment");
 161           if (gh_symbol_p (s))
 162             {
 163               index_set_cell (slur->get_grob_property ("attachment"), START, s);
 164             }
 165           start_slur_l_arr.push (slur);
 166           requests_arr_.push (slur_req_l);
 167           announce_grob (slur, slur_req_l);
 168         }
 169     }
 170   for (int i=0; i < start_slur_l_arr.size (); i++)
 171     slur_l_stack_.push (start_slur_l_arr[i]);
 172   new_slur_req_l_arr_.clear ();
 173 }
 174
 175 void
 176 Slur_engraver::stop_translation_timestep ()
 177 {
 178   for (int i = 0; i < end_slur_l_arr_.size (); i++)
 179     {
 180       typeset_grob (end_slur_l_arr_[i]);
 181     }
 182   end_slur_l_arr_.clear ();
 183 }
 184
 185 void
 186 Slur_engraver::start_translation_timestep ()
 187 {
 188   new_slur_req_l_arr_.clear ();
 189   SCM m = get_property ("automaticMelismata");
 190   if (to_boolean (m))
 191     {
 192       set_melisma (slur_l_stack_.size ());
 193     }
 194 }
 195
 196
 197
 198 ENTER_DESCRIPTION(Slur_engraver,
 199 /* descr */       "Build slurs from Slur_reqs",
 200 /* creats*/       "Slur",
 201 /* acks  */       "note-column-interface",
 202 /* reads */       "slurBeginAttachment slurEndAttachment slurMelismaBusy",
 203 /* write */       "");