source file of the GNU LilyPond music typesetter
- (c) 1998--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1998--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
-void
-Music_wrapper::transpose (Musical_pitch p)
+Music_wrapper::Music_wrapper ()
+ : Music ()
{
- if (element ())
- element ()-> transpose (p);
-}
-
-
-Music_wrapper::Music_wrapper(Music*p)
-{
- set_mus_property ("element", p->self_scm ());
- scm_unprotect_object (p->self_scm ());
}
Moment
-Music_wrapper::length_mom () const
-{
- return element ()->length_mom ();
-}
-
-Musical_pitch
-Music_wrapper::to_relative_octave (Musical_pitch p)
+Music_wrapper::get_length () const
{
- return element ()->to_relative_octave (p);
+ return element ()->get_length ();
}
-
Music*
Music_wrapper::element () const
{
return unsmob_music (get_mus_property ("element"));
}
-void
-Music_wrapper::compress (Moment m)
+
+ADD_MUSIC (Music_wrapper);
+
+
+Moment
+Music_wrapper::start_mom () const
{
- element ()->compress (m);
+ return element ()->start_mom ();
}