lily/grace-music.cc

   1 /*
   2   grace-music.cc --  implement Grace_music
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "grace-music.hh"
  11 #include "grace-iterator.hh"
  12
  13
  14
  15 Moment
  16 Grace_music::get_length () const
  17 {
  18   Moment m;
  19   return m;
  20 }
  21
  22
  23 Moment
  24 Grace_music::start_mom () const
  25 {
  26   Moment l = Music_wrapper::get_length ();
  27   Moment gl;
  28   gl.grace_part_ = -(l.main_part_ + l.grace_part_ );
  29   return gl;
  30 }
  31
  32 Grace_music::Grace_music ()
  33 {
  34   set_mus_property ("iterator-ctor",
  35                     Grace_iterator::constructor_proc);
  36 }
  37
  38
  39 ADD_MUSIC (Grace_music);