]> git.donarmstrong.com Git - lilypond.git/blob - Documentation/ly-examples/granados.ly
Issue 5128: Prevent granados.ly image rotation in web.pdf
[lilypond.git] / Documentation / ly-examples / granados.ly
1 \version "2.19.40"
2 \include "example-header.ily"
3
4 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5 % This is a brief passage from Enrique Granados %
6 % Goyescas, "Coloquio en la Reja."              %
7 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8 #(set-global-staff-size 17)
9
10 \paper {
11   ragged-right = ##f
12   #(set-paper-size "letterlandscape")
13   system-count = 1
14 }
15
16
17 csh = \change Staff = "high"
18 csm = \change Staff = "middle"
19 csl = \change Staff = "low"
20
21 crmolto = \markup { \italic \large "cresc. molto" }
22 appassmolto = \markup { \italic \large "appassionato molto" }
23
24 #(ly:set-option 'point-and-click #f)
25
26 global = {
27   \time 3/4
28   \set fontSize = #1
29   \override Beam.thickness = #0.5
30   \override NoteColumn.ignore-collision = ##t
31 }
32
33 upperVoiceOne = \relative {
34   \voiceOne
35   \hide TupletBracket
36   <aes' f'>8\([ \tuplet 5/4{g'32( aes g f g]) }
37     <es aes>8[ \tuplet 5/4{<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   %--------------------------------------------------%
43   \noBreak
44   \voiceOne
45   <f aes d f>8\([ \tuplet 5/4{<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> \tuplet 5/4{ 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\)
52 }
53
54 upperVoiceTwo = \relative {
55   \voiceTwo
56   s8 c''8\< <bes, f'>[ <bes aes'> c' <bes, d fis>\!]
57   s32 s32_\appassmolto s8. \voiceOne r8 <bes'' es bes'>-> s4
58   \override Stem.cross-staff = ##t
59   \override Stem.length = #28
60   \override Flag.style = #'no-flag
61   s8 \voiceTwo g,8 aes4 s4
62 }
63
64 middleVoiceOne = \relative {
65   \override Stem.cross-staff = ##t
66   \override Stem.length = #32
67   \override 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
70   \revert Stem.length
71   \revert Stem.cross-staff
72   \showStaffSwitch
73   \csh \stemUp f4 s2
74   %s2.  % beginning m. 3
75 }
76
77 middleVoiceTwo = \relative {
78   s2. | % 1
79   \override Stem.cross-staff = ##t
80   \override Stem.length = #24
81   \override 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
84 }
85
86 lowerVoiceOne = \relative {
87   \override Staff.NoteCollision.merge-differently-headed = ##t
88   \override Staff.NoteCollision.merge-differently-dotted = ##t
89   bes,,8 \csm \stemDown <bes'' c es>8 s2
90   \csl \stemUp
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
98 }
99
100 lowerVoiceTwo = \relative {
101   \voiceTwo
102   bes,,2.
103   \csh
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.
108     c64
109     s4 <bes des>
110   bes,,2.
111 }
112
113
114 \score {
115   \new PianoStaff <<
116     \set PianoStaff.connectArpeggios = ##t
117 %    \override PianoStaff.Arpeggio.stencil = #ly:arpeggio::brew-chord-bracket
118     \new Staff = "high" <<
119       \global
120       \context Voice = "upperVoiceOne" { \upperVoiceOne }
121       \context Voice = "upperVoiceTwo" { \upperVoiceTwo }
122     >>
123     \new Staff = "middle" <<
124       \global
125       \context Voice = "middleVoiceOne" { \middleVoiceOne }
126       \context Voice = "middleVoiceTwo" { \middleVoiceTwo }
127     >>
128     \new Staff = "low" <<
129       \clef bass
130       \global
131       \context Voice = "lowerVoiceOne" { \lowerVoiceOne }
132       \context Voice = "lowerVoiceTwo" { \lowerVoiceTwo }
133     >>
134   >>
135   \layout {
136     \context {
137       \Score
138       \omit TimeSignature
139       \remove "Bar_number_engraver"
140     }
141   }
142   %{\midi {
143     \tempo 4 = 120
144   }%}
145 }