]> git.donarmstrong.com Git - lilypond.git/blob - lily/chord-tremolo-iterator.cc
*** empty log message ***
[lilypond.git] / 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