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--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8 */
   9
  10 #include "grace-music.hh"
  11 #include "grace-iterator.hh"
  12
  13 Moment
  14 Grace_music::get_length () const
  15 {
  16   Moment m;
  17   return m;
  18 }
  19
  20 Moment
  21 Grace_music::start_mom () const
  22 {
  23   Moment l = Music_wrapper::get_length ();
  24   Moment gl;
  25   gl.grace_part_ = -(l.main_part_ + l.grace_part_ );
  26   return gl;
  27 }
  28
  29 Grace_music::Grace_music ()
  30 {
  31   set_property ("iterator-ctor",
  32                 Grace_iterator::constructor_proc);
  33 }
  34
  35 ADD_MUSIC (Grace_music);