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--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10
  11
  12 #include "music-wrapper.hh"
  13
  14
  15 Music_wrapper::Music_wrapper ()
  16   : Music ()
  17 {
  18 }
  19
  20 Moment
  21 Music_wrapper::get_length () const
  22 {
  23   return element ()->get_length ();
  24 }
  25
  26 Music*
  27 Music_wrapper::element () const
  28 {
  29   return unsmob_music (get_property ("element"));
  30 }
  31
  32
  33 ADD_MUSIC (Music_wrapper);
  34
  35
  36 Moment
  37 Music_wrapper::start_mom () const
  38 {
  39   return element ()->start_mom ();
  40 }