Imported Upstream version 2.16.0

[lilypond.git] / input / regression / cue-clef-after-barline.ly

diff --git a/input/regression/cue-clef-after-barline.ly b/input/regression/cue-clef-after-barline.ly
new file mode 100644 (file)
index 0000000..d514fc1
--- /dev/null
+++ b/input/regression/cue-clef-after-barline.ly
@@ -0,0 +1,38 @@
+\version "2.16.0"
+
+instrument = \relative c' {
+  \repeat unfold 40 { c8 }
+}
+\addQuote "instrQuote" \instrument
+
+Solo = \relative c' { 
+  c2 c |
+  
+  % Change the break-align-orders of the score so that cue-clef comes after bar-line
+  \override Score.BarLine #'space-alist #'cue-clef = #'(minimum-space . 1.0)
+  \override Score.BreakAlignment #'break-align-orders  =
+    ##(( ;; end-of-line:
+         left-edge cue-end-clef ambitus breathing-sign clef staff-bar
+         key-cancellation key-signature time-signature cue-clef custos)
+       ( ;; unbroken
+         left-edge cue-end-clef ambitus breathing-sign clef staff-bar
+         key-cancellation key-signature time-signature cue-clef custos)
+       ( ;; begin of line
+         left-edge ambitus breathing-sign clef key-cancellation
+         key-signature staff-bar time-signature cue-clef custos))
+
+  \cueDuringWithClef #"instrQuote" #UP #"bass" { R1 }
+  c2 c2 |
+  
+  % Revert back to default
+  \revert Score.BarLine #'(space-alist cue-clef)
+  \revert Score.BreakAlignment #'break-align-orders
+  \cueDuringWithClef #"instrQuote" #UP #"bass" { R1 }
+  c2 c2 |
+}
+
+\score {
+  <<
+    \new Staff \Solo
+  >>
+}