2 composer = "ARTHUR GRAY";
3 title = "LES N\\'ER\\'EIDES";
4 subtitle = "THE NEREIDS";
6 piece = "Allegretto scherzando";
7 copyright = "public domain";
8 description = "Natiest piece of competition at http://www.orphee.com/comparison/study.html, see http://www.orphee.com/comparison/gray.pdf";
9 comment = "LilyPond (1.3.93) can't really do this yet, I guess";
21 \skip 2.; \partial 32*24;
28 treble = \context Voice=treble \notes\relative c''{
31 \property basicStemProperties \pop #'direction
32 \property Voice.basicStemProperties \push #'direction = #1
35 r4 <cis fis a cis> r8.
36 \translator Staff=bass
37 cis,16^2^"m.g."( <fis8 fis,\sustainup> <e! e,!>
40 \translator Staff=treble
41 \property basicSlurProperties \pop #'direction
42 \property Voice.basicSlurProperties \push #'direction = #1
48 \property basicStemProperties \pop #'direction
50 \property Voice.basicStemProperties \push #'direction = #0
53 % maybe we should fake this and put 5/4 in this bar?
57 \property basicStemProperties \pop #'direction
58 \property Grace.basicStemProperties \push #'direction = #0
59 %urg, dim. during grace dumps core here
60 %%[a16-5( fis dis] [cis'32 a-1 fis-4 dis\>] [cis a )\!fis-2]
61 [a16-5( fis dis] [cis32 a-1 fis-4 dis] [cis a )fis-2]
67 \property basicNoteHeadProperties \pop #'font-size
68 \property basicStemProperties \pop #'font-size
69 \property basicBeamProperties \pop #'font-size
70 \property basicTextScriptProperties \pop #'font-size
71 \property basicSlurProperties \pop #'font-size
72 \property basicLocalKeyProperties \pop #'font-size
74 \property Voice.basicNoteHeadProperties \push #'font-size = #-1
75 \property Voice.basicStemProperties \push #'font-size = #-1
76 \property Voice.basicBeamProperties \push #'font-size = #-1
77 \property Voice.basicTextScriptProperties \push #'font-size = #-1
78 \property Voice.basicSlurProperties \push #'font-size = #-1
79 \property Voice.basicLocalKeyProperties \push #'font-size = #-1
82 \property basicStemProperties \pop #'direction
83 \property Voice.basicStemProperties \push #'direction = #0
84 %%[a16^5( fis dis] [cis'32 a-1 fis-4 dis\>] [cis a )fis-2] s s s
85 [a16^5( fis dis] [cis32 a^1 fis^4 dis\>] [cis a )fis-2] s % s s
87 \property basicNoteHeadProperties \pop #'font-size
88 \property basicStemProperties \pop #'font-size
89 \property basicBeamProperties \pop #'font-size
90 \property basicTextScriptProperties \pop #'font-size
91 \property basicSlurProperties \pop #'font-size
92 \property basicLocalKeyProperties \pop #'font-size
95 \property Voice.basicNoteHeadProperties \push #'font-size = #0
96 \property Voice.basicStemProperties \push #'font-size = #0
97 \property Voice.basicBeamProperties \push #'font-size = #0
98 \property Voice.basicTextScriptProperties \push #'font-size = #0
99 \property Voice.basicSlurProperties \push #'font-size = #0
100 \property Voice.basicLocalKeyProperties \push #'font-size = #0
106 \property basicStemProperties \pop #'direction
107 \property Voice.basicStemProperties \push #'direction = #1
110 <a'8( a,> <gis gis,> <fis fis,> <gis gis,> <fis fis,> )e r|
111 r\mf <a8( a,> <gis gis,> <fis fis,> <gis gis,> <fis fis,> )e r|
114 trebleTwo = \context Voice=trebleTwo \notes\relative c''{
118 \property basicStemProperties \pop #'direction
119 \property Voice.basicStemProperties \push #'direction = #-1
127 r8 cis4. d4 [<cis8( e,> <b-3 d,-1> |
128 <)a-2 cis,-1>] cis4. d4 [<cis8(\> e,> <b d,> |
132 bass = \context Voice=bass \notes\relative c{
133 \property Voice.basicSlurProperties \push #'details =
134 #'((height-limit . 2.0) (ratio . 0.333) (force-blowfit . 0.5) (beautiful . 5.0))
135 \property basicStemProperties \pop #'direction
136 \property Voice.basicSlurProperties \push #'direction = #-1
138 r8. e,16-2\f( [<a8 a,> <b b,>] <cis4\sustaindown cis,> |
140 \translator Staff=treble
141 \property basicStemProperties \pop #'direction
142 \property Voice.basicStemProperties \push #'direction = #-1
143 \property Voice.slurEndAttachment = #'stem
146 \property Voice.slurEndAttachment = ##f
147 \translator Staff=bass
148 \property basicStemProperties \pop #'direction
150 \property Voice.basicStemProperties \push #'direction = #'0
151 r8. cis,,16(\sustainup <fis8 fis,> <gis gis,>
154 \translator Staff=treble
155 \property basicStemProperties \pop #'direction
156 \property Voice.basicStemProperties \push #'direction = #-1
158 \translator Staff=bass
159 \property basicStemProperties \pop #'direction
161 \property Voice.basicStemProperties \push #'direction = #'0
164 \property basicStemProperties \pop #'direction
165 \property Voice.basicStemProperties \push #'direction = #-1
166 <b,,4\sustaindown b,>
168 \property basicStemProperties \pop #'direction
169 \property Voice.basicStemProperties \push #'direction = #0
171 %urg: staff-change: ! on dis
173 % { s8. \sustainup\clef bass;}
175 %\grace { s16 s s s s32 s s s s \clef bass; s }
177 %\grace { <e,,,32\sustaindown( e,> } <)gis'2 e>
180 s4 s8 s32 s \sustainup s \clef bass; s
183 \grace { <e,,,32( e,> } <)gis'2\sustaindown e>
185 \property basicSlurProperties \pop #'direction
186 \property Voice.basicSlurProperties \push #'direction = #1
187 \property Staff.stopStartSustain = #""
188 a,8\sustainup\sustaindown [e'-5(<)a-2 cis-3>]
189 \property Staff.stopStartSustain = #"-P"
190 r b,-5\sustainup\sustaindown <e4-3 gis-5 d'>
191 \property basicSlurProperties \pop #'direction
192 \property Voice.basicSlurProperties \push #'direction = #0
196 \property basicSlurProperties \pop #'direction
197 \property Voice.basicSlurProperties \push #'direction = #1
198 [e'(<)a cis>] r b,\sustainup\sustaindown <e4 gis d'>
199 \property basicSlurProperties \pop #'direction
200 \property Voice.basicSlurProperties \push #'direction = #0
206 bassTwo = \context Voice=bassTwo \notes\relative c{
214 \property basicStemProperties \pop #'direction
215 \property Voice.basicStemProperties \push #'direction = #1
216 \property basicSlurProperties \pop #'direction
217 \property Voice.basicSlurProperties \push #'direction = #1
222 \context PianoStaff <
223 \context Staff=treble <
228 \context Staff=bass <
238 basicTimeSignatureProperties \push #'style = #"C"
242 basicStemProperties \push #'flag-style = #""