]> git.donarmstrong.com Git - lilypond.git/blob - lily/grace-iterator.cc
Run `make grand-replace'.
[lilypond.git] / lily / grace-iterator.cc
1 /*
2   grace-music.cc -- implement Grace_music
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1999--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 */
8
9 #include "grace-iterator.hh"
10 #include "global-context.hh"
11 #include "warn.hh"
12
13 void
14 Grace_iterator::process (Moment m)
15 {
16   Moment main;
17   main.main_part_ = -start_mom_.grace_part_ + m.grace_part_;
18   Music_wrapper_iterator::process (main);
19
20   /* We can safely do this, since \grace should always be inside
21      sequential.  */
22   descend_to_child (child_iter_->get_outlet ());
23 }
24
25 Moment
26 Grace_iterator::pending_moment () const
27 {
28   Moment cp = Music_wrapper_iterator::pending_moment ();
29
30   Moment pending;
31   pending.grace_part_ = start_mom_.grace_part_ + cp.main_part_;
32
33   return pending;
34 }
35
36 IMPLEMENT_CTOR_CALLBACK (Grace_iterator);