OLD | NEW |
1 ;;;; This file is part of LilyPond, the GNU music typesetter. | 1 ;;;; This file is part of LilyPond, the GNU music typesetter. |
2 ;;;; | 2 ;;;; |
3 ;;;; Copyright (C) 2006--2020 Erik Sandberg <mandolaerik@gmail.com> | 3 ;;;; Copyright (C) 2006--2020 Erik Sandberg <mandolaerik@gmail.com> |
4 ;;;; | 4 ;;;; |
5 ;;;; LilyPond is free software: you can redistribute it and/or modify | 5 ;;;; LilyPond is free software: you can redistribute it and/or modify |
6 ;;;; it under the terms of the GNU General Public License as published by | 6 ;;;; it under the terms of the GNU General Public License as published by |
7 ;;;; the Free Software Foundation, either version 3 of the License, or | 7 ;;;; the Free Software Foundation, either version 3 of the License, or |
8 ;;;; (at your option) any later version. | 8 ;;;; (at your option) any later version. |
9 ;;;; | 9 ;;;; |
10 ;;;; LilyPond is distributed in the hope that it will be useful, | 10 ;;;; LilyPond is distributed in the hope that it will be useful, |
(...skipping 175 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
186 tempo-change))) | 186 tempo-change))) |
187 | 187 |
188 (define-public (repeat type num body alts) | 188 (define-public (repeat type num body alts) |
189 (ly:set-origin! (make-repeat type num body alts))) | 189 (ly:set-origin! (make-repeat type num body alts))) |
190 | 190 |
191 (define (script-to-mmrest-text music) | 191 (define (script-to-mmrest-text music) |
192 "Extract @code{'direction} and @code{'text} from @var{music}, and transform | 192 "Extract @code{'direction} and @code{'text} from @var{music}, and transform |
193 into a @code{MultiMeasureTextEvent}." | 193 into a @code{MultiMeasureTextEvent}." |
194 | 194 |
195 (cond | 195 (cond |
196 ((music-is-of-type? music 'text-script-event) | 196 ((music-is-of-type? music 'text-script-event) |
197 (make-music 'MultiMeasureTextEvent music)) | 197 (make-music 'MultiMeasureTextEvent music)) |
198 ((music-is-of-type? music 'articulation-event) | 198 ((music-is-of-type? music 'articulation-event) |
199 (make-music 'MultiMeasureArticulationEvent music)) | 199 (make-music 'MultiMeasureArticulationEvent music)) |
200 (else music))) | 200 (else music))) |
201 | 201 |
202 (define-public (multi-measure-rest duration articulations) | 202 (define-public (multi-measure-rest duration articulations) |
203 (ly:set-origin! (make-music 'MultiMeasureRestMusic | 203 (ly:set-origin! (make-music 'MultiMeasureRestMusic |
204 'articulations (map script-to-mmrest-text articula
tions) | 204 'articulations (map script-to-mmrest-text articula
tions) |
205 'duration duration))) | 205 'duration duration))) |
206 | 206 |
207 (define-public (repetition-chord duration articulations) | 207 (define-public (repetition-chord duration articulations) |
208 (ly:set-origin! (make-music 'EventChord | 208 (ly:set-origin! (make-music 'EventChord |
209 'duration duration | 209 'duration duration |
210 'elements articulations))) | 210 'elements articulations))) |
(...skipping 139 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
350 (ly:set-origin! (make-music 'ContextSpeccedMusic | 350 (ly:set-origin! (make-music 'ContextSpeccedMusic |
351 'create-new #t | 351 'create-new #t |
352 'context-type 'Lyrics | 352 'context-type 'Lyrics |
353 'property-operations (cdr mu
s+mods) | 353 'property-operations (cdr mu
s+mods) |
354 'element | 354 'element |
355 (lyric-combine | 355 (lyric-combine |
356 voice-name voice-type | 356 voice-name voice-type |
357 (car mus+mods)))))) | 357 (car mus+mods)))))) |
358 addlyrics-list))) | 358 addlyrics-list))) |
359 (make-simultaneous-music (cons voice lyricstos)))) | 359 (make-simultaneous-music (cons voice lyricstos)))) |
OLD | NEW |