]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/quote-during.ly
* scm/define-music-properties.scm (all-music-properties): add
[lilypond.git] / input / regression / quote-during.ly
1 \header
2 {
3
4     texidoc = "With @code{\\quoteDuring}, fragments of previously
5 entered music may be quoted. @code{quotedEventTypes} will determines
6 what things are quoted. In this example, a 16th rests is not quoted,
7 since @code{rest-event} is not in @code{quotedEventTypes}."
8
9 }
10 \version "2.4.0"
11 \layout {
12     raggedright = ##t
13 }
14
15
16 quoteMe = \relative c' { fis4 r16  a8.-> b4-\ff }
17
18 \addquote quoteMe \quoteMe 
19 original = \relative c'' { c8 d s2 es8 gis8 }
20
21 <<
22     \new Staff {
23         \set Staff.instrument = "quoteMe"
24         \quoteMe
25     }
26     \new Staff {
27         \set Staff.instrument = "orig"
28         \original
29     }
30     \new Staff \relative c'' <<
31
32         % setup cue note layout.
33         \context Voice = cue  {
34             \set fontSize = #-4
35             \override Stem #'lengths = #'(2.5 2.5 3.0 3.0)
36             \skip 1
37             }
38         
39         \set Staff.instrument = "orig+quote"    
40         \set Staff.quotedEventTypes = #'(note-event articulation-event)
41         \original
42         { s4 \quoteDuring #"quoteMe"  #1 { r2. } }
43     >>
44 >>