X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fmove-accidentals.ly;h=076813a6e7a7cf542425c4e49f1ab9c3aa71226f;hb=43211009ef51c3fb6b7486b3915d452f6cc3c175;hp=ae3ca126fbd3a24cf2d99111940ced4f035cd624;hpb=955f829883aa125b2b633b1e71f6256da5b773fa;p=lilypond.git diff --git a/input/test/move-accidentals.ly b/input/test/move-accidentals.ly index ae3ca126fb..076813a6e7 100644 --- a/input/test/move-accidentals.ly +++ b/input/test/move-accidentals.ly @@ -1,5 +1,5 @@ -#(ly:set-option 'old-relative) -\version "1.9.0" +\version "2.1.7" + % possible rename to scheme- or something like that. -gp \header { texidoc= "@cindex Scheme Manual Accidentals Positions of accidentals may be manually set. This @@ -16,21 +16,21 @@ involves some scheme code. " } \score { \context Voice \notes \relative c'' { c2. - < + << \property Staff.AccidentalPlacement = \turnOff -\context Staff \outputproperty #(make-acc-position-checker 9) - #'extra-offset = #'(-1 . 0) -\context Staff \outputproperty #(make-acc-position-checker 5) - #'extra-offset = #'(-2 . 0) -\context Staff \outputproperty #(make-acc-position-checker 3) - #'extra-offset = #'(-3 . 0) -\context Staff \outputproperty #(make-acc-position-checker 2) - #'extra-offset = #'(-4 . 0) +\context Staff \applyoutput #(outputproperty-compatibility (make-acc-position-checker 9) + 'extra-offset '(-1 . 0)) +\context Staff \applyoutput #(outputproperty-compatibility (make-acc-position-checker 5) + 'extra-offset '(-2 . 0)) +\context Staff \applyoutput #(outputproperty-compatibility (make-acc-position-checker 3) + 'extra-offset '(-3 . 0)) +\context Staff \applyoutput #(outputproperty-compatibility (make-acc-position-checker 2) + 'extra-offset '(-4 . 0)) d!4 eis gis d'! - > + >> } \paper { raggedright = ##t