]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/quote.ly
Merge http://git.sv.gnu.org/r/lilypond
[lilypond.git] / input / regression / quote.ly
1 \header
2 {
3
4     texidoc = "With @code{\\quote}, fragments of previously entered
5 music may be quoted. @code{quotedEventTypes} will determines what
6 things are quoted. In this example, a 16th rests is not quoted, since
7 @code{rest-event} is not in @code{quotedEventTypes}."
8
9 }
10 \version "2.11.10"
11 \layout {
12     ragged-right = ##t
13 }
14
15
16 quoteMe = \relative c' { fis4 r16  a8.-> b4-\ff c }
17
18 \addQuote quoteMe \quoteMe 
19 original = \relative c'' { c8 d s2 es8 gis8 }
20
21 <<
22     \new Staff {
23         \set Staff.instrumentName = "quoteMe"
24         \quoteMe
25     }
26     \new Staff {
27         \set Staff.instrumentName = "orig"
28         \original
29     }
30     \new Staff \relative c'' <<
31         \set Staff.instrumentName = "orig+quote"        
32         \set Staff.quotedEventTypes = #'(note-event articulation-event)
33         \original
34         \new Voice {
35             s4
36             \set fontSize = #-4
37             \override Stem #'length-fraction = #(magstep -4)
38             \quoteDuring #"quoteMe" { \skip 2. }
39         }
40     >>
41 >>