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--2002 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 Chord_tremolo_iterator::Chord_tremolo_iterator (Chord_tremolo_iterator const &src)
  35   : Music_iterator (src)
  36 {
  37   factor_ = src.factor_;
  38   child_iter_ = 0;
  39   if (src.child_iter_)
  40     {
  41       child_iter_ = src.child_iter_->clone ();
  42       scm_gc_unprotect_object (child_iter_->self_scm());
  43     }
  44 }
  45
  46 void
  47 Chord_tremolo_iterator::do_quit()
  48 {
  49   if (child_iter_)
  50     child_iter_->quit();
  51 }
  52
  53 void
  54 Chord_tremolo_iterator::derived_mark () const
  55 {
  56   if (child_iter_)
  57     scm_gc_mark (child_iter_->self_scm());
  58 }
  59
  60 void
  61 Chord_tremolo_iterator::process (Moment m)
  62 {
  63   if (!m.to_bool () )
  64     {
  65       Music_iterator *yeah = try_music (get_music ());
  66       if (yeah)
  67         set_translator (yeah->report_to ());
  68       else
  69         get_music ()->origin ()->warning (_ ("no one to print a tremolos"));
  70     }
  71
  72   child_iter_->process (factor_ * m);
  73 }
  74
  75 Moment
  76 Chord_tremolo_iterator::pending_moment () const
  77 {
  78   return child_iter_->pending_moment () / factor_;
  79 }
  80
  81 bool
  82 Chord_tremolo_iterator::ok () const
  83 {
  84   return child_iter_ && child_iter_->ok ();
  85 }
  86
  87 Music_iterator*
  88 Chord_tremolo_iterator::try_music_in_children (Music  *m) const
  89 {
  90   return child_iter_->try_music (m);
  91 }
  92
  93 IMPLEMENT_CTOR_CALLBACK (Chord_tremolo_iterator);
  94