lily/slur-engraver.cc

   1 /*
   2   slur-engraver.cc -- implement Slur_engraver
   3
   4   (c)  1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   5 */
   6
   7 #include "event.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 /*
  16   TODO: junk nested slur functionality.
  17  */
  18 class Slur_engraver : public Engraver
  19 {
  20   Link_array<Music> events_;
  21   Link_array<Music> new_slur_evs_;
  22   Link_array<Grob> slur_stack_;
  23   Link_array<Grob> end_slurs_;
  24   Moment last_start_;
  25
  26   void set_melisma (bool);
  27
  28 protected:
  29   virtual bool try_music (Music*);
  30   virtual void acknowledge_grob (Grob_info);
  31   virtual void stop_translation_timestep ();
  32   virtual void finalize ();
  33   virtual void process_music ();
  34
  35 public:
  36   TRANSLATOR_DECLARATIONS (Slur_engraver);
  37 };
  38
  39 Slur_engraver::Slur_engraver ()
  40 {
  41   last_start_ = Moment (-1);
  42 }
  43
  44 bool
  45 Slur_engraver::try_music (Music *ev)
  46 {
  47   if (ev->is_mus_type ("slur-event"))
  48     {
  49       /*
  50         Let's not start more than one slur per moment.
  51       */
  52       Direction d = to_dir (ev->get_mus_property ("span-direction"));
  53       if (d == START)
  54         {
  55           if (now_mom () > last_start_)
  56             {
  57               new_slur_evs_.push (ev);
  58               last_start_ = now_mom ();
  59             }
  60
  61           /*
  62             But we swallow other slur events.
  63           */
  64
  65           return true;
  66         }
  67       else if (d == STOP)
  68         {
  69           /*
  70             Swallow other events.
  71           */
  72           for (int j = new_slur_evs_.size(); j--;)
  73             {
  74               Direction nd = to_dir (new_slur_evs_[j]->get_mus_property ("span-direction"));
  75
  76               if (nd == STOP)
  77                 return true;
  78             }
  79
  80           new_slur_evs_.push (ev);
  81           return true;
  82         }
  83     }
  84   return false;
  85 }
  86
  87 void
  88 Slur_engraver::set_melisma (bool m)
  89 {
  90   daddy_trans_->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_))
  97     {
  98       Grob *e =info.grob_;
  99       for (int i = 0; i < slur_stack_.size (); i++)
 100         Slur::add_column (slur_stack_[i], e);
 101       for (int i = 0; i < end_slurs_.size (); i++)
 102         Slur::add_column (end_slurs_[i], e);
 103     }
 104 }
 105
 106 void
 107 Slur_engraver::finalize ()
 108 {
 109   for (int i = 0; i < slur_stack_.size (); i++)
 110     {
 111       /*
 112         Let's not typeset unterminated stuff
 113        */
 114       slur_stack_[i]->suicide ();
 115     }
 116   slur_stack_.clear ();
 117
 118   for (int i=0; i < events_.size (); i++)
 119       {
 120         events_[i]->origin ()->warning (_ ("unterminated slur"));
 121       }
 122 }
 123
 124 void
 125 Slur_engraver::process_music ()
 126 {
 127   Link_array<Grob> start_slurs;
 128   for (int i=0; i< new_slur_evs_.size (); i++)
 129     {
 130       Music* slur_ev = new_slur_evs_[i];
 131       // end slur: move the slur to other array
 132       Direction d = to_dir (slur_ev->get_mus_property ("span-direction"));
 133       if (d== STOP)
 134         {
 135           if (slur_stack_.empty ())
 136             /* How to shut up this warning, when Voice_devnull_engraver has
 137                eaten start event? */
 138             slur_ev->origin ()->warning (_f ("can't find start of slur"));
 139           else
 140             {
 141               Grob* slur = slur_stack_.pop ();
 142
 143               end_slurs_.push (slur);
 144               events_.pop ();
 145             }
 146         }
 147       else  if (d == START)
 148         {
 149           // push a new slur onto stack.
 150           // (use temp. array to wait for all slur STOPs)
 151           Grob* slur = make_spanner ("Slur");
 152           Slur::set_interface (slur); // cannot remove yet!
 153
 154
 155           if (Direction updown = to_dir (slur_ev->get_mus_property ("direction")))
 156             {
 157               slur->set_grob_property ("direction", gh_int2scm (updown));
 158             }
 159
 160           start_slurs.push (slur);
 161           events_.push (slur_ev);
 162           announce_grob (slur, slur_ev->self_scm ());
 163         }
 164     }
 165
 166   slur_stack_.concat  (start_slurs);
 167
 168   set_melisma (slur_stack_.size ());
 169
 170   new_slur_evs_.clear ();
 171 }
 172
 173 void
 174 Slur_engraver::stop_translation_timestep ()
 175 {
 176   for (int i = 0; i < end_slurs_.size (); i++)
 177     {
 178       typeset_grob (end_slurs_[i]);
 179     }
 180   end_slurs_.clear ();
 181   new_slur_evs_.clear ();
 182 }
 183
 184
 185
 186 ENTER_DESCRIPTION (Slur_engraver,
 187 /* descr */       "Build slurs from Slur_evs",
 188 /* creats*/       "Slur",
 189 /* accepts */     "slur-event",
 190 /* acks  */      "note-column-interface",
 191 /* reads */       "slurMelismaBusy",
 192 /* write */       "");