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