2 part-combine-music.cc -- implement Part_combine_music
4 source file of the GNU LilyPond music typesetter
6 (c) 2000--2002 Jan Nieuwenhuizen <janneke@gnu.org>
10 #include "part-combine-music.hh"
11 #include "part-combine-music-iterator.hh"
14 Part_combine_music::Part_combine_music (SCM l)
17 set_mus_property ("iterator-ctor",
18 Part_combine_music_iterator::constructor_cxx_function);
22 Part_combine_music::transpose (Pitch p)
24 first_l ()->transpose (p);
25 second_l () ->transpose (p);
31 Part_combine_music::length_mom () const
33 return first_l ()->length_mom ();
37 Part_combine_music::to_relative_octave (Pitch p)
39 p = first_l ()->to_relative_octave (p);
40 return second_l ()->to_relative_octave (p);
44 Part_combine_music::compress (Moment m)
46 first_l ()->compress (m);
47 second_l ()->compress (m);
51 Part_combine_music::first_l () const
53 SCM l = get_mus_property ("elements");
56 return unsmob_music (gh_car (l));
61 Part_combine_music::second_l () const
63 SCM l = get_mus_property ("elements");
69 return unsmob_music (gh_car (l));
73 Part_combine_music::Part_combine_music ()
78 ADD_MUSIC (Part_combine_music);