/[lilypond]/lilypond/scm/part-combiner.scm
ViewVC logotype

Diff of /lilypond/scm/part-combiner.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by janneke, Mon Dec 27 09:43:59 2004 UTC revision 1.40 by hanwen, Fri Jan 28 22:29:08 2005 UTC
# Line 127  Voice-state objects Line 127  Voice-state objects
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            
# Line 428  the mark when there are no spanners acti Line 430  the mark when there are no spanners acti
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")

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26