LEFT | RIGHT |
(no file at all) | |
1 /* | 1 /* |
2 This file is part of LilyPond, the GNU music typesetter. | 2 This file is part of LilyPond, the GNU music typesetter. |
3 | 3 |
4 Copyright (C) 1998--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 1998--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> |
5 | 5 |
6 LilyPond is free software: you can redistribute it and/or modify | 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 | 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 | 8 the Free Software Foundation, either version 3 of the License, or |
9 (at your option) any later version. | 9 (at your option) any later version. |
10 | 10 |
(...skipping 124 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
135 last = m->to_relative_octave (last); | 135 last = m->to_relative_octave (last); |
136 if (!count++) | 136 if (!count++) |
137 first = last; | 137 first = last; |
138 } | 138 } |
139 } | 139 } |
140 | 140 |
141 return (ret_first) ? first : last; | 141 return (ret_first) ? first : last; |
142 } | 142 } |
143 | 143 |
144 void | 144 void |
145 compress_music_list (SCM l, Moment m) | 145 compress_music_list (SCM l, Rational m) |
146 { | 146 { |
147 for (SCM s = l; scm_is_pair (s); s = scm_cdr (s)) | 147 for (SCM s = l; scm_is_pair (s); s = scm_cdr (s)) |
148 unsmob<Music> (scm_car (s))->compress (m); | 148 unsmob<Music> (scm_car (s))->compress (m); |
149 } | 149 } |
150 | 150 |
151 Moment | 151 Moment |
152 Music_sequence::minimum_start (SCM l) | 152 Music_sequence::minimum_start (SCM l) |
153 { | 153 { |
154 Moment m; | 154 Moment m; |
155 | 155 |
(...skipping 28 matching lines...) Expand all Loading... |
184 | 184 |
185 MAKE_SCHEME_CALLBACK (Music_sequence, event_chord_relative_callback, 2); | 185 MAKE_SCHEME_CALLBACK (Music_sequence, event_chord_relative_callback, 2); |
186 SCM | 186 SCM |
187 Music_sequence::event_chord_relative_callback (SCM music, SCM pitch) | 187 Music_sequence::event_chord_relative_callback (SCM music, SCM pitch) |
188 { | 188 { |
189 Music *me = unsmob<Music> (music); | 189 Music *me = unsmob<Music> (music); |
190 Pitch p = *unsmob<Pitch> (pitch); | 190 Pitch p = *unsmob<Pitch> (pitch); |
191 return music_list_to_relative (me->get_property ("elements"), | 191 return music_list_to_relative (me->get_property ("elements"), |
192 p, true).smobbed_copy (); | 192 p, true).smobbed_copy (); |
193 } | 193 } |
LEFT | RIGHT |