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