4 composer = "ARTHUR GRAY"
5 title = "LES N\\'ER\\'EIDES"
6 subtitle = "THE NEREIDS"
8 %piece = "Allegretto scherzando"
9 copyright = "public domain"
10 description = "Nastiest piece of competition at http://www.orphee.com/comparison/study.html, see http://www.orphee.com/comparison/gray.pdf"
13 #(ly:set-point-and-click! 'line-column)
14 #(set! point-and-click line-column-location)
16 #(define (make-text-checker text)
17 (lambda (elt) (equal? text (ly:get-grob-property elt 'text))))
28 treble = \context Voice=treble \notes\relative c''{
30 \property Voice.NoteColumn \override #'horizontal-shift = #0
31 \outputproperty #(make-type-checker 'text-interface)
32 #'extra-offset = #'(-6 . 2)
33 r2^#'((Large upright) "Allegretto scherzando")
35 \property Voice.Stem \revert #'direction
36 \property Voice.Stem \override #'direction = #1
37 r4 <cis\arpeggio eis a cis> r2
39 r4 <cis\arpeggio fis a cis> r8.
41 % Urg, this lifts us up to staff context
42 \translator Staff=bass
47 % If we don't get back to Voice, this text-checker doesn't work
48 \outputproperty #(make-text-checker "m.d.")
49 #'extra-offset = #'(-3 . -4)
51 % currently, this can't be (small) italic, because in the paperblock
52 % we set italic_magnifictation to get large italics.
53 cis,16^2^"m.d."( <fis8 fis,> <e! e,!>
57 % Urg, this lifts us up to staff context
58 \translator Staff=treble
62 \property Voice.Slur \revert #'direction
63 \property Voice.Slur \override #'direction = #1
64 \property PianoStaff.connectArpeggios = ##t
65 \property Voice.TextSpanner \revert #'type
67 %% Ghostview is ok, but xdvi shows a solid line
68 \property Voice.TextSpanner \override #'thickness = #2
69 \property Voice.TextSpanner \override #'dash-period = #0.5
71 \property Voice.TextSpanner \override #'type = #'dotted-line
72 \property Voice.TextSpanner \override #'edge-height = #'(0 . 1.5)
73 %% \property Voice.TextSpanner \override #'edge-text = #'("8 " . "")
74 \property Voice.TextSpanner \override #'edge-text = #'("8 " . " ")
76 % Urg, this lifts us up to staff context
77 \property Staff.centralCPosition = #-13
82 % If we don't get back to Voice, this text-checker doesn't work
83 \outputproperty #(make-text-checker "m.g.")
84 #'extra-offset = #'(-3 . -3)
86 % currently, this can't be (small) italic, because in the paperblock
87 % we set italic_magnifictation to get large italics.
88 cis''''4^"m.g."\arpeggio #(ly:export (make-span-event 'TextSpanEvent START)) (
90 \property Voice.Stem \revert #'direction
94 \property Voice.Stem \revert #'direction
95 \property Voice.Stem \override #'direction = #0
96 [a16-5( fis dis #(ly:export (make-span-event 'TextSpanEvent STOP)) ]
97 \property Staff.centralCPosition = #-6
99 [cis32 a-1 fis-4 dis] [cis a )fis-2]
102 \property Voice.Stem \revert #'direction
103 \property Voice.Stem \override #'direction = #1
106 <a'8( a,> <gis gis,> <fis fis,> <gis gis,> <fis fis,> )e^" "^1^4^5 r|
107 r<a8( a,> <gis gis,> <fis fis,> <gis gis,> <fis fis,> )e r|
110 trebleTwo = \context Voice=trebleTwo \notes\relative c''{
111 \property Voice.NoteColumn \override #'horizontal-shift = #1
115 \property Voice.Stem \revert #'direction
116 \property Voice.Stem \override #'direction = #-1
117 <cis'4\arpeggio a fis dis>
119 \property Voice.NoteColumn \override #'force-hshift = #-0.2
124 \property Voice.NoteColumn \revert #'force-hshift
125 [<cis8( e,> <b-3 d,-1> |
126 \property Voice.NoteColumn \override #'force-hshift = #-0.2
127 <)a-2 cis,-1>] cis4. d4
128 \property Voice.NoteColumn \revert #'force-hshift
133 bass = \context Voice=bass \notes\relative c{
135 \property Voice.Slur \override #'beautiful = #5.0
136 \property Voice.Slur \override #'attachment-offset = #'((0 . 3) . (0 . -4))
137 \property Voice.Stem \revert #'direction
138 \property Voice.Slur \override #'direction = #-1
140 r8. e,16_2( [<a8 a,> <b b,>] |
143 % Huh, urg? Implicit \context Staff lifts us up to Staff context???
144 \translator Staff=treble
147 \property Voice.Stem \revert #'direction
148 \property Voice.Stem \override #'direction = #-1
149 \property Voice.Slur \override #'attachment = #'(stem . stem)
150 <)a''4\arpeggio eis cis>
152 \property Voice.Slur \revert #'attachment
153 % Huh, urg? Implicit \context Staff lifts us up to Staff context???
154 \translator Staff=bass
157 \property Voice.Stem \revert #'direction
158 \property Voice.Slur \revert #'y-free
159 \property Voice.Slur \override #'y-free = #0.1
160 \property Voice.Slur \revert #'attachment-offset
161 \property Voice.Slur \override #'attachment-offset = #'((0 . 3) . (0 . 8))
162 r8. cis,,16( <fis8 fis,> <gis gis,>
164 \property Voice.Stem \revert #'length
165 \property Voice.Stem \override #'length = #5
167 % Huh, urg? Implicit \context Staff lifts us up to Staff context???
168 \translator Staff=treble
171 \property Voice.Stem \revert #'length
172 \property Voice.Stem \revert #'direction
173 \property Voice.Stem \override #'direction = #-1
174 <)a'\arpeggio fis cis>
175 % Huh, urg? Implicit \context Staff lifts us up to Staff context???
176 \translator Staff=bass
179 \property Voice.Stem \revert #'direction
182 \property Voice.Slur \revert #'beautiful
183 \property Voice.Slur \revert #'attachment-offset
184 \property Voice.Stem \revert #'direction
185 \property Voice.Stem \override #'direction = #-1
188 \property Voice.Stem \revert #'direction
189 \property Voice.Stem \override #'direction = #0
191 %urg: staff-change: ! on dis
192 <cis''\arpeggio a fis dis!>
197 %\grace { s16 s s s s32 s s s s \clef bass s }
199 \grace { <e,,,32( e,> } <)gis'2 e>
201 \property Voice.Slur \revert #'direction
202 \property Voice.Slur \override #'direction = #1
203 a,8 [e'-5(<)a-2 cis-3>]
204 r b,-5 <e4-3 gis-5 d'>
205 \property Voice.Slur \revert #'direction
206 \property Voice.Slur \override #'direction = #0
210 \property Voice.Slur \revert #'direction
211 \property Voice.Slur \override #'direction = #1
212 [e'(<)a cis>] r b, <e4 gis d'>
213 \property Voice.Slur \revert #'direction
214 \property Voice.Slur \override #'direction = #0
220 bassTwo = \context Voice=bassTwo \notes\relative c{
225 \property Voice.Stem \revert #'direction
226 \property Voice.Stem \override #'direction = #1
227 \property Voice.Slur \revert #'direction
228 \property Voice.Slur \override #'direction = #1
233 middleDynamics = \context Dynamics=middle \notes{
240 \outputproperty #(make-type-checker 'text-interface)
241 #'extra-offset = #'(0 . 1.5)
245 \outputproperty #(make-type-checker 'dynamic-interface)
246 #'extra-offset = #'(0 . 4)
248 %% s2\mf-"a tempo" s4
251 s16 s32 s64 \> s s8 s \!s8
252 \outputproperty #(make-type-checker 'dynamic-interface)
253 #'extra-offset = #'(-1 . 4)
254 %% s8\mf s4 s4 s8\> s32 s s \!s
255 s8\mf s4 s8 s16 s32 s64 \> s s16 s8 s32 s s s\! s128
258 lowerDynamics = \context Dynamics=lower \notes{
261 s2\sustainDown s8. s16\sustainUp s4
263 s2\sustainDown s8. s16\sustainUp s4
268 s32\sustainDown s s s
271 \property Dynamics.pedalSustainStrings = #'("Ped." "*Ped." "")
272 s4 s16. s32\sustainUp
276 \property Dynamics.pedalSustainStrings = #'("Ped." "-P" "*")
277 s s\sustainUp\sustainDown s s
281 \property Dynamics.pedalSustainStrings = #'("Ped." "*Ped." "")
283 \property Dynamics.pedalSustainStrings = #'("Ped." "-P" "*")
284 s s\sustainUp\sustainDown s s
289 \context PianoStaff <
290 \context Staff=treble <
295 \context Dynamics=middle <
299 \context Staff=bass <
305 \context Dynamics=lower <
312 % magnification_italic = 1.
315 TimeSignature \override #'style = #'C
316 %% SpacingSpanner \override #'maximum-duration-for-spacing = #(ly:make-moment 1 4)
318 \remove Bar_number_engraver
321 \type "Engraver_group_engraver"
323 \consists "Output_property_engraver"
324 %%Generic_property_list = #generic-voice-properties
325 %%\consists "Property_engraver"
326 minimumVerticalExtent = #'(-1 . 1)
328 pedalSustainStrings = #'("Ped." "*Ped." "*")
329 pedalUnaCordaStrings = #'("una corda" "" "tre corde")
331 \consists "Piano_pedal_engraver"
332 \consists "Script_engraver"
333 \consists "Dynamic_engraver"
334 \consists "Text_engraver"
336 TextScript \override #'font-relative-size = #1
337 TextScript \override #'font-shape = #'italic
339 \consists "Skip_req_swallow_translator"
341 \consistsend "Axis_group_engraver"
347 VerticalAlignment \override #'forced-distance = #7
351 Stem \override #'stroke-style = #""
357 %%% LilyPond-indent-level:4