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