Imported Upstream version 2.16.0

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

diff --git a/input/regression/quote.ly b/input/regression/quote.ly
index 5ff0f860b6a074e7b393637f35056d5515c4f857..ffa937775b2c743e39f56d11a66fb8a88d8749c8 100644 (file)
--- a/input/regression/quote.ly
+++ b/input/regression/quote.ly
@@ -3,29 +3,40 @@
 
     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
+things are quoted. In this example, a 16th rest is not quoted, since
 @code{rest-event} is not in @code{quotedEventTypes}."
 
 }
-\version "2.3.16"
-\paper {
-    raggedright = ##t
+\version "2.16.0"
+\layout {
+    ragged-right = ##t
 }
 
-\addquote bla \relative c' {
-    fis4 r16  a8.-> b-\ff }
 
-\relative c'' {
+quoteMe = \relative c' { fis4 r16  a8.-> b4-\ff c }
 
-    \set Staff.quotedEventTypes = #'(note-event articulation-event)
-    c8 d8  <<
-       s2 
-       \new Voice {
-           \set fontSize = #-2
-           \quote bla 2
+\addQuote quoteMe \quoteMe 
+original = \relative c'' { c8 d s2 es8 gis8 }
 
-       } >>
-    es8 gis
-       
+<<
+    \new Staff {
+       \set Staff.instrumentName = "quoteMe"
+       \quoteMe
     }
-
+    \new Staff {
+       \set Staff.instrumentName = "orig"
+       \original
+    }
+    \new Staff \relative c'' <<
+       \set Staff.instrumentName = "orig+quote"        
+       \set Staff.quotedEventTypes = #'(note-event articulation-event)
+       \new Voice {\voiceOne
+           \original }
+         \new Voice {\voiceTwo
+           s4
+           \set fontSize = #-4
+           \override Stem #'length-fraction = #(magstep -4)
+           \quoteDuring #"quoteMe" { \skip 2. }
+       }
+    >>
+>>