input/test/move-accidentals.ly

   1 \version "1.7.6"
   2 \header {
   3
   4          texidoc= "Positions of accidentals may be manually set. This
   5 involves some scheme code."
   6
   7 }
   8 #(define (make-acc-position-checker pos)
   9   (lambda (elt)
  10    (and
  11       (not (eq? #f (memq 'accidental-interface
  12                     (ly:get-grob-property elt 'interfaces))))
  13       (eq? (ly:get-grob-property
  14             (ly:get-parent elt 1) 'staff-position) pos))))
  15
  16 \score {
  17   \context Voice \notes \relative c'' {
  18     c2.
  19     <
  20 \property Staff.AccidentalPlacement = \turnOff
  21 \context Staff \outputproperty #(make-acc-position-checker 9)
  22                                #'extra-offset = #'(-1 . 0)
  23 \context Staff \outputproperty #(make-acc-position-checker 5)
  24                                #'extra-offset = #'(-2 . 0)
  25 \context Staff \outputproperty #(make-acc-position-checker 3)
  26                                #'extra-offset = #'(-3 . 0)
  27 \context Staff \outputproperty #(make-acc-position-checker 2)
  28                                #'extra-offset = #'(-4 . 0)
  29       d!4
  30       eis
  31       gis
  32       d'!
  33     >
  34   }
  35   \paper {
  36     linewidth = -1
  37   }
  38 }
  39 %% new-chords-done %%