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