]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/make-relative.ly
Issue 5167/6: Changes: show \markup xxx = ... \etc assignments
[lilypond.git] / input / regression / make-relative.ly
index 04bbed39005636ea0403f70745c5e4cb84eba9aa..ee458b57a7131f9ac1ed7039e77a2d8390527c05 100644 (file)
@@ -1,4 +1,4 @@
-\version "2.19.0"
+\version "2.19.22"
 \header {
 
   texidoc = "@code{make-relative} is a Scheme utility macro mainly
@@ -14,7 +14,7 @@ The fragment should appear identical in both cases."
 \layout { ragged-right= ##t }
 
 ph =
-#(define-music-function (parser location p1 p2 p3 p4 p5)
+#(define-music-function (p1 p2 p3 p4 p5)
   (ly:pitch? ly:pitch? ly:pitch? ly:pitch? ly:pitch?)
   (make-relative (p1 p2 p3 p4 p5) (make-event-chord (list p1 p2 p3 p4 p5))
    #{
@@ -32,16 +32,16 @@ ph =
   \ph d a d' fis' c''
   \oneVoice R1*21 \voiceTwo | \skip 1*21 | R1*21 |
   \ph c, c g bes e'
-  c,2~ c, | r16 c8. ~ c4 ~ c2
+  c,2~ 2 | r16 c8. ~ 4 ~ 2
   | r8 f16 a c' f' c' a c' a f a f d f d |
-  c,2~ c, | r16 b,8. ~ b,4 ~ b,2
+  c,2~ 2 | r16 b,8. ~ 4 ~ 2
   | r8 g'16 b' d'' f'' d'' b' d'' b' g' b' d' f' e' d' |
   c,1\fermata | c1 | <e' g' c''>1\fermata \bar "|." |
 }
 
 \score {
-  \new PianoStaff <<
-    \compressFullBarRests
+  \new PianoStaff
+  \compressMMRests <<
     \new Staff = "up" {
       << \high \\ \middle >>
     }
@@ -61,16 +61,16 @@ ph =
   \ph d, a' d fis c'
   \oneVoice R1*21 \voiceTwo | \skip 1*21 | R1*21 |
   \ph c, c' g' bes e
-  c2~ c | r16 c'8. ~ c4 ~ c2
+  c2~ 2 | r16 c'8. ~ 4 ~ 2
   | r8 f16 a c f c' a c a f a f d f d |
-  c,,2~ c | r16 b'8. ~ b4 ~ b2
+  c,,2~ 2 | r16 b'8. ~ 4 ~ 2
   | r8 g'16 b d f d b d b g b d f e d |
   c,,1\fermata | c'1 | <e' g c>1\fermata \bar "|." |
 }
 
 \score {
-  \new PianoStaff <<
-    \compressFullBarRests
+  \new PianoStaff
+  \compressMMRests <<
     \new Staff = "up" {
       << \high \\ \middle >>
     }