]> git.donarmstrong.com Git - lilypond.git/commitdiff
Update regtest for ledgered breve rests.
authorBertrand Bordage <bordage.bertrand@gmail.com>
Mon, 25 Jul 2011 13:32:55 +0000 (15:32 +0200)
committerGraham Percival <graham@percival-music.ca>
Mon, 25 Jul 2011 20:14:28 +0000 (13:14 -0700)
input/regression/rest-ledger.ly

index 8c878445103df66ae2362e80cbd3d2121b77b3c3..7ce98247f2d717d262e472e3d4bb7c9711469bac 100644 (file)
@@ -1,30 +1,41 @@
 \version "2.14.0"
 \header {
-texidoc = "Whole and half rests moving outside the staff should get
+texidoc = "Breve, whole and half rests moving outside the staff should get
 ledger lines."
 }
 
 
-\paper { ragged-right = ##t } 
+\paper { ragged-right = ##t }
+
+rPos =
+#(define-music-function (parser location y) (number?)
+  #{ \override Rest #'staff-position = #$y #})
 
 {
-   \override Rest  #'staff-position = #4
-  r1 \override Rest  #'staff-position = #5
-  r1 \override Rest  #'staff-position = #6
-  
-  r1 \override Rest  #'staff-position = #-6
-  r1 \override Rest  #'staff-position = #-7
-  r1 \override Rest  #'staff-position = #-8
-  r1
-
-   \override Rest  #'staff-position = #6
-  r2 \override Rest  #'staff-position = #7
-  r2 \override Rest  #'staff-position = #8
-  
-  r2 \override Rest  #'staff-position = #-4
-  r2 \override Rest  #'staff-position = #-5
-  r2 \override Rest  #'staff-position = #-6
-  r2
+  \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
 
 }