Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / input / regression / quote.ly

diff --git a/input/regression/quote.ly b/input/regression/quote.ly
index f8a47044bc8956c4fffe6981fbb4e96eb231387f..8c4732520d780ef7ac8a2129c20468f47c91e80e 100644 (file)
--- a/input/regression/quote.ly
+++ b/input/regression/quote.ly
@@ -1,21 +1,41 @@
 \header
 {
 
-    texidoc = "With @code{\quote}, fragments of previously entered
-music may be quoted. " 
+    texidoc = "With @code{\\quote}, fragments of previously entered
+music may be quoted. @code{quotedEventTypes} will determines what
+things are quoted. In this example, a 16th rests is not quoted, since
+@code{rest-event} is not in @code{quotedEventTypes}."
 
 }
-\version "2.1.25"
+\version "2.7.39"
+\layout {
+    ragged-right = ##t
+}
+
 
-bla = \notes\relative c' { fis4 fis fis fis }
+quoteMe = \relative c' { fis4 r16  a8.-> b4-\ff c }
 
-#(add-quotable "bla" bla)
+\addquote quoteMe \quoteMe 
+original = \relative c'' { c8 d s2 es8 gis8 }
 
-\score {
-    \notes \relative c'' {
-       \set Score.quotes = \musicQuotes
-       
-       c8 d8 \quote 2 "bla" es8 gis  
+<<
+    \new Staff {
+       \set Staff.instrument = "quoteMe"
+       \quoteMe
+    }
+    \new Staff {
+       \set Staff.instrument = "orig"
+       \original
+    }
+    \new Staff \relative c'' <<
+       \set Staff.instrument = "orig+quote"    
+       \set Staff.quotedEventTypes = #'(note-event articulation-event)
+       \original
+       \new Voice {
+           s4
+           \set fontSize = #-4
+           \override Stem #'length-fraction = #(magstep -4)
+           \quoteDuring #"quoteMe" { \skip 2. }
        }
-}
-    
+    >>
+>>