]> git.donarmstrong.com Git - lilypond.git/blob - lily/grace-iterator.cc
* VERSION (MY_PATCH_LEVEL): make 1.7.0
[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--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #include "grace-music.hh"
11 #include "grace-iterator.hh"
12
13
14 #include "global-translator.hh"
15 #include "warn.hh"
16
17 void
18 Grace_iterator::process (Moment m)
19 {
20   Moment main ;
21   main.main_part_ = - start_mom_.grace_part_ + m.grace_part_;
22   Music_wrapper_iterator::process (main);
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
37 IMPLEMENT_CTOR_CALLBACK (Grace_iterator);