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 ()
19 Part_combine_music::transpose (Pitch p)
21 get_first ()->transpose (p);
22 get_second () ->transpose (p);
26 Part_combine_music::length_mom () const
28 return get_first ()->length_mom ();
32 Part_combine_music::to_relative_octave (Pitch p)
34 p = get_first ()->to_relative_octave (p);
35 return get_second ()->to_relative_octave (p);
39 Part_combine_music::compress (Moment m)
41 get_first ()->compress (m);
42 get_second ()->compress (m);
46 Part_combine_music::get_first () const
48 SCM l = get_mus_property ("elements");
51 return unsmob_music (gh_car (l));
56 Part_combine_music::get_second () const
58 SCM l = get_mus_property ("elements");
64 return unsmob_music (gh_car (l));
67 ADD_MUSIC (Part_combine_music);