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