lily/chord-tremolo-iterator.cc

   1 /*
   2   chord-tremolo-iterator.cc --  implement Chord_tremolo_iterator
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2000--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10
  11 /*
  12   this is culled from various other iterators, but sharing code by
  13   subclassing proved to be too difficult.
  14  */
  15
  16 #include "chord-tremolo-iterator.hh"
  17
  18 #include "input.hh"
  19 #include "repeated-music.hh"
  20
  21 void
  22 Chord_tremolo_iterator::construct_children ()
  23 {
  24   Music *m = get_music();
  25
  26   factor_  = Moment (Rational (1, 1));
  27   child_iter_ = unsmob_iterator (get_iterator (Repeated_music::body (m)));
  28 }
  29
  30 Chord_tremolo_iterator::Chord_tremolo_iterator ()
  31 {
  32   factor_ = 1;
  33   child_iter_ = 0;
  34 }
  35
  36 void
  37 Chord_tremolo_iterator::do_quit ()
  38 {
  39   if (child_iter_)
  40     child_iter_->quit ();
  41 }
  42
  43 void
  44 Chord_tremolo_iterator::derived_mark () const
  45 {
  46   if (child_iter_)
  47     scm_gc_mark (child_iter_->self_scm ());
  48 }
  49
  50 void
  51 Chord_tremolo_iterator::derived_substitute (Context *f, Context *t)
  52 {
  53   if (child_iter_)
  54     child_iter_->substitute_outlet (f,t);
  55 }
  56
  57 void
  58 Chord_tremolo_iterator::process (Moment m)
  59 {
  60   if (!m.to_bool () )
  61     {
  62       Music_iterator *yeah = try_music (get_music ());
  63       if (yeah)
  64         set_context (yeah->get_outlet ());
  65       else
  66         get_music ()->origin ()->warning (_ ("no one to print a tremolos"));
  67     }
  68
  69   child_iter_->process (factor_ * m);
  70 }
  71
  72 Moment
  73 Chord_tremolo_iterator::pending_moment () const
  74 {
  75   return child_iter_->pending_moment () / factor_;
  76 }
  77
  78 bool
  79 Chord_tremolo_iterator::ok () const
  80 {
  81   return child_iter_ && child_iter_->ok ();
  82 }
  83
  84 Music_iterator*
  85 Chord_tremolo_iterator::try_music_in_children (Music  *m) const
  86 {
  87   return child_iter_->try_music (m);
  88 }
  89
  90 IMPLEMENT_CTOR_CALLBACK (Chord_tremolo_iterator);
  91