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::start_mom () const
  15 {
  16   Moment *l = unsmob_moment (Music_wrapper::length_callback (self_scm ()));
  17   Moment gl;
  18   gl.grace_part_ = -(l->main_part_ + l->grace_part_ );
  19   return gl;
  20 }
  21
  22 Grace_music::Grace_music (SCM x)
  23   : Music_wrapper (x)
  24 {
  25 }
  26
  27 ADD_MUSIC (Grace_music);