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 beatLength = #(ly:make-moment 1 8)
48 <aes, aes'>16 <c f> \times 4/5{ bes'32( c bes aes bes]) }
49 \set subdivideBeams = ##f
50 \ottava #1 <es es'>16 <f f'> <d d'> \appoggiatura f8 <es es'>16\)
53 upperVoiceTwo = \relative c'' {
55 s8 c8\< <bes, f'>[ <bes aes'> c' <bes, d fis>\!]
56 s32 s32_\appassmolto s8. \voiceOne r8 <bes'' es bes'>-> s4
57 \override Stem #'cross-staff = ##t
58 \override Stem #'length = #28
59 \override Stem #'flag-style = #'no-flag
60 s8 \voiceTwo g,8 aes4 s4
63 middleVoiceOne = \relative c' {
64 \override Stem #'cross-staff = ##t
65 \override Stem #'length = #32
66 \override Stem #'flag-style = #'no-flag
67 d!8\noBeam s8 s8 s8_\crmolto s4 % 1
68 s4 <g bes\arpeggio>8[ <es' g>] \voiceOne e,8( dis16 e) | % 2
70 \revert Stem #'cross-staff
76 middleVoiceTwo = \relative c' {
78 \override Stem #'cross-staff = ##t
79 \override Stem #'length = #24
80 \override Stem #'flag-style = #'no-flag
81 s2 \voiceTwo e!4 | % 2
82 s4 \voiceTwo <bes c es f>8 <f' aes es'>16 d' <bes, f' aes c>8 <bes' fis'> | % 3
85 lowerVoiceOne = \relative c, {
86 \override Staff.NoteCollision #'merge-differently-headed = ##t
87 \override Staff.NoteCollision #'merge-differently-dotted = ##t
88 bes8 \csm \stemDown <bes'' c es>8 s2
90 \set subdivideBeams = ##t
91 \set beatLength = #(ly:make-moment 1 16)
92 s8 \hideNotes \slurUp \stemDown
93 es,,64( bes'' s64 \unHideNotes \stemUp g64[ bes c d c]) s2
94 \set subdivideBeams = ##f
95 bes,,8 \csm \stemDown <bes'' c es>8 s2
98 lowerVoiceTwo = \relative c, {
102 \once \override Beam #'damping = #+inf.0
103 <bes'' es g>8 \csl \slurUp
104 %\once\override Slur #'extra-offset = #'(0 . 4)
105 es,,64 bes' es g s32.
114 \set PianoStaff.connectArpeggios = ##t
115 % \override PianoStaff.Arpeggio #'stencil = #ly:arpeggio::brew-chord-bracket
116 \new Staff = "high" <<
118 \context Voice = "upperVoiceOne" { \upperVoiceOne }
119 \context Voice = "upperVoiceTwo" { \upperVoiceTwo }
121 \new Staff = "middle" <<
123 \context Voice = "middleVoiceOne" { \middleVoiceOne }
124 \context Voice = "middleVoiceTwo" { \middleVoiceTwo }
126 \new Staff = "low" <<
129 \context Voice = "lowerVoiceOne" { \lowerVoiceOne }
130 \context Voice = "lowerVoiceTwo" { \lowerVoiceTwo }
136 \override TimeSignature #'stencil = ##f
137 \remove "Bar_number_engraver"
143 tempoWholesPerMinute = #(ly:make-moment 120 4)