From 597ee64afe9c20dd9e31021f5dda313921396a5a Mon Sep 17 00:00:00 2001 From: Bertrand Bordage Date: Mon, 25 Jul 2011 15:32:55 +0200 Subject: [PATCH] Update regtest for ledgered breve rests. --- input/regression/rest-ledger.ly | 49 ++++++++++++++++++++------------- 1 file changed, 30 insertions(+), 19 deletions(-) diff --git a/input/regression/rest-ledger.ly b/input/regression/rest-ledger.ly index 8c87844510..7ce98247f2 100644 --- a/input/regression/rest-ledger.ly +++ b/input/regression/rest-ledger.ly @@ -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 } -- 2.39.5