lily/music-wrapper.cc

   1 /*
   2   music-wrapper.cc --  implement
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998 Han-Wen Nienhuys <hanwen@cs.ruu.nl>
   7
   8  */
   9
  10
  11 #include "music-wrapper.hh"
  12
  13 Music_wrapper::~Music_wrapper ()
  14 {
  15   delete element_p_;
  16 }
  17
  18 Music_wrapper::Music_wrapper (Music_wrapper const&s)
  19   : Music (s)
  20 {
  21   element_p_ = (s.element_p_)?s.element_p_->clone ():0;
  22 }
  23
  24
  25 void
  26 Music_wrapper::do_print () const
  27 {
  28   element_p_->print ();
  29 }
  30 void
  31 Music_wrapper::transpose (Musical_pitch p)
  32 {
  33   if (element_p_)
  34     element_p_-> transpose (p);
  35 }
  36
  37
  38 Music_wrapper::Music_wrapper(Music*p)
  39 {
  40   element_p_ = p;
  41 }
  42
  43 IMPLEMENT_IS_TYPE_B1 (Music_wrapper, Music);
  44
  45 MInterval
  46 Music_wrapper::time_int () const
  47 {
  48   return element_p_->time_int ();
  49 }