]> git.donarmstrong.com Git - lilypond.git/blob - lily/simultaneous-music.cc
85a3b8136fd8de2222f4454b13bd9008004289d9
[lilypond.git] / lily / simultaneous-music.cc
1
2 #include "moment.hh"
3 #include "pitch.hh"
4 #include "simultaneous-music-iterator.hh"
5 #include "music-list.hh"
6
7 Moment
8 Simultaneous_music::length_mom () const
9 {
10   return Music_sequence::maximum_length (get_mus_property ("elements"));
11 }
12
13 Moment
14 Simultaneous_music::start_mom () const
15 {
16   return Music_sequence::minimum_start (get_mus_property ("elements"));
17 }
18
19 Simultaneous_music::Simultaneous_music (SCM head)
20   : Music_sequence (head)
21 {
22   set_mus_property ("iterator-ctor",
23                     Simultaneous_music_iterator::constructor_cxx_function);
24 }
25
26 Simultaneous_music::Simultaneous_music ()
27   : Music_sequence ()
28 {
29   set_mus_property ("iterator-ctor",
30                     Simultaneous_music_iterator::constructor_cxx_function);
31   
32 }
33
34 Pitch
35 Simultaneous_music::to_relative_octave (Pitch p)
36 {
37   return do_relative_octave (p, true);
38 }
39 ADD_MUSIC (Simultaneous_music);