Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / input / regression / quote-cue-during.ly

diff --git a/input/regression/quote-cue-during.ly b/input/regression/quote-cue-during.ly
index 1bf62b7f6f4a15defac40595aa52cfc61db039f1..0d14d06af9bb24a305e6e0792e81728bc41f8be2 100644 (file)
--- a/input/regression/quote-cue-during.ly
+++ b/input/regression/quote-cue-during.ly
@@ -1,40 +1,48 @@
-\header { texidoc = " The @code{cueDuring} form of quotation will set
-stem directions on both quoted and main voice, and deliver the quoted
-voice in the @code{cue} @code{Voice}."
+\header {
+
+
+  texidoc = " The @code{cueDuring} form of quotation will set stem
+directions on both quoted and main voice, and deliver the quoted voice
+in the @code{cue} @code{Voice}. The music function @code{\killCues}
+can remove all cue notes.
+
+Spanners run to the end of a cue section, and are not started on the
+last note."
 
 }
-\version "2.5.0"
+
+\version "2.7.39"
 \layout {
-    raggedright = ##t
+  ragged-right = ##t
 }
 
-
-quoteMe = \relative c' { fis4 r16  a8.-> b4-\ff  c4 }
+quoteMe = \relative c' { fis4 r16  a8.-> b4(-\ff~  b16 c8.  b) }
 
 \addquote quoteMe \quoteMe 
-original = \relative c'' { c8 d s2 es8 gis8 }
+
+original = \relative c'' {
+  c8 d
+  \cueDuring #"quoteMe"  #1 { r2 }
+  es8 gis8
+  \cueDuring #"quoteMe"  #1 { r4 }
+}
+
+cueStaff =  \relative c'' <<
+  \set Staff.quotedEventTypes = #'(note-event articulation-event)
+  \original
+>>
 
 <<
-    \new Staff {
-       \set Staff.instrument = "quoteMe"
-       \quoteMe
-    }
-    \new Staff {
-       \set Staff.instrument = "orig"
-       \original
-    }
-    \new Staff \relative c'' <<
-
-       % setup cue note layout.
-       \context Voice = cue  {
-           \set fontSize = #-4
-           \override Stem #'lengths = #'(2.5 2.5 3.0 3.0)
-           \skip 1
-           }
-       
-       \set Staff.instrument = "orig+quote"    
-       \set Staff.quotedEventTypes = #'(note-event articulation-event)
-       \original
-       { s4 \cueDuring #"quoteMe"  #1 { r2. } }
-    >>
+  \new Staff {
+    \set Staff.instrument = "quoteMe"
+    \quoteMe
+  }
+  \new Staff {
+    \set Staff.instrument = "orig (killCues)"
+    \killCues \original
+  }
+  \new Staff {
+    \set Staff.instrument = "orig+quote"       
+    \cueStaff
+  }
 >>