2 part-combine-music.cc -- implement Part_combine_music
4 source file of the GNU LilyPond music typesetter
6 (c) 2000 Jan Nieuwenhuizen <janneke@gnu.org>
10 #include "part-combine-music.hh"
11 #include "musical-pitch.hh"
13 Part_combine_music::Part_combine_music (String what, Music * f, Music * s)
16 set_mus_property ("one", f->self_scm ());
17 set_mus_property ("two", s->self_scm ());
19 scm_unprotect_object (f->self_scm());
20 scm_unprotect_object (s->self_scm());
24 Part_combine_music::transpose (Musical_pitch p)
26 first_l ()->transpose (p);
27 second_l () ->transpose (p);
31 Part_combine_music::do_print () const
34 second_l () ->print ();
38 Part_combine_music::length_mom () const
40 return first_l ()->length_mom ();
44 Part_combine_music::to_relative_octave (Musical_pitch p)
46 p = first_l ()->to_relative_octave (p);
47 return second_l ()->to_relative_octave (p);
51 Part_combine_music::compress (Moment m)
53 first_l ()->compress (m);
54 second_l ()->compress (m);
58 Part_combine_music::first_l () const
60 return unsmob_music (get_mus_property ("one"));
64 Part_combine_music::second_l () const
66 return unsmob_music (get_mus_property ("two"));