Add two more regtests for cue-clef (testing cueClef/cueClefUnset and moving clefs...
authorReinhold Kainhofer <reinhold@kainhofer.com>
Thu, 2 Jun 2011 15:07:35 +0000 (17:07 +0200)
committerReinhold Kainhofer <reinhold@kainhofer.com>
Mon, 6 Jun 2011 20:37:34 +0000 (22:37 +0200)
input/regression/cue-clef-after-barline.ly [new file with mode: 0644]
input/regression/cue-clef-manually.ly [new file with mode: 0644]

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..b03cfc3
--- /dev/null
@@ -0,0 +1,38 @@
+\version "2.13.63"
+
+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
+  >>
+}
diff --git a/input/regression/cue-clef-manually.ly b/input/regression/cue-clef-manually.ly
new file mode 100644 (file)
index 0000000..37e2a0d
--- /dev/null
@@ -0,0 +1,24 @@
+\version "2.13.63"
+
+Solo = \relative c' { 
+  c4 c c c |
+
+  % Manually written cue notes, not quoted from another lilypond voice:
+  << 
+    { \voiceTwo R1 \oneVoice }
+    \new CueVoice 
+    {
+      \cueClef "bass"
+      \voiceOne
+      c4 c c c |
+      \cueClefUnset 
+    }
+  >>
+  c4 c c c |
+}
+
+\score {
+  <<
+    \new Staff \Solo
+  >>
+}