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"
15 Music_wrapper::do_print () const
21 Music_wrapper::transpose (Musical_pitch p)
24 element ()-> transpose (p);
28 Music_wrapper::Music_wrapper(Music*p)
30 set_mus_property ("element", p->self_scm ());
31 scm_unprotect_object (p->self_scm ());
35 Music_wrapper::length_mom () const
37 return element ()->length_mom ();
41 Music_wrapper::to_relative_octave (Musical_pitch p)
43 return element ()->to_relative_octave (p);
48 Music_wrapper::element () const
50 return unsmob_music (get_mus_property ("element"));
54 Music_wrapper::compress (Moment m)
56 element ()->compress (m);