lily/new-grace-music.cc

   1 /*
   2   grace-music.cc --  implement New_grace_music
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "new-grace-music.hh"
  11 #include "new-grace-iterator.hh"
  12
  13 void
  14 New_grace_music::compress (Moment m)
  15 {
  16   Music_wrapper::compress (m);
  17 }
  18
  19 Moment
  20 New_grace_music::length_mom () const
  21 {
  22   Moment l = Music_wrapper::length_mom ();
  23   Moment gl;
  24   gl.grace_mom_ = l.main_part_ + l.grace_mom_ ;
  25   return gl;
  26 }
  27
  28
  29 Moment
  30 New_grace_music::start_mom () const
  31 {
  32   return Music::start_mom ();
  33 }
  34
  35 New_grace_music::New_grace_music ()
  36 {
  37   set_mus_property ("iterator-ctor",
  38                     New_grace_iterator::constructor_cxx_function);
  39 }
  40
  41 New_grace_music::New_grace_music (SCM p)
  42   : Music_wrapper (p)
  43 {
  44   set_mus_property ("iterator-ctor",
  45                     New_grace_iterator::constructor_cxx_function);
  46 }
  47
  48 ADD_MUSIC (New_grace_music);