-void
-Music_wrapper::transpose (Pitch p)
-{
- if (element ())
- element ()-> transpose (p);
-}
-
-
-Music_wrapper::Music_wrapper (SCM l)
- : Music (l)
-{
-}
-
-Moment
-Music_wrapper::length_mom () const
-{
- return element ()->length_mom ();
-}
-
-Pitch
-Music_wrapper::to_relative_octave (Pitch p)
-{
- return element ()->to_relative_octave (p);
-}
+ You should have received a copy of the GNU General Public License
+ along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
+*/