lily/music-sequence.cc

   1 /*
   2   music-sequence.cc --  implement Music_sequence
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9 #include "music-list.hh"
  10 #include "debug.hh"
  11 #include "musical-pitch.hh"
  12
  13 Music_sequence::Music_sequence (Music_sequence const&s)
  14   : Music (s)
  15 {
  16   music_p_list_p_ = new Music_list (*s.music_p_list_p_);
  17 }
  18
  19 IMPLEMENT_IS_TYPE_B1(Music_sequence, Music);
  20
  21 Music_sequence::Music_sequence(Music_list *mlist_p)
  22 {
  23   music_p_list_p_ = mlist_p;
  24 }
  25
  26 void
  27 Music_sequence::transpose (Musical_pitch rq)
  28 {
  29   for (iter (music_p_list_p_->top(),i); i.ok (); i++)
  30     i->transpose (rq);
  31 }
  32
  33 void
  34 Music_sequence::do_print() const
  35 {
  36 #ifndef NPRINT
  37   for (iter (music_p_list_p_->top(),i); i.ok (); i++)
  38     i->print();
  39 #endif
  40 }
  41
  42
  43 void
  44 Music_sequence::add_music (Music *m_p)
  45 {
  46   music_p_list_p_->add_music (m_p);
  47 }