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) 1998--2012 Han-Wen Nienhuys <hanwen@xs4all.nl> | 3 ;;;; Copyright (C) 1998--2012 Han-Wen Nienhuys <hanwen@xs4all.nl> |
4 ;;;; Jan Nieuwenhuizen <janneke@gnu.org> | 4 ;;;; Jan Nieuwenhuizen <janneke@gnu.org> |
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 379 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
390 )) | 390 )) |
391 | 391 |
392 (PartCombineForceEvent | 392 (PartCombineForceEvent |
393 . ((description . "Override the part-combiner's strategy.") | 393 . ((description . "Override the part-combiner's strategy.") |
394 (types . (general-music part-combine-force-event event)) | 394 (types . (general-music part-combine-force-event event)) |
395 )) | 395 )) |
396 | 396 |
397 (PartialSet | 397 (PartialSet |
398 . ((description . "Create an anacrusis or upbeat (partial measure).") | 398 . ((description . "Create an anacrusis or upbeat (partial measure).") |
399 (iterator-ctor . ,ly:partial-iterator::constructor) | 399 (iterator-ctor . ,ly:partial-iterator::constructor) |
| 400 ;; The length-callback is kind of cheesy since 'elements is |
| 401 ;; empty. We just use that in order to get a zero duration |
| 402 ;; for the overall timing in spite of having a non-zero |
| 403 ;; duration field. |
| 404 (length-callback . ,ly:music-sequence::cumulative-length-callback) |
400 (types . (general-music partial-set)) | 405 (types . (general-music partial-set)) |
401 )) | 406 )) |
402 | 407 |
403 (PartCombineMusic | 408 (PartCombineMusic |
404 . ((description . "Combine two parts on a staff, either merged or | 409 . ((description . "Combine two parts on a staff, either merged or |
405 as separate voices.") | 410 as separate voices.") |
406 (length-callback . ,ly:music-sequence::maximum-length-callback) | 411 (length-callback . ,ly:music-sequence::maximum-length-callback) |
407 (start-callback . ,ly:music-sequence::minimum-start-callback) | 412 (start-callback . ,ly:music-sequence::minimum-start-callback) |
408 (types . (general-music part-combine-music)) | 413 (types . (general-music part-combine-music)) |
409 (iterator-ctor . ,ly:part-combine-iterator::constructor) | 414 (iterator-ctor . ,ly:part-combine-iterator::constructor) |
(...skipping 384 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
794 ("unfold" . UnfoldedRepeatedMusic) | 799 ("unfold" . UnfoldedRepeatedMusic) |
795 ("percent" . PercentRepeatedMusic) | 800 ("percent" . PercentRepeatedMusic) |
796 ("tremolo" . TremoloRepeatedMusic)))) | 801 ("tremolo" . TremoloRepeatedMusic)))) |
797 (repeated-music-name (if repeated-music | 802 (repeated-music-name (if repeated-music |
798 repeated-music | 803 repeated-music |
799 (begin | 804 (begin |
800 (ly:warning (_ "unknown repeat type `~S'") n
ame) | 805 (ly:warning (_ "unknown repeat type `~S'") n
ame) |
801 (ly:warning (_ "See define-music-types.scm f
or supported repeats")) | 806 (ly:warning (_ "See define-music-types.scm f
or supported repeats")) |
802 'VoltaRepeatedMusic)))) | 807 'VoltaRepeatedMusic)))) |
803 (make-music repeated-music-name))) | 808 (make-music repeated-music-name))) |
OLD | NEW |