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--2001 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)
  15 {
  16
  17 }
  18
  19 Moment
  20 Grace_music::length_mom () const
  21 {
  22   return 0;
  23 }
  24
  25 Grace_music::Grace_music ()
  26 {
  27   set_mus_property ("iterator-ctor",
  28                     Grace_iterator::constructor_cxx_function);
  29 }
  30
  31 Grace_music::Grace_music (SCM p)
  32   : Music_wrapper (p)
  33 {
  34   set_mus_property ("iterator-ctor",
  35                     Grace_iterator::constructor_cxx_function);
  36 }
  37
  38 ADD_MUSIC (Grace_music);