lily/phrasing-slur-engraver.cc

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