3 composer = "ARTHUR GRAY"
5 subtitle = "THE NEREIDS"
7 piece = "Allegretto scherzando"
8 copyright = "public domain"
13 Nastiest piece of competition at
14 http://www.orphee.com/comparison/study.html, see
15 http://www.orphee.com/comparison/gray.pdf
18 lines that contain tweaks (17 currently, not counting reverts) are
21 possibly more impressive to render without tweaks?
23 grep -v tweak input/les-nereides.ly >> lnnt.ly
28 #(ly:set-point-and-click 'line-column)
29 #(define (make-text-checker text)
30 (lambda (elt) (equal? text (ly:get-grob-property elt 'text))))
33 treble = \new Voice \relative c''{
38 r4 <cis eis a cis>\arpeggio r2
40 r4 <cis fis a cis>\arpeggio r8.
44 \once\override TextScript #'extra-offset = #'(-3 . -4) %tweak
46 cis,16^2(^\markup {\small \italic "m.d." }\sustainUp
49 <dis, a' dis>4)\sustainDown
54 \set PianoStaff.connectArpeggios = ##t
58 \once\override TextScript #'extra-offset = #'(-3 . -2) %tweak
61 cis''''4^\markup { \small \italic "m.g." }\arpeggio~
64 \override Stem #'direction = #CENTER
69 cis32[ a-1 fis-4 dis] cis[ a fis)-2]
70 % the small grace in lower staff comes after us
79 r8 <a' a,>8(\mf <gis gis,> <fis fis,>
82 \override Fingering #'direction = #1
84 % Manual fix for collision with slur
85 \override Fingering #'inside-slur = ##f
86 <gis gis,> <fis fis,> e)-1-4-5 r
89 r <a a,>8(\mf <gis gis,> <fis fis,>
90 <gis gis,> <fis fis,> e) r
96 trebleTwo = \new Voice \relative c''{
100 \override Fingering #'direction = #-1
106 <cis' a fis dis>4\arpeggio
110 \override Fingering #'add-stem-support = ##t
111 \override Fingering #'padding = #0.1
112 <cis e,>8[( <d,_3 b'_1>
114 <cis_1 a'_2>)] cis'4. d4
120 bass = \new Voice \relative c{
127 r8. e,16(\f_2 <a a,>8[ <b b,>]
129 \override Staff.SustainPedalLineSpanner #'staff-padding = #5
131 <cis cis,>4\sustainDown
134 <a'' eis cis>4)\arpeggio
139 r8. cis,,16(\sustainUp <fis fis,>8 <gis gis,>
142 \override Stem #'length = #5 %tweak
146 \revert Stem #'length %tweak
147 \revert Stem #'direction
148 \override Stem #'direction = #-1
149 <a' fis cis>)\arpeggio
151 \revert Stem #'direction
160 %urg: staff-change: ! on dis
161 <cis'' a fis dis!>\arpeggio
165 \override Stem #'stroke-style = #"grace"
172 <e,,, e,>32(\sustainUp\sustainDown
174 \revert Stem #'stroke-style
182 \override Fingering #'direction = #-1
185 \override Staff.SustainPedalLineSpanner #'staff-padding = #3.5
186 \set Staff.pedalSustainStyle = #'mixed
187 %%a,8 e'[-5(<a-2 cis-3>])
190 a,8\sustainDown e'[-5(<a cis>])-2-3
191 %%r b,-5 <e-3 gis-5 d'>4
192 r b,-5\sustainUp\sustainDown <e gis d'>4-3-5
194 \once \override Fingering #'extra-offset = #'(0 . -1) %tweak
198 \once \override Fingering #'extra-offset = #'(0 . -1) %tweak
201 e'[(<a cis>)] r b,\sustainUp\sustainDown <e gis d'>4
209 bassTwo = \new Voice \relative c{
221 \override Dynamics.TextScript #'padding = #-1 %tweak
230 \once\override Dynamics.Hairpin #'extra-offset = #'(0 . 2) %tweak
236 s32 s-"rall." s s s8 s4
239 \once\override Dynamics.Hairpin #'extra-offset = #'(1 . 0) %tweak
249 \context PianoStaff <<
250 \context Staff = "treble" <<
257 \context Staff = "bass" <<
266 pedalSustainStrings = #'("Ped." "*Ped." "*")
267 \remove Bar_number_engraver
270 \type "Engraver_group_engraver"
272 \consists "Output_property_engraver"
273 minimumVerticalExtent = #'(-1 . 1)
275 \consists "Script_engraver"
276 \consists "Dynamic_engraver"
277 \consists "Text_engraver"
279 \override TextScript #'font-size = #2
280 \override TextScript #'font-shape = #'italic
282 \consists "Skip_event_swallow_translator"
284 \consists "Axis_group_engraver"
290 \override VerticalAlignment #'forced-distance = #7
300 %%% LilyPond-indent-level:4