]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/accidental-octave.ly
* VERSION (MY_PATCH_LEVEL): make 1.7.0
[lilypond.git] / input / regression / accidental-octave.ly
index 11962c970e9ec3710ecbf449dcbd61b3ca453ff7..4b115eeee21c4568bab59559425f6820554e93d9 100644 (file)
@@ -1,8 +1,11 @@
-\version "1.5.24.rz2"
+
+\version "1.5.68"
 
 \header {
 texidoc="
 This shows how accidentals in different octaves are handled.
+FIXME: Shorten and docu
+
 "
 }
 
@@ -17,19 +20,19 @@ This shows how accidentals in different octaves are handled.
          (p (ly-get-mus-property music 'pitch)))
 
     (if (pair? es)
-        (ly-set-mus-property
+        (ly-set-mus-property!
          music 'elements
          (map no-octaves es)))
 
     (if (music? e)
-        (ly-set-mus-property
+        (ly-set-mus-property!
          music 'element
          (no-octaves e)))
 
     (if (pitch? p)
         (begin
           (set! p (lo-octave p))
-          (ly-set-mus-property music 'pitch p)))
+          (ly-set-mus-property! music 'pitch p)))
 
 
     music))
@@ -46,15 +49,19 @@ mel = \notes \transpose c'' {
 
 mus = \notes {
    \mel
-   \property Score.oneMeasureLazy = ##t
-   \property Score.autoAccidentals = #'((measure-same-octave . 0))
-   < s1^""^""^"$\\backslash$property Score.autoAccidentals = \\#'((measure-same-octave . 0))" \mel >
-   \property Score.autoAccidentals = #'((measure-same-octave . 1))
-   < s1^""^""^"$\\backslash$property Score.autoAccidentals = \\#'((measure-same-octave . 1))" \mel >
-   \property Score.autoAccidentals = #'((measure-any-octave . 0))
-   < s1^""^""^"$\\backslash$property Score.autoAccidentals = \\#'((measure-any-octave . 0))" \mel >
-   \property Score.autoAccidentals = #'((measure-any-octave . 1))
-   < s1^""^""^"$\\backslash$property Score.autoAccidentals = \\#'((measure-any-octave . 1))" \mel >
+
+%% FIXME.
+%   \property Score.oneMeasureLazy = ##t
+
+
+   \property Score.autoAccidentals = #'(Staff (same-octave . 0))
+   < s1^""^""^"$\\backslash$property Score.autoAccidentals = \\#'(Staff (same-octave . 0))" \mel >
+   \property Score.autoAccidentals = #'(Staff (same-octave . 1))
+   < s1^""^""^"$\\backslash$property Score.autoAccidentals = \\#'(Staff (same-octave . 1))" \mel >
+   \property Score.autoAccidentals = #'(Staff (any-octave . 0))
+   < s1^""^""^"$\\backslash$property Score.autoAccidentals = \\#'(Staff (any-octave . 0))" \mel >
+   \property Score.autoAccidentals = #'(Staff (any-octave . 1))
+   < s1^""^""^"$\\backslash$property Score.autoAccidentals = \\#'(Staff (any-octave . 1))" \mel >
    \modernAccidentals
    < s1^""^""^"$\\backslash$modernAccidentals" \mel >
    \modernCautionaries