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);
33 Part_combine_music::length_mom () const
35 return first_l ()->length_mom ();
39 Part_combine_music::to_relative_octave (Musical_pitch p)
41 p = first_l ()->to_relative_octave (p);
42 return second_l ()->to_relative_octave (p);
46 Part_combine_music::compress (Moment m)
48 first_l ()->compress (m);
49 second_l ()->compress (m);
53 Part_combine_music::first_l () const
55 return unsmob_music (get_mus_property ("one"));
59 Part_combine_music::second_l () const
61 return unsmob_music (get_mus_property ("two"));