(conv): add 2.2.0 rule.

[lilypond.git] / input / regression / accidentals.ly

diff --git a/input/regression/accidentals.ly b/input/regression/accidentals.ly
index 6369ad13b0823ccce690754c544797c0bd475377..228eb6d1a9caadc3b704174a436040052f78101b 100644 (file)
--- a/input/regression/accidentals.ly
+++ b/input/regression/accidentals.ly
@@ -1,71 +1,22 @@
-\version "1.7.6"
+\version "2.1.36"
 
 \header{
 texidoc="
 This shows how accidentals are handled.
 "
 }
-
-#(define  (lo-octave p)
-  (let* ((a (ly:pitch-alteration p))
-         (n (ly:pitch-notename p)))
-    (ly:make-pitch -1 n a)))
-
-#(define (no-octaves music)
-  (let* ((es (ly:get-mus-property music 'elements))
-         (e (ly:get-mus-property music 'element))
-         (p (ly:get-mus-property music 'pitch)))
-
-    (if (pair? es)
-        (ly:set-mus-property!
-         music 'elements
-         (map no-octaves es)))
-
-    (if (ly:music? e)
-        (ly:set-mus-property!
-         music 'element
-         (no-octaves e)))
-
-    (if (ly:pitch? p)
-        (begin
-          (set! p (lo-octave p))
-          (ly:set-mus-property! music 'pitch p)))
-
-
-    music))
-
-
 mel = \notes { \key d \major \time 4/4
  d4  dis dis8 dis, d4 | d dis disis8 d, dis4 | d des disis8 dis, d4 | dis deses d dis ~ | dis dis ~ dis8 d, dis4 ~ | \break
  dis dis cis c | c cis cisis cis | c ces cisis c | cis ceses c cis ~ | cis cis ~ cis cis \bar "|."  | \break
 }
 
 \score { \notes
- <
-  \context Staff \transpose c c'' {
-   \mel
-%   \property Score.oneMeasureLazy = ##t
-   \property Score.autoAccidentals = #'(Staff (same-octave . 0))
-   < s1^"$\\backslash$property Score.autoAccidentals = \\#'((same-octave . 0))" \mel >
-   \property Score.autoAccidentals = #'(Staff (same-octave . 1))
-   < s1^"$\\backslash$property Score.autoAccidentals = \\#'((same-octave . 1))" \mel >
-   \property Score.autoAccidentals = #'(Staff (any-octave . 0))
-   < s1^"$\\backslash$property Score.autoAccidentals = \\#'((any-octave . 0))" \mel >
-   \property Score.autoAccidentals = #'(Staff (any-octave . 1))
-   < s1^"$\\backslash$property Score.autoAccidentals = \\#'((any-octave . 1))" \mel >
-   \modernAccidentals
-   < s1^"$\\backslash$modernAccidentals" \mel >
-   \modernCautionaries
-   < s1^"$\\backslash$modernCautionaries" \mel >
-   \noResetKey
-   < s1^"$\\backslash$noResetKey" \mel >
-   \forgetAccidentals
-   < s1^"$\\backslash$forgetAccidentals" \mel >
-  }
-  \context NoteNames \repeat unfold 9 \apply #no-octaves \mel
- >
- \paper {
-  indent = 0.0
- }
+ <<
+  \context Staff \transpose c c'' \mel
+  \context NoteNames{
+      \set printOctaveNames = ##f
+      \mel
+      }
+ >>
 }