Re: Special Accidental Macro needed.

[Rune Zedeler]

Matthias Geier wrote:

> When I use ties, the second note of the tie gets the accidental again.

Yikes, this is getting more and more ugly.
Well, This one works better. Now you also don't get new accidentals
after rests - i.e. after cis r cis you would befer get a new sharp sign
- and now you don't.


#(define usep '())
#(define buildp '()) 
#(define seen #f)
#(define ((schoenberg-accidentals clear) music)
  (let* ((es (ly:get-mus-property music 'elements))
         (e (ly:get-mus-property music 'element))
         (p  (ly:get-mus-property music 'pitch))
         (ts  (ly:get-mus-property music 'types)))

    (if (memq 'note-event ts) 
        (begin
          (set! seen #t)
          (set! buildp (cons p buildp))
          (if (not (member p usep))
              (ly:set-mus-property! music 'force-accidental #t))
          ))

    (if (ly:music? e)
        (ly:set-mus-property!
         music 'element
         ((schoenberg-accidentals clear) e)))

    (if (pair? es)
        (ly:set-mus-property!
         music 'elements
         (map (schoenberg-accidentals (memq 'sequential-music ts)) es)))

    (if (and clear seen) (begin (set! seen #f) (set! usep buildp) (set!
buildp '())))

    music))


-Rune