2 \include "example-header.ily"
4 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5 % This is a brief passage from Enrique Granados %
6 % Goyescas, "Coloquio en la Reja." %
7 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8 #(set-global-staff-size
17)
12 #(set-paper-size
"letter" 'landscape
)
17 csh
= \change Staff
= "high"
18 csm
= \change Staff
= "middle"
19 csl
= \change Staff
= "low"
21 crmolto
= \markup { \italic \large "cresc. molto" }
22 appassmolto
= \markup { \italic \large "appassionato molto" }
24 #(ly
:set-option
'point-and-click
#f)
29 \override Beam
#'thickness
= #0.5
30 \override NoteColumn
#'ignore-collision
= ##t
33 upperVoiceOne
= \relative c'' {
35 \override TupletBracket
#'transparent
= ##t
36 <aes
f'>8\
([ \times 4/5{g'32( aes
g f g]) }
37 <es aes
>8[ \times 4/5{<d bes'>32( c' bes aes
bes]) }
38 <es, aes
es'>8 <d fis b d>\
) |
% end m. 1
39 %--------------------------------------------------%
40 <c g' c>4\
( \voiceTwo <bes es bes'\arpeggio>\)
41 \slurUp <aes aes
'>16( <bes bes'> <g g'>8) % end m. 2
42 %--------------------------------------------------%
45 <f aes
d f>8\
([ \times 4/5{<g g'>32( aes
' g f g]) }
46 \set subdivideBeams
= ##t
47 \set baseMoment
= #(ly
:make-moment
1 8)
48 \set beatStructure
= #'(2 2 2)
49 <aes
, aes
'>16 <c f> \times 4/5{ bes'32( c bes aes
bes]) }
50 \set subdivideBeams
= ##f
51 \ottava #1 <es es'>16 <f f'> <d d'> \appoggiatura f8 <es es'>16\
)
54 upperVoiceTwo
= \relative c'' {
56 s8 c8\< <bes, f'>[ <bes aes
'> c' <bes, d fis>\!]
57 s32 s32_\appassmolto s8. \voiceOne r
8 <bes'' es bes'>-
> s4
58 \override Stem
#'cross-staff
= ##t
59 \override Stem
#'length
= #28
60 \override Stem
#'flag-style
= #'no-flag
61 s8 \voiceTwo g,8 aes
4 s4
64 middleVoiceOne
= \relative c' {
65 \override Stem
#'cross-staff
= ##t
66 \override Stem
#'length
= #32
67 \override Stem
#'flag-style
= #'no-flag
68 d!8\noBeam s8 s8 s8_\crmolto s4 % 1
69 s4 <g bes\arpeggio>8[ <es' g>] \voiceOne e,8( dis16 e) |
% 2
71 \revert Stem
#'cross-staff
77 middleVoiceTwo
= \relative c' {
79 \override Stem
#'cross-staff
= ##t
80 \override Stem
#'length
= #24
81 \override Stem
#'flag-style
= #'no-flag
82 s2 \voiceTwo e!4 |
% 2
83 s4 \voiceTwo <bes c es f>8 <f' aes
es'>16 d' <bes, f' aes
c>8 <bes' fis'> |
% 3
86 lowerVoiceOne
= \relative c, {
87 \override Staff
.NoteCollision
#'merge-differently-headed
= ##t
88 \override Staff
.NoteCollision
#'merge-differently-dotted
= ##t
89 bes8 \csm \stemDown <bes'' c es>8 s2
91 \set subdivideBeams
= ##t
92 \set baseMoment
= #(ly
:make-moment
1 16)
93 \set beatStructure
= #'(4 4 4)
94 s8 \hideNotes \slurUp \stemDown
95 es,,64( bes'' s64 \unHideNotes \stemUp g64[ bes c d c]) s2
96 \set subdivideBeams
= ##f
97 bes,,8 \csm \stemDown <bes'' c es>8 s2
100 lowerVoiceTwo
= \relative c, {
104 \once \override Beam
#'damping
= #+inf
.0
105 <bes'' es g>8 \csl \slurUp
106 %\once\override Slur #'extra-offset = #'(0 . 4)
107 es,,64 bes' es g s32.
116 \set PianoStaff
.connectArpeggios
= ##t
117 % \override PianoStaff.Arpeggio #'stencil = #ly:arpeggio::brew-chord-bracket
118 \new Staff
= "high" <<
120 \context Voice
= "upperVoiceOne" { \upperVoiceOne }
121 \context Voice
= "upperVoiceTwo" { \upperVoiceTwo }
123 \new Staff
= "middle" <<
125 \context Voice
= "middleVoiceOne" { \middleVoiceOne }
126 \context Voice
= "middleVoiceTwo" { \middleVoiceTwo }
128 \new Staff
= "low" <<
131 \context Voice
= "lowerVoiceOne" { \lowerVoiceOne }
132 \context Voice
= "lowerVoiceTwo" { \lowerVoiceTwo }
138 \override TimeSignature
#'stencil
= ##f
139 \remove "Bar_number_engraver"
145 tempoWholesPerMinute = #(ly:make-moment 120 4)