source file of the GNU LilyPond music typesetter
- (c) 1998--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1998--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
-void
-Music_wrapper::transpose (Pitch p)
-{
- if (element ())
- element ()-> transpose (p);
-}
-
-
-Music_wrapper::Music_wrapper (SCM l)
- : Music (l)
+Music_wrapper::Music_wrapper ()
+ : Music ()
{
}
Moment
-Music_wrapper::length_mom () const
-{
- return element ()->length_mom ();
-}
-
-Pitch
-Music_wrapper::to_relative_octave (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)
-{
- element ()->compress (m);
-}
ADD_MUSIC (Music_wrapper);
-Music_wrapper::Music_wrapper ()
- : Music (SCM_EOL)
-{
-
-}
Moment
Music_wrapper::start_mom () const