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 #(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 r
2^#'((Large upright
) "Allegretto scherzando")
35 \property Voice
.Stem
\revert #'direction
36 \property Voice
.Stem
\override #'direction
= #1
37 r
4 <cis\arpeggio eis a cis> r
2
39 r
4 <cis\arpeggio fis a cis> r
8.
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 \spanrequest \start "text" (
90 \property Voice
.Stem
\revert #'direction
94 \property Voice
.Stem
\revert #'direction
95 \property Voice
.Stem
\override #'direction
= #0
96 [a16-
5( fis dis \spanrequest \stop "text" ]
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 r
8. 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 r
8. 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 = #(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 #'flag-style
= #""
357 %%% LilyPond-indent-level:4