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 ());
34 Music_wrapper::length_mom () const
36 return element ()->length_mom ();
40 Music_wrapper::to_relative_octave (Musical_pitch p)
42 return element ()->to_relative_octave (p);
47 Music_wrapper::element () const
49 return unsmob_music (get_mus_property ("element"));
53 Music_wrapper::compress (Moment m)
55 element ()->compress (m);