2 music-wrapper.cc -- implement Music_wrapper
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
11 #include "music-wrapper.hh"
17 Music_wrapper::transpose (Musical_pitch p)
20 element ()-> transpose (p);
24 Music_wrapper::Music_wrapper(Music*p)
26 set_mus_property ("element", p->self_scm ());
27 scm_unprotect_object (p->self_scm ());
31 Music_wrapper::length_mom () const
33 return element ()->length_mom ();
37 Music_wrapper::to_relative_octave (Musical_pitch p)
39 return element ()->to_relative_octave (p);
44 Music_wrapper::element () const
46 return unsmob_music (get_mus_property ("element"));
50 Music_wrapper::compress (Moment m)
52 element ()->compress (m);