-
-
-void
-Music_wrapper::transpose (Pitch p)
-{
- 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 ();
-}
-
-Pitch
-Music_wrapper::to_relative_octave (Pitch p)
+MAKE_SCHEME_CALLBACK (Music_wrapper, start_callback, 1);
+SCM
+Music_wrapper::start_callback (SCM m)