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