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>
*/
#include "music-wrapper.hh"
-void
-Music_wrapper::do_print () const
-{
- element ()->print ();
-}
+
void
-Music_wrapper::transpose (Musical_pitch p)
+Music_wrapper::transpose (Pitch p)
{
if (element ())
element ()-> transpose (p);
}
-Music_wrapper::Music_wrapper(Music*p)
+Music_wrapper::Music_wrapper (SCM l)
+ : Music (l)
{
- set_mus_property ("element", p->self_scm_);
}
Moment
return element ()->length_mom ();
}
-Musical_pitch
-Music_wrapper::to_relative_octave (Musical_pitch p)
+Pitch
+Music_wrapper::to_relative_octave (Pitch p)
{
return element ()->to_relative_octave (p);
}
{
element ()->compress (m);
}
+
+ADD_MUSIC (Music_wrapper);
+
+Music_wrapper::Music_wrapper ()
+ : Music (SCM_EOL)
+{
+
+}
+
+Moment
+Music_wrapper::start_mom () const
+{
+ return element ()->start_mom ();
+}