OLD | NEW |
1 \version "2.19.29" | 1 \version "2.19.29" |
2 | 2 |
3 "\\=" = | 3 "\\=" = |
4 #(define-event-function (id event) (key? ly:event?) | 4 #(define-event-function (id-and-share event) (key-list-or-symbol? ly:event?) |
5 (_i "This sets the @code{spanner-id} property of the following | 5 (_i "This sets the @code{spanner-id} and @code{spanner-share-context} |
6 @var{event} to the given @var{id} (non-negative integer or symbol). | 6 properties of the following @var{event}. @var{id-and-share} is expected to be a |
7 This can be used to tell LilyPond how to connect overlapping | 7 key-list (list of non-negative integers or symbols). If it has one element, |
8 or parallel slurs or phrasing slurs within a single @code{Voice}. | 8 @code{spanner-id} is set to that key and @code{spanner-share-context} to |
| 9 @code{'Voice}. If two elements are given, @code{spanner-share-context} is set |
| 10 to the first element and @code{spanner-id} to the second. This can be used to |
| 11 tell LilyPond how to connect overlapping or parallel slurs or phrasing slurs |
| 12 within a single @code{Voice}. |
9 @lilypond[quote,verbatim] | 13 @lilypond[quote,verbatim] |
10 \\fixed c' { c\\=1( d\\=2( e\\=1) f\\=2) } | 14 \\fixed c' { c\\=1( d\\=2( e\\=1) f\\=2) } |
11 @end lilypond\n") | 15 @end lilypond\n") |
12 (set! (ly:music-property event 'spanner-id) id) | 16 (if (key-list? id-and-share) |
| 17 (let ((len (length id-and-share))) |
| 18 (if (> len 2) |
| 19 (ly:warning "Expected only two elements in argument to \\=")) |
| 20 (if (> len 1) |
| 21 (begin |
| 22 (set! (ly:music-property event 'spanner-share-context) |
| 23 (list-ref id-and-share 0)) |
| 24 (set! (ly:music-property event 'spanner-id) |
| 25 (list-ref id-and-share 1)) |
| 26 ) |
| 27 (begin |
| 28 (set! (ly:music-property event 'spanner-share-context) 'Voice) |
| 29 (set! (ly:music-property event 'spanner-id) (list-ref id-and-share 0)) |
| 30 ) |
| 31 ) |
| 32 ) |
| 33 (begin |
| 34 (set! (ly:music-property event 'spanner-id) id-and-share) |
| 35 (set! (ly:music-property event 'spanner-share-context) 'Voice) |
| 36 ) |
| 37 ) |
13 event) | 38 event) |
14 | 39 |
15 startGroup = #(make-span-event 'NoteGroupingEvent START) | 40 startGroup = #(make-span-event 'NoteGroupingEvent START) |
16 stopGroup = #(make-span-event 'NoteGroupingEvent STOP) | 41 stopGroup = #(make-span-event 'NoteGroupingEvent STOP) |
17 | 42 |
18 | 43 |
19 cr = #(make-span-event 'CrescendoEvent START) | 44 cr = #(make-span-event 'CrescendoEvent START) |
20 decr = #(make-span-event 'DecrescendoEvent START) | 45 decr = #(make-span-event 'DecrescendoEvent START) |
21 enddecr = #(make-span-event 'DecrescendoEvent STOP) | 46 enddecr = #(make-span-event 'DecrescendoEvent STOP) |
22 endcr = #(make-span-event 'CrescendoEvent STOP) | 47 endcr = #(make-span-event 'CrescendoEvent STOP) |
(...skipping 92 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
115 sostenutoOn = #(make-span-event 'SostenutoEvent START) | 140 sostenutoOn = #(make-span-event 'SostenutoEvent START) |
116 sostenutoOff = #(make-span-event 'SostenutoEvent STOP) | 141 sostenutoOff = #(make-span-event 'SostenutoEvent STOP) |
117 | 142 |
118 %crescpoco = \set crescendoText = "cresc. poco a poco" | 143 %crescpoco = \set crescendoText = "cresc. poco a poco" |
119 %decresc = \set crescendoText = "decr." | 144 %decresc = \set crescendoText = "decr." |
120 %dim = \set crescendoText = "dim." | 145 %dim = \set crescendoText = "dim." |
121 | 146 |
122 newSpacingSection = #(make-event-chord (list (make-music 'SpacingSectionEvent))) | 147 newSpacingSection = #(make-event-chord (list (make-music 'SpacingSectionEvent))) |
123 | 148 |
124 breakDynamicSpan = #(make-music 'BreakDynamicSpanEvent) | 149 breakDynamicSpan = #(make-music 'BreakDynamicSpanEvent) |
OLD | NEW |