lily/music-wrapper.cc

   1 /*
   2   music-wrapper.cc --  implement Music_wrapper
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10
  11 #include "music-wrapper.hh"
  12
  13
  14
  15
  16 Music_wrapper::Music_wrapper ()
  17   : Music ()
  18 {
  19 }
  20
  21 Moment
  22 Music_wrapper::get_length () const
  23 {
  24   return element ()->get_length ();
  25 }
  26
  27 Music*
  28 Music_wrapper::element () const
  29 {
  30   return unsmob_music (get_mus_property ("element"));
  31 }
  32
  33
  34 ADD_MUSIC (Music_wrapper);
  35
  36
  37 Moment
  38 Music_wrapper::start_mom () const
  39 {
  40   return element ()->start_mom ();
  41 }