More Scheme vector quoting.
[lilypond.git] / input / lsr / quoting-another-voice.ly
blob19d9a285c611a478216055e28c14151791a17364
1 %% Do not edit this file; it is auto-generated from input/new
2 %% This file is in the public domain.
3 \version "2.11.52"
4 \header {
5 lsrtags = "staff-notation"
6 texidoc = "With @code{\\quote}, fragments of previously entered
7 music may be quoted. @code{quotedEventTypes} will determines which
8 items are quoted. In this example, a 16th rest is not quoted, since
9 @code{rest-event} is not in @code{quotedEventTypes}."
10 doctitle = "Quoting another voice"
11 } % begin verbatim
13 quoteMe = \relative c' { fis4 r16 a8.-> b4-\ff c }
15 \addQuote quoteMe \quoteMe
16 original = \relative c'' {
17 c8 d s2
18 \once \override NoteColumn #'ignore-collision = ##t
19 es8 gis8
23 \new Staff {
24 \set Staff.instrumentName = #"quoteMe"
25 \quoteMe
27 \new Staff {
28 \set Staff.instrumentName = #"orig"
29 \original
31 \new Staff \relative c'' <<
32 \set Staff.instrumentName = #"orig+quote"
33 \set Staff.quotedEventTypes = #'(note-event articulation-event)
34 \original
35 \new Voice {
37 \set fontSize = #-4
38 \override Stem #'length-fraction = #(magstep -4)
39 \quoteDuring #"quoteMe" { \skip 2. }