]> git.donarmstrong.com Git - lilypond.git/blob - input/manual/simultaneous-headword.ly
Add a TODO comment re grace note spacing.
[lilypond.git] / input / manual / simultaneous-headword.ly
1 \version "2.11.34"
2 \include "english.ly"
3
4 % NR 1.5 Simultaneous notes
5
6 % L. v. Beethoven, Op. 111
7 % Piano sonata 32
8 % Movt II - Arietta - Adagio molto semplice e cantabile
9 % measures 108 - 118
10
11 \layout {
12    \context {
13       \Score
14       \override SpacingSpanner #'base-shortest-duration = 
15          #(ly:make-moment 1 18) 
16       \override NonMusicalPaperColumn #'line-break-system-details =
17          #'((alignment-offsets . (0 -12)))
18    }
19 }
20
21 \new PianoStaff <<
22
23    % RH
24    \new Staff <<
25       \clef treble
26       \key c \major
27       \time 9/16
28       \set Score.currentBarNumber = #108
29
30       % RH voice 1
31       \new Voice {
32
33          \voiceOne
34          s4.
35          s8.
36
37          |
38
39          s4.
40          a''8 \p \> [ (
41          g''16 ] )
42
43          |
44
45          g''4.
46          af''8 [ (
47          g''16 ] )
48
49          |
50
51          g''8. [
52          g''8.
53          g''8. \pp ]
54
55          |
56
57          g''8. [
58          af''8.
59          af''8. ]
60
61          |
62
63          af''8. [
64          af''8.
65          af''8. ]
66
67          |
68
69          af''4. \startTrillSpan
70          ~
71          af''8.
72          ~
73
74          |
75
76          af''4.
77          ~
78          af''8.
79          ~
80
81          |
82
83          \oneVoice
84          <af'' d''>8. [
85          a''8. \p \<
86          bf''8. ]
87          ~
88
89          |
90
91          bf''8. [
92          b''8.
93          c'''8. ]
94          ~
95
96          \bar "||"
97
98          \key ef \major
99          c'''8. [
100          cs'''8. \f ] \stopTrillSpan 
101          
102       }
103
104       % RH voice 2
105       \new Voice {
106          \voiceTwo
107          \override Voice.TrillSpanner #'direction = #down
108          d''4. \f \startTrillSpan
109          ~
110          d''8.
111          ~
112
113          |
114
115          d''4.
116          ~
117          d''8.
118          ~
119
120          |
121
122          d''8. \stopTrillSpan
123          d''4. \startTrillSpan
124          ~
125
126          |
127
128          d''4.
129          ~
130          d''8.
131          ~
132
133          |
134
135          d''4.
136          ~
137          d''8.
138          ~
139
140          |
141
142          d''4.
143          ~
144          d''8. \stopTrillSpan
145          ~
146
147          |
148
149          d''4. \startTrillSpan
150          ~
151          d''8.
152          ~
153
154          |
155
156          d''4.
157          ~
158          d''8.
159          ~
160
161          |
162
163          \once \override NoteColumn #'ignore-collision = ##t
164          \once \override NoteHead #'transparent = ##t
165          \once \override Dots #'transparent = ##t
166          \once \override Stem #'transparent = ##t
167          d''8. \stopTrillSpan
168          s4.
169
170          |
171
172          s8.
173          s8.
174
175       }
176
177    >>
178
179    % LH staff
180    \new Staff {
181       \clef bass
182       \key c \major
183       \time 9/16
184       
185       r8.
186       r8.
187       <c! c,!>8 [ (
188       <g, g,,>16 ] )
189
190       |
191
192       <g, g,,>4.
193       \clef treble
194       c''8 [ (
195       b'16 ] )
196
197       |
198
199       b'4.
200       c''8 [ (
201       b'16 ] )
202
203       |
204
205       b'8. [
206       b'8.
207       b'8. ]
208
209       |
210
211       b'8. [
212       bf'8. ]
213       \clef bass
214       <f f,>8 [ (
215       <bf, bf,,>16 ] )
216
217       |
218
219       <bf, bf,,>4.
220       \clef treble
221       f'8 [ (
222       bf16 ] )
223
224       |
225
226       <<
227
228          \new Voice {
229             \voiceOne
230             \override Voice.TrillSpanner #'direction = #up
231             f'4. \startTrillSpan
232             ~
233             f'8.
234             ~
235
236             |
237
238             f'4.
239             ~
240             f'8.
241             ~
242
243             |
244
245             f'8. \stopTrillSpan
246          }
247
248          \new Voice {
249             \voiceTwo
250             \override Voice.TrillSpanner #'direction = #down
251             bf8. [
252             bf8.
253             bf8. ]
254
255             |
256
257             bf8. [
258             bf8.
259             bf8. ]
260
261             |
262
263             bf8.
264          }
265
266       >>
267
268       \oneVoice
269       r8.
270       r8.
271
272       |
273
274       r8.
275       r8.
276       r8.
277       \clef bass
278
279       |
280
281       \key ef \major
282       r8.
283       r8.
284          
285    }
286    
287 >>