2 #include "request-chord-iterator.hh"
3 #include "music-list.hh"
4 #include "musical-request.hh"
6 Request_chord::Request_chord (SCM s)
7 : Simultaneous_music (s)
9 set_mus_property ("iterator-ctor",
10 Request_chord_iterator::constructor_cxx_function);
13 Request_chord::Request_chord ()
15 set_mus_property ("iterator-ctor",
16 Request_chord_iterator::constructor_cxx_function);
22 Request_chord::to_relative_octave (Pitch last)
24 for (SCM s = music_list (); gh_pair_p (s); s = ly_cdr (s))
26 Music * mus = unsmob_music (ly_car (s));
27 if (Melodic_req *m= dynamic_cast <Melodic_req *> (mus))
29 Pitch pit = *unsmob_pitch (m->get_mus_property ("pitch"));
31 pit.to_relative_octave (last);
32 m->set_mus_property ("pitch", pit.smobbed_copy ());
41 Request_chord::start_mom () const
43 return Music::start_mom ();
48 ADD_MUSIC (Request_chord);