]> git.donarmstrong.com Git - lilypond.git/blob - lily/include/music-sequence.hh
590b48b22d94c46bd8c2ad241fe61d172caf7af6
[lilypond.git] / lily / include / music-sequence.hh
1 /*
2   This file is part of LilyPond, the GNU music typesetter.
3
4   Copyright (C) 2000--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
5
6   LilyPond is free software: you can redistribute it and/or modify
7   it under the terms of the GNU General Public License as published by
8   the Free Software Foundation, either version 3 of the License, or
9   (at your option) any later version.
10
11   LilyPond is distributed in the hope that it will be useful,
12   but WITHOUT ANY WARRANTY; without even the implied warranty of
13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14   GNU General Public License for more details.
15
16   You should have received a copy of the GNU General Public License
17   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
18 */
19
20 #ifndef MUSIC_SEQUENCE_HH
21 #define MUSIC_SEQUENCE_HH
22
23 #include "pitch.hh"
24 #include "moment.hh"
25 #include "lily-guile.hh"
26
27 struct Music_sequence
28 {
29 public:
30   DECLARE_SCHEME_CALLBACK (cumulative_length_callback, (SCM));
31   DECLARE_SCHEME_CALLBACK (maximum_length_callback, (SCM));
32   DECLARE_SCHEME_CALLBACK (event_chord_length_callback, (SCM));
33   DECLARE_SCHEME_CALLBACK (minimum_start_callback, (SCM));
34   DECLARE_SCHEME_CALLBACK (first_start_callback, (SCM));
35   DECLARE_SCHEME_CALLBACK (simultaneous_relative_callback, (SCM, SCM));
36   DECLARE_SCHEME_CALLBACK (event_chord_relative_callback, (SCM, SCM));
37
38   Pitch do_relative_octave (Pitch p, bool b);
39
40   static Moment cumulative_length (SCM);
41   static Moment maximum_length (SCM);
42   static Moment first_start (SCM list);
43   static Moment minimum_start (SCM list);
44 };
45
46 SCM ly_transpose_key_alist (SCM l, SCM pit);
47 Pitch music_list_to_relative (SCM l, Pitch p, bool ret_first);
48 void transpose_music_list (SCM, Pitch);
49 void compress_music_list (SCM, Moment);
50
51 #endif