- r = i->car_->to_rhythm (r);
- }
- return r;
-}
-
-Music_list::Music_list (Music_list const &s)
- : Cons_list<Music> (s)
-{
- Cons_list<Music>::init ();
- clone_killing_cons_list (*this, s.head_);
-}
-
-
-void
-Music_list::add_music (Music*m_p)
-{
- if (!m_p)
- return;
-
- append (new Killing_cons<Music> (m_p, 0));
-}
-
-Request_chord::Request_chord()
- : Simultaneous_music (new Music_list)
-{
-}
-
-
-Musical_pitch
-Request_chord::to_relative_octave (Musical_pitch last)
-{
- for (Cons<Music> *i = music_p_list_p_->head_; i ; i = i->next_)
- {
- if (Melodic_req *m= dynamic_cast <Melodic_req *> (i->car_))