127 |
active)) |
active)) |
128 |
|
|
129 |
(define (analyse-absdyn-end active ev) |
(define (analyse-absdyn-end active ev) |
130 |
(if (equal? (ly:music-property ev 'name) 'AbsoluteDynamicEvent) |
(if (or (equal? (ly:music-property ev 'name) 'AbsoluteDynamicEvent) |
131 |
|
(and (equal? (ly:music-property ev 'name) 'CrescendoEvent) |
132 |
|
(equal? STOP (ly:music-property ev 'span-direction)))) |
133 |
(assoc-remove! (assoc-remove! active 'cresc) 'decr) |
(assoc-remove! (assoc-remove! active 'cresc) 'decr) |
134 |
active)) |
active)) |
135 |
|
|
430 |
|
|
431 |
(analyse-spanner-states voice-state-vec1) |
(analyse-spanner-states voice-state-vec1) |
432 |
(analyse-spanner-states voice-state-vec2) |
(analyse-spanner-states voice-state-vec2) |
433 |
(if #f |
(if #t |
434 |
(begin |
(begin |
435 |
(display voice-state-vec1) |
(display voice-state-vec1) |
436 |
(display "***\n") |
(display "***\n") |