2 music-list.cc -- implement Music_sequence, Simultaneous_music, Sequential_music
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "music-list.hh"
10 #include "music-wrapper.hh"
11 #include "musical-pitch.hh"
13 #include "musical-request.hh"
14 #include "music-iterator.hh"
16 #include "killing-cons.tcc"
19 Simultaneous_music::length_mom () const
21 return maximum_length ();
24 Simultaneous_music::Simultaneous_music(SCM head)
25 : Music_sequence (head)
27 set_mus_property ("type", ly_symbol2scm ("simultaneous-music"));
30 Sequential_music::Sequential_music(SCM head)
31 : Music_sequence (head)
33 set_mus_property ("type", ly_symbol2scm ("sequential-music"));
38 Sequential_music::length_mom () const
40 return cumulative_length ();
44 Simultaneous_music::to_relative_octave (Musical_pitch p)
46 return do_relative_octave (p, true);
49 Request_chord::Request_chord(SCM s)
50 : Simultaneous_music (s)
52 set_mus_property ("type", ly_symbol2scm ("request-chord"));
56 Request_chord::to_relative_octave (Musical_pitch last)
58 for (SCM s = music_list (); gh_pair_p (s); s = gh_cdr (s))
60 Music * mus = unsmob_music (gh_car (s));
61 if (Melodic_req *m= dynamic_cast <Melodic_req *> (mus))
63 Musical_pitch &pit = m->pitch_;
64 pit.to_relative_octave (last);