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
  12 #include "grace-iterator.hh"
  13
  14 Moment
  15 Grace_music::get_length () const
  16 {
  17   Moment m;
  18   return m;
  19 }
  20
  21 Moment
  22 Grace_music::start_mom () const
  23 {
  24   Moment l = Music_wrapper::get_length ();
  25   Moment gl;
  26   gl.grace_part_ = -(l.main_part_ + l.grace_part_ );
  27   return gl;
  28 }
  29
  30 Grace_music::Grace_music (SCM x)
  31   : Music_wrapper (x)
  32 {
  33 }
  34
  35 ADD_MUSIC (Grace_music);