source file of the GNU LilyPond music typesetter
- (c) 1998--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1998--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
}
-Music_wrapper::Music_wrapper(SCM l)
- : Music (l)
+Music_wrapper::Music_wrapper ()
+ : Music ()
{
}
Moment
-Music_wrapper::length_mom () const
+Music_wrapper::get_length () const
{
- return element ()->length_mom ();
+ return element ()->get_length ();
}
Pitch
{
element ()->compress (m);
}
+
+ADD_MUSIC (Music_wrapper);
+
+
+Moment
+Music_wrapper::start_mom () const
+{
+ return element ()->start_mom ();
+}