1 #(ly:set-option 'old-relative)
5 composer = "ARTHUR GRAY"
7 subtitle = "THE NEREIDS"
9 piece = "Allegretto scherzando"
10 copyright = "public domain"
15 Nastiest piece of competition at
16 http://www.orphee.com/comparison/study.html, see
17 http://www.orphee.com/comparison/gray.pdf
20 lines that contain tweaks (17 currently, not counting reverts) are
23 possibly more impressive to render without tweaks?
25 grep -v tweak input/les-nereides.ly >> lnnt.ly
30 #(ly:set-point-and-click 'line-column)
31 #(define (make-text-checker text)
32 (lambda (elt) (equal? text (ly:get-grob-property elt 'text))))
35 treble = \new Voice \notes\relative c''{
40 r4 <cis eis a cis>\arpeggio r2
42 r4 <cis fis a cis>\arpeggio r8.
46 \once\override TextScript #'extra-offset = #'(-3 . -4) %tweak
48 cis,16^2(^\markup {\small \italic "m.d." }\sustainUp
51 <dis, a' dis>4)\sustainDown
56 \set PianoStaff.connectArpeggios = ##t
60 \once\override TextScript #'extra-offset = #'(-3 . -2) %tweak
63 cis''''4^\markup { \small \italic "m.g." }\arpeggio~
68 \override Stem #'direction = #0
73 cis32[ a-1 fis-4 dis] cis[ a fis)-2]
74 % the small grace in lower staff comes after us
83 r8 <a' a,>8(\mf <gis gis,> <fis fis,>
86 \override Fingering #'direction = #1
88 % Manual fix for collision with slur
89 \override Fingering #'extra-offset = #'(0 . 1) %tweak
90 <gis gis,> <fis fis,> e)-1-4-5 r
93 r <a a,>8(\mf <gis gis,> <fis fis,>
94 <gis gis,> <fis fis,> e) r
100 trebleTwo = \new Voice \notes\relative c''{
104 \override Fingering #'direction = #-1
105 \override Fingering #'extra-offset = #'(0 . 1.2)
111 <cis' a fis dis>4\arpeggio
115 %%<cis e,>8[( <b-3 d,-1>
116 <cis e,>8[( <b d,>-3-1
118 %%<a-2 cis,-1>)] cis4. d4
119 <a cis,>)]-2-1 cis4. d4
125 bass = \new Voice \notes\relative c{
129 % Allow ugly (highly blown-up) slurs
130 \override Slur #'beautiful = #5.0 %tweak
131 \override Slur #'attachment-offset = #'((0 . 3) . (0 . -4)) %tweak
136 r8. e,16(\f_2 <a a,>8[ <b b,>]
138 \override Staff.SustainPedalLineSpanner #'staff-padding = #5
140 <cis cis,>4\sustainDown
143 \override Slur #'attachment = #'(stem . stem) %tweak
144 <a'' eis cis>4)\arpeggio
146 \revert Slur #'attachment %tweak
150 \revert Slur #'y-free %tweak
151 \override Slur #'y-free = #0.1 %tweak
152 \revert Slur #'attachment-offset %tweak
153 \override Slur #'attachment-offset = #'((0 . 3) . (0 . 8)) %tweak
154 r8. cis,,16(\sustainUp <fis fis,>8 <gis gis,>
157 \override Stem #'length = #5 %tweak
161 \revert Stem #'length %tweak
162 \revert Stem #'direction
163 \override Stem #'direction = #-1
164 <a' fis cis>)\arpeggio
166 \revert Stem #'direction
170 \revert Slur #'beautiful %tweak
171 \revert Slur #'attachment-offset %tweak
177 %urg: staff-change: ! on dis
178 <cis'' a fis dis!>\arpeggio
182 \override Stem #'stroke-style = #"grace"
189 <e,,, e,>32(\sustainUp\sustainDown
191 \revert Stem #'stroke-style
199 \override Fingering #'direction = #-1
202 \override Staff.SustainPedalLineSpanner #'staff-padding = #3.5
203 \set Staff.pedalSustainStyle = #'mixed
204 %%a,8 e'[-5(<a-2 cis-3>])
207 a,8\sustainDown e'[-5(<a cis>])-2-3
208 %%r b,-5 <e-3 gis-5 d'>4
209 r b,-5\sustainUp\sustainDown <e gis d'>4-3-5
211 \once \override Fingering #'extra-offset = #'(0 . -1) %tweak
215 \once \override Fingering #'extra-offset = #'(0 . -1) %tweak
218 e'[(<a cis>)] r b,\sustainUp\sustainDown <e gis d'>4
226 bassTwo = \new Voice \notes\relative c{
237 middleDynamics = \notes{
238 \override Dynamics.TextScript #'padding = #-1 %tweak
247 \once\override Dynamics.Hairpin #'extra-offset = #'(0 . 2) %tweak
253 s32 s-"rall." s s s8 s4
256 \once\override Dynamics.Hairpin #'extra-offset = #'(1 . 0) %tweak
266 \context PianoStaff <<
267 \context Staff=treble <<
274 \context Staff=bass <<
283 pedalSustainStrings = #'("Ped." "*Ped." "*")
284 \remove Bar_number_engraver
287 \type "Engraver_group_engraver"
289 \consists "Output_property_engraver"
290 minimumVerticalExtent = #'(-1 . 1)
292 \consists "Script_engraver"
293 \consists "Dynamic_engraver"
294 \consists "Text_engraver"
296 \override TextScript #'font-size = #2
297 \override TextScript #'font-shape = #'italic
299 \consists "Skip_event_swallow_translator"
301 \consistsend "Axis_group_engraver"
307 \override VerticalAlignment #'forced-distance = #7
317 %%% LilyPond-indent-level:4
319 %% new-chords-done %%