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--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "grace-music.hh"
  11 #include "grace-iterator.hh"
  12
  13 void
  14 Grace_music::compress (Moment m)
  15 {
  16   Music_wrapper::compress (m);
  17 }
  18
  19 Moment
  20 Grace_music::length_mom () const
  21 {
  22   Moment m ;
  23   return m;
  24 }
  25
  26
  27 Moment
  28 Grace_music::start_mom () const
  29 {
  30   Moment l = Music_wrapper::length_mom ();
  31   Moment gl;
  32   gl.grace_part_ = -(l.main_part_ + l.grace_part_ );
  33   return gl;
  34 }
  35
  36 Grace_music::Grace_music ()
  37 {
  38   set_mus_property ("iterator-ctor",
  39                     Grace_iterator::constructor_proc);
  40 }
  41
  42 Grace_music::Grace_music (SCM p)
  43   : Music_wrapper (p)
  44 {
  45   set_mus_property ("iterator-ctor",
  46                     Grace_iterator::constructor_proc);
  47 }
  48
  49 ADD_MUSIC (Grace_music);