source file of the GNU LilyPond music typesetter
- (c) 1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1998--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "music-list.hh"
music_p_list_p_ = new Music_list (*s.music_p_list_p_);
}
-IMPLEMENT_IS_TYPE_B1(Music_sequence, Music);
+
Music_sequence::Music_sequence(Music_list *mlist_p)
{
void
Music_sequence::transpose (Musical_pitch rq)
{
- for (iter (music_p_list_p_->top(),i); i.ok (); i++)
- i->transpose (rq);
+ for (Cons<Music> *i = music_p_list_p_->head_; i; i = i->next_)
+ i->car_->transpose (rq);
}
void
Music_sequence::do_print() const
{
#ifndef NPRINT
- for (iter (music_p_list_p_->top(),i); i.ok (); i++)
- i->print();
+ for (Cons<Music> *i = music_p_list_p_->head_; i; i = i->next_)
+ i->car_->print();
#endif
}