3 % possible rename to scheme- or something like that. -gp
4 \header { texidoc= "@cindex Scheme Manual Accidentals
5 Positions of accidentals may be manually set. This
6 involves some scheme code. " }
8 #(define (make-acc-position-checker pos)
11 (not (eq? #f (memq 'accidental-interface
12 (ly:get-grob-property elt 'interfaces))))
13 (eq? (ly:get-grob-property
14 (ly:grob-parent elt 1) 'staff-position) pos))))
17 \context Voice \notes \relative c'' {
20 \set Staff.AccidentalPlacement = \turnOff
21 \context Staff \applyoutput #(outputproperty-compatibility (make-acc-position-checker 9)
22 'extra-offset '(-1 . 0))
23 \context Staff \applyoutput #(outputproperty-compatibility (make-acc-position-checker 5)
24 'extra-offset '(-2 . 0))
25 \context Staff \applyoutput #(outputproperty-compatibility (make-acc-position-checker 3)
26 'extra-offset '(-3 . 0))
27 \context Staff \applyoutput #(outputproperty-compatibility (make-acc-position-checker 2)
28 'extra-offset '(-4 . 0))