2 grace-music.cc -- implement Grace_music
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "grace-music.hh"
11 #include "grace-iterator.hh"
14 Grace_music::compress (Moment m
)
16 Music_wrapper::compress (m
);
20 Grace_music::length_mom () const
28 Grace_music::start_mom () const
30 Moment l
= Music_wrapper::length_mom ();
32 gl
.grace_part_
= -(l
.main_part_
+ l
.grace_part_
);
36 Grace_music::Grace_music ()
38 set_mus_property ("iterator-ctor",
39 Grace_iterator::constructor_cxx_function
);
42 Grace_music::Grace_music (SCM p
)
45 set_mus_property ("iterator-ctor",
46 Grace_iterator::constructor_cxx_function
);
49 ADD_MUSIC (Grace_music
);