lily/lyric-combine-music-iterator.cc

   1 /*
   2   lyric-combine-music-iterator.cc --  implement Lyric_combine_music_iterator
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "translator-group.hh"
  11 #include "lyric-combine-music.hh"
  12 #include "event.hh"
  13 #include "note-head.hh"
  14 #include "grob.hh"
  15 #include "music-iterator.hh"
  16
  17 class Lyric_combine_music_iterator : public Music_iterator
  18 {
  19 public:
  20   VIRTUAL_COPY_CONS (Music_iterator);
  21   Lyric_combine_music_iterator ();
  22   Lyric_combine_music_iterator (Lyric_combine_music_iterator const&src);
  23   DECLARE_SCHEME_CALLBACK(constructor, ());
  24 protected:
  25   virtual void construct_children ();
  26   virtual Moment pending_moment () const;
  27   virtual void do_quit();
  28   virtual void process (Moment);
  29   virtual Music_iterator *try_music_in_children (Music *) const;
  30
  31   virtual bool ok () const;
  32   virtual void derived_mark () const;
  33 private:
  34   bool get_busy_status ()const ;
  35   bool melisma_busy ();
  36
  37   Music_iterator * music_iter_;
  38   Music_iterator * lyric_iter_;
  39 };
  40
  41
  42
  43 /*
  44   Ugh, why static?
  45  */
  46 Music *busy_req;
  47 Music *melisma_playing_req;
  48
  49 Lyric_combine_music_iterator::Lyric_combine_music_iterator ()
  50 {
  51   music_iter_ =0;
  52   lyric_iter_ =0;
  53
  54   if (!busy_req)
  55     {
  56       busy_req
  57         = make_music_by_name (ly_symbol2scm ("BusyPlayingEvent"));
  58       melisma_playing_req
  59         = make_music_by_name (ly_symbol2scm ("MelismaPlayingEvent"));
  60     }
  61 }
  62
  63 Moment
  64 Lyric_combine_music_iterator::pending_moment () const
  65 {
  66   Moment musnext = music_iter_->pending_moment ();
  67   return musnext;
  68 }
  69
  70 bool
  71 Lyric_combine_music_iterator::ok () const
  72 {
  73   return music_iter_->ok ();
  74 }
  75
  76 void
  77 Lyric_combine_music_iterator::derived_mark()const
  78 {
  79   if (music_iter_)
  80     scm_gc_mark (music_iter_->self_scm());
  81   if (lyric_iter_)
  82     scm_gc_mark (lyric_iter_->self_scm());
  83 }
  84
  85 void
  86 Lyric_combine_music_iterator::construct_children ()
  87 {
  88   Lyric_combine_music const * m = dynamic_cast<Lyric_combine_music const*> (get_music ());
  89
  90   music_iter_ = unsmob_iterator (get_iterator (m->get_music ()));
  91   lyric_iter_ = unsmob_iterator (get_iterator (m->get_lyrics ()));
  92 }
  93
  94 bool
  95 Lyric_combine_music_iterator::get_busy_status () const
  96 {
  97   /*
  98     We have to use both the event and the busyGrobs queue.  The
  99     busyGrobs queue doesn't contain any notes that have started this
 100     instant.  */
 101   if (try_music (busy_req))
 102     return true;
 103
 104   Translator_group * tr = music_iter_->report_to ();
 105
 106   SCM grobs = tr->get_property ("busyGrobs");
 107   Moment now = tr->now_mom();
 108   for (; gh_pair_p (grobs); grobs = gh_cdr (grobs))
 109     {
 110       SCM grob = gh_cdar (grobs);
 111       Moment end  =*unsmob_moment (gh_caar (grobs));
 112
 113
 114       /*
 115         This is slightly ugh: we are now confunding the frontend
 116         (iterators) and the backend (note heads) */
 117       if (end > now
 118           && Note_head::has_interface (unsmob_grob (grob)))
 119         return true;
 120     }
 121
 122   return false;
 123 }
 124
 125
 126 bool
 127 Lyric_combine_music_iterator::melisma_busy ()
 128 {
 129   /*
 130     We can not read the property, since music_iter_->report_to() might
 131     not be the context that sets the melisma properties, but rather a
 132     parent context.
 133    */
 134   return music_iter_->try_music (melisma_playing_req);
 135 }
 136
 137 void
 138 Lyric_combine_music_iterator::process (Moment m)
 139 {
 140   Moment my_next = music_iter_->pending_moment ();
 141   if (my_next > m)
 142     return;
 143
 144   music_iter_->process (m);
 145
 146   if (get_busy_status () && !melisma_busy () && lyric_iter_->ok ())
 147     {
 148       Moment m= lyric_iter_->pending_moment ();
 149       lyric_iter_->process (m);
 150     }
 151 }
 152
 153 void
 154 Lyric_combine_music_iterator::do_quit ()
 155 {
 156   if (music_iter_)
 157     music_iter_->quit();
 158   if (lyric_iter_)
 159     lyric_iter_->quit();
 160
 161 }
 162 Lyric_combine_music_iterator::Lyric_combine_music_iterator (Lyric_combine_music_iterator const & src)
 163     : Music_iterator (src)
 164 {
 165   lyric_iter_ = 0;
 166   music_iter_ = 0;
 167
 168   if (src.lyric_iter_)
 169     lyric_iter_ =  src.lyric_iter_->clone ();
 170   if (src.music_iter_)
 171     music_iter_ =  src.music_iter_->clone ();
 172
 173   if (lyric_iter_)
 174     scm_gc_unprotect_object (lyric_iter_->self_scm());
 175   if (music_iter_)
 176     scm_gc_unprotect_object (music_iter_->self_scm());
 177 }
 178
 179 Music_iterator*
 180 Lyric_combine_music_iterator::try_music_in_children (Music *m) const
 181 {
 182   Music_iterator * i =  music_iter_->try_music (m);
 183   if (i)
 184     return i;
 185   else
 186     return lyric_iter_->try_music (m);
 187 }
 188
 189
 190 IMPLEMENT_CTOR_CALLBACK (Lyric_combine_music_iterator);