X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Frest-ledger.ly;h=f06bda4a7e3831e6afa744049f5b4756b59491ae;hb=b38989c86d64ef41025672f9bd2d2fcfd6cd700e;hp=26ffc927741d13f6ee1e58ae909b8eee7ddefe7c;hpb=2b4664417d36bed2b408d769e3dfd96732710d54;p=lilypond.git

diff --git a/input/regression/rest-ledger.ly b/input/regression/rest-ledger.ly
index 26ffc92774..f06bda4a7e 100644
--- a/input/regression/rest-ledger.ly
+++ b/input/regression/rest-ledger.ly
@@ -1,32 +1,41 @@
-\version "1.7.6"
+\version "2.17.6"
 \header {
-texidoc = "whole and half rests moving outside the staff should get
-ledger lines"
+texidoc = "Breve, whole and half rests moving outside the staff should get
+ledger lines."
 }
 
 
-\score {
-\notes  {
-   \property Voice.Rest \set #'staff-position  = #4
-  r1 \property Voice.Rest \set #'staff-position  = #5
-  r1 \property Voice.Rest \set #'staff-position  = #6
-  
-  r1 \property Voice.Rest \set #'staff-position  = #-6
-  r1 \property Voice.Rest \set #'staff-position  = #-7
-  r1 \property Voice.Rest \set #'staff-position  = #-8
-  r1
-
-   \property Voice.Rest \set #'staff-position  = #6
-  r2 \property Voice.Rest \set #'staff-position  = #7
-  r2 \property Voice.Rest \set #'staff-position  = #8
-  
-  r2 \property Voice.Rest \set #'staff-position  = #-4
-  r2 \property Voice.Rest \set #'staff-position  = #-5
-  r2 \property Voice.Rest \set #'staff-position  = #-6
-  r2
-
-  
-
-  
-}}
-%% new-chords-done %%
+\paper { ragged-right = ##t }
+
+rPos =
+#(define-music-function (parser location y) (number?)
+  #{ \override Rest.staff-position = #y #})
+
+{
+  \set Score.timing = ##f
+  \rPos #2
+  r\breve \rPos #4
+  r \rPos #5
+  r \rPos #-4
+  r \rPos #-6
+  r \rPos #-7
+  r
+
+  \rPos #2
+  r1 \rPos #4
+  r \rPos #5
+  r \rPos #-6
+  r \rPos #-7
+  r \rPos #-8
+  r
+
+  \rPos #4
+  r2 \rPos #6
+  r \rPos #7
+  r \rPos #-4
+  r \rPos #-6
+  r \rPos #-7
+  r
+
+}
+