still problems with accidental shift

[Werner LEMBERG]

[CVS 07-25 02:25]

LilyPond no longer crashes, but it still doesn't work.  Turning off
AccidentalPlacement moves all accents to a zero position, but I can't
apply an offset again.

I assume something like the code below is the right way to do it
(following Hanwen's instructions).

BTW, how do I activate AccidentalPlacement again for the next chords?


    Werner

======================================================================

#(define (make-acc-position-checker pos)
  (lambda (elt)
    (and
      (eq? (ly-get-grob-property elt 'staff-position) pos)
      (not (eq? #f (memq 'accidental-interface
                    (ly-get-grob-property elt 'interfaces)))))))

\score {
  \context Voice \notes \relative c'' {
    <
\property Staff.AccidentalPlacement = \turnOff
\context Staff \outputproperty #(make-acc-position-checker 15)
                               #'extra-offset = #'(-1 . 0)
\context Staff \outputproperty #(make-acc-position-checker 8)
                               #'extra-offset = #'(-2 . 0)
\context Staff \outputproperty #(make-acc-position-checker 5)
                               #'extra-offset = #'(-3 . 0)
\context Staff \outputproperty #(make-acc-position-checker 3)
                               #'extra-offset = #'(-4 . 0)
      d!4
      eis
      gis
      d'!
    >
  }
  \paper {
    linewidth = -1
  }
}