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