1\version "2.21.0"
2
3\header {
4    composer = "ARTHUR GRAY"
5    title = "LES NÉRÉIDES"
6    subtitle = "THE NEREIDS"
7    enteredby = "JCN"
8    piece = "Allegretto scherzando"
9    copyright = "public domain"
10
11    texidoc="Highly tweaked example of lilypond output"
12}
13
14%{
15
16Nastiest piece of competition at
17http://www.orphee.com/comparison/study.html, see
18http://www.orphee.com/comparison/gray.pdf
19
20Lines that contain tweaks (3 currently, not counting reverts) are
21marked with %tweak
22
23possibly more impressive to render without tweaks?
24
25  grep -v tweak input/les-nereides.ly >> lnnt.ly
26  lilypond lnnt.ly
27
28%}
29
30treble = \new Voice \relative c''{
31    \key a \major
32    r2
33    | %2
34    \stemUp
35    r4 <cis eis a cis>\arpeggio r2
36    | %3
37    r4 <cis fis a cis>\arpeggio r8.
38
39    \change Staff=bass
40
41    cis,16^2(^\markup {\small \italic "m.d." }\sustainOff
42    <fis fis,>8 <e! e,!>
43    | %4
44    <dis, a' dis>4)\sustainOn
45
46    \change Staff=treble
47
48    \slurUp
49    \set PianoStaff.connectArpeggios = ##t
50
51    \ottava #1
52
53    \tieUp
54    cis''''4^\markup { \small \italic "m.g." }\arpeggio~
55    \grace {
56        cis8
57	\revert Stem.direction
58
59	a16[-5_( fis dis]
60	\ottava #0
61
62	cis32[ a-1 fis-4 dis]   cis[ a  fis)-2]
63				% the small grace in lower staff comes after us
64	s32
65    }
66
67
68    \stemUp
69    cis'4( bis)
70
71    | %5
72    r8 <a' a,>8(\mf <gis gis,> <fis fis,>
73
74    % \fingerUp
75    \override Fingering.direction = #UP
76
77    <gis gis,> <fis fis,> e)-1-4-5 r
78
79    | %6
80    r <a a,>8(\mf <gis gis,> <fis fis,>
81    <gis gis,> <fis fis,>  e) r
82
83    | %7
84    \bar "||"
85}
86
87trebleTwo = \new Voice \relative c''{
88    \stemDown
89    \slurDown
90    % \fingerDown
91    \override Fingering.direction = #DOWN
92    s2
93    | %1
94    s1*2
95    | %4
96    s4
97    <cis' a fis dis>4\arpeggio
98    <e, gis, e d!>2
99    | %5
100    s8 cis4. d4
101    <cis e,>8[( <d,_3 b'_1>
102    | %6
103    <cis_1 a'_2>)] cis'4. d4
104    <cis e,>8[( <b d,>
105    | %7
106    <a cis,>)]
107}
108
109bass = \new Voice \relative c{
110    \partial 2
111    \key a \major
112
113    \slurDown
114    \dynamicUp
115
116    r8. e,16(\f_2 <a a,>8[ <b b,>]
117    | %2
118    %\override Staff.SustainPedalLineSpanner.staff-padding = #5 %tweak
119
120    <cis cis,>4\sustainOn
121    \change Staff=treble
122    \stemDown
123    <a'' eis cis>4)\arpeggio
124
125    \change Staff=bass
126    \stemNeutral
127
128    r8. cis,,16(\sustainOff <fis fis,>8 <gis gis,>
129
130    | %3
131
132    <a a,>4\sustainOn
133    \change Staff=treble
134
135    \stemNeutral
136    \stemDown
137    <a' fis cis>)\arpeggio
138    \change Staff=bass
139    \stemNeutral
140    r2
141
142    | %4
143    \stemDown
144    <b,, b,>4
145    \clef treble
146    \stemNeutral
147    <<
148        %urg: staff-change: ! on dis
149        <cis'' a fis dis!>\arpeggio
150    >>
151
152    \grace {
153	\override Flag.stroke-style = "grace"
154
155        s8
156        s16 s s
157 	s32 s s
158	s s s
159	\clef bass
160	<e,,, e,>32(\sustainOff\sustainOn
161
162	\revert Flag.stroke-style
163    }
164    <gis' e>2)
165
166    | %5
167    \slurUp
168
169    % \fingerDown
170    \override Fingering.direction = #DOWN
171
172
173    %\override Staff.SustainPedalLineSpanner.staff-padding = #3.5 %tweak
174    \set Staff.pedalSustainStyle = #'mixed
175    %%a,8 e'[-5(<a-2 cis-3>])
176
177
178    a,8\sustainOn e'[-5(<a cis>])-2-3
179    %%r b,-5 <e-3 gis-5 d'>4
180    r b,-5\sustainOff\sustainOn <e gis d'>4-3-5
181    \slurNeutral
182    e,8[-5(\sustainOff
183
184    | %6
185    a)-2]\sustainOn
186    \slurUp
187    e'[(<a cis>)] r b,\sustainOff\sustainOn <e gis d'>4
188    \slurNeutral
189    e,8[(\sustainOff
190
191    | %7
192    a)]
193}
194
195bassTwo = \new Voice \relative c{
196    \skip 2
197    \skip 1*2
198    \skip 2
199
200    \stemUp
201    \slurUp
202
203    cis'4( bis)
204}
205
206middleDynamics = {
207    %\override Dynamics.TextScript.padding = #-1 %tweak
208    s2
209    s1*2
210    | %4
211    s2
212    \grace {
213	s8
214	s16 s s
215	s32 s
216	s\> s
217	s32 s s\! s
218
219    }
220    \textLengthOn
221    s32 s-"rall." s s s8 s4
222    \textLengthOff
223    | %5
224    s2-"a tempo" s8
225    s \> s s
226    | %6
227    s8\!
228    s2 s8 s\> s
229    | %7
230    s8\!
231}
232
233theScore = \score{
234    \context PianoStaff <<
235        \new Staff = "treble" <<
236            \set beamExceptions =
237	      \beamExceptions { 8[ 8] 8[ 8] 8[ 8] 8[ 8] |
238				\repeat unfold 8 { 32[ 32 32 32] } }
239	    \treble
240	    \trebleTwo
241        >>
242	\new Dynamics <<
243	    \middleDynamics
244	>>
245        \new Staff = "bass" <<
246	    \clef bass
247	    \bass
248	    \bassTwo
249        >>
250    >>
251    \layout {
252	\context {
253	    \Score
254	    pedalSustainStrings = #'("Ped." "*Ped." "*")
255	    \remove "Bar_number_engraver"
256        }
257    }
258}
259
260\book{
261    \score { \theScore }
262}
263
264%%% Local variables:
265%%% coding: utf-8
266%%% LilyPond-indent-level:2
267%%% End:
268
269