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--2004 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 "input.hh"
  17 #include "chord-tremolo-iterator.hh"
  18 #include "repeated-music.hh"
  19
  20 void
  21 Chord_tremolo_iterator::construct_children ()
  22 {
  23   Repeated_music * rep = dynamic_cast<Repeated_music*> (get_music ());
  24   factor_  = Moment (Rational (1, 1));
  25   child_iter_ = unsmob_iterator (get_iterator (rep->body ()));
  26 }
  27
  28 Chord_tremolo_iterator::Chord_tremolo_iterator ()
  29 {
  30   factor_ = 1;
  31   child_iter_ = 0;
  32 }
  33
  34 void
  35 Chord_tremolo_iterator::do_quit ()
  36 {
  37   if (child_iter_)
  38     child_iter_->quit ();
  39 }
  40
  41 void
  42 Chord_tremolo_iterator::derived_mark () const
  43 {
  44   if (child_iter_)
  45     scm_gc_mark (child_iter_->self_scm ());
  46 }
  47
  48 void
  49 Chord_tremolo_iterator::derived_substitute (Context *f, Context *t)
  50 {
  51   if (child_iter_)
  52     child_iter_->substitute_outlet (f,t);
  53 }
  54
  55 void
  56 Chord_tremolo_iterator::process (Moment m)
  57 {
  58   if (!m.to_bool () )
  59     {
  60       Music_iterator *yeah = try_music (get_music ());
  61       if (yeah)
  62         set_translator (yeah->get_outlet ());
  63       else
  64         get_music ()->origin ()->warning (_ ("no one to print a tremolos"));
  65     }
  66
  67   child_iter_->process (factor_ * m);
  68 }
  69
  70 Moment
  71 Chord_tremolo_iterator::pending_moment () const
  72 {
  73   return child_iter_->pending_moment () / factor_;
  74 }
  75
  76 bool
  77 Chord_tremolo_iterator::ok () const
  78 {
  79   return child_iter_ && child_iter_->ok ();
  80 }
  81
  82 Music_iterator*
  83 Chord_tremolo_iterator::try_music_in_children (Music  *m) const
  84 {
  85   return child_iter_->try_music (m);
  86 }
  87
  88 IMPLEMENT_CTOR_CALLBACK (Chord_tremolo_iterator);
  89