]> git.donarmstrong.com Git - lilypond.git/blob - lily/time-scaled-music-iterator.cc
* scm/define-music-properties.scm (all-music-properties): add
[lilypond.git] / lily / time-scaled-music-iterator.cc
1 /*   
2   time-scaled-music-iterator.cc -- implement Time_scaled_music_iterator
3   
4   source file of the GNU LilyPond music typesetter
5   
6   (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #include "time-scaled-music-iterator.hh"
11 #include "time-scaled-music.hh"
12 #include "event.hh"
13 #include "context.hh"
14
15 void
16 Time_scaled_music_iterator::process (Moment m)
17 {
18   if (!m.to_bool ())
19     {
20       Music_iterator *yeah = try_music (get_music ());
21       if (yeah)
22         set_context (yeah->get_outlet ());
23       else
24         get_music ()->origin ()->warning (_ ("no one to print a tuplet start bracket"));
25     }
26
27   Music_wrapper_iterator::process (m);
28 }
29  
30 IMPLEMENT_CTOR_CALLBACK (Time_scaled_music_iterator);