lily/music-wrapper.cc

   1 /*
   2   music-wrapper.cc --  implement Music_wrapper
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10
  11 #include "music-wrapper.hh"
  12
  13
  14
  15
  16 void
  17 Music_wrapper::transpose (Musical_pitch p)
  18 {
  19   if (element ())
  20     element ()-> transpose (p);
  21 }
  22
  23
  24 Music_wrapper::Music_wrapper(Music*p)
  25 {
  26   set_mus_property ("element", p->self_scm ());
  27   scm_unprotect_object (p->self_scm ());
  28 }
  29
  30 Moment
  31 Music_wrapper::length_mom () const
  32 {
  33   return element ()->length_mom ();
  34 }
  35
  36 Musical_pitch
  37 Music_wrapper::to_relative_octave (Musical_pitch p)
  38 {
  39   return element ()->to_relative_octave (p);
  40 }
  41
  42
  43 Music*
  44 Music_wrapper::element () const
  45 {
  46   return unsmob_music (get_mus_property ("element"));
  47 }
  48
  49 void
  50 Music_wrapper::compress (Moment m)
  51 {
  52   element ()->compress (m);
  53 }