input/les-nereides.ly

   1 \version "1.7.18"
   2
   3 \header {
   4     composer =   "ARTHUR GRAY"
   5     title =      "LES N\\'ER\\'EIDES"
   6     subtitle =   "THE NEREIDS"
   7     enteredby =  "JCN"
   8     piece =      "Allegretto scherzando"
   9     copyright =  "public domain"
  10 }
  11
  12 %{
  13
  14 Nastiest piece of competition at
  15 http://www.orphee.com/comparison/study.html, see
  16 http://www.orphee.com/comparison/gray.pdf
  17
  18 %}
  19
  20 #(ly:set-point-and-click 'line-column)
  21 #(define (make-text-checker text)
  22   (lambda (elt) (equal? text (ly:get-grob-property elt 'text))))
  23
  24
  25 treble =  \context Voice=treble \notes\relative c''{
  26     \key a \major
  27     r2
  28     | %2
  29     \stemUp
  30     r4 <<cis eis a cis>>-\arpeggio r2
  31     | %3
  32     r4 <<cis fis a cis>>-\arpeggio r8.
  33
  34     \translator Staff=bass
  35
  36     \once\property Voice.TextScript \set #'extra-offset = #'(-3 . -4)
  37
  38     cis,16^2-(^\markup {\small \italic "m.d." }
  39     <<fis fis,>>8 <<e! e,!>>
  40     | %4
  41     <<dis, a' dis>>4-)
  42
  43     \translator Staff=treble
  44
  45     \slurUp
  46     \property PianoStaff.connectArpeggios = ##t
  47
  48     #(set-octavation 1)
  49
  50     \once\property Voice.TextScript \set #'extra-offset = #'(-3 . -2)
  51
  52     \tieUp
  53     cis''''4^\markup { \small \italic "m.g." }-\arpeggio-~
  54     \grace {
  55          cis8
  56
  57          %\stemBoth Hmm
  58          \property Voice.Stem \set #'direction = #0
  59
  60           a16-[-5( fis dis-]
  61          #(set-octavation 0)
  62
  63          cis32-[ a-1 fis-4 dis]   cis-[ a  fis-)-2]
  64          % the small grace in lower staff comes after us
  65          s32
  66     }
  67
  68     \stemUp
  69     cis'4( bis-)
  70
  71     | %5
  72     r8 <<a' a,>>8-(-\mf <<gis gis,>> <<fis fis,>>
  73
  74     % \fingerUp
  75     \property Voice.Fingering \set #'direction = #1
  76
  77     % Manual fix for collision with slur
  78     \property Voice.Fingering \set #'extra-offset = #'(0 . 1)
  79     <<gis gis,>> <<fis fis,>> e-)-1-4-5 r
  80
  81     | %6
  82     r <<a a,>>8-(-\mf <<gis gis,>> <<fis fis,>>
  83     <<gis gis,>> <<fis fis,>>  e-) r
  84
  85     | %7
  86     \bar "||"
  87 }
  88
  89 trebleTwo =  \context Voice=trebleTwo \notes\relative c''{
  90     \stemDown
  91     \slurDown
  92     % \fingerDown
  93     \property Voice.Fingering \set #'direction = #-1
  94     \property Voice.Fingering \set #'extra-offset = #'(0 . 1.2)
  95     s2
  96     | %1
  97     s1*2
  98     | %4
  99     s4
 100     <<cis' a fis dis>>4-\arpeggio
 101     <<e, gis, e d!>>2
 102     | %5
 103     s8 cis4. d4
 104     %%<<cis e,>>8-[-( <<b-3 d,-1>>
 105     <<cis e,>>8-[-( <<b d,>>-3-1
 106     | %6
 107     %%<<a-2 cis,-1>>-)] cis4. d4
 108     <<a cis,>>-)-]-2-1 cis4. d4
 109     <<cis e,>>8-[-( <<b d,>>
 110     | %7
 111     <<a cis,>>-)]
 112 }
 113
 114 bass =  \context Voice=bass \notes\relative c{
 115     \partial 2
 116     \key a \major
 117
 118     % Allow ugly (highly blown-up) slurs
 119     \property Voice.Slur \override #'beautiful = #5.0
 120     \property Voice.Slur \override #'attachment-offset = #'((0 . 3) . (0 . -4))
 121     \slurDown
 122
 123     \dynamicUp
 124
 125     r8. e,16-(-\f_2 <<a a,>>8-[ <<b b,>>]
 126     | %2
 127     <<cis cis,>>4
 128     \translator Staff=treble
 129     \stemDown
 130     \property Voice.Slur \override #'attachment = #'(stem . stem)
 131     <<a'' eis cis>>4-)-\arpeggio
 132
 133     \property Voice.Slur \revert #'attachment
 134     \translator Staff=bass
 135     \stemBoth
 136
 137     \property Voice.Slur \revert #'y-free
 138     \property Voice.Slur \override #'y-free = #0.1
 139     \property Voice.Slur \revert #'attachment-offset
 140     \property Voice.Slur \override #'attachment-offset = #'((0 . 3) . (0 . 8))
 141     r8. cis,,16( <<fis fis,>>8 <<gis gis,>>
 142
 143     | %3
 144     \property Voice.Stem \set #'length = #5
 145     <<a a,>>4
 146     \translator Staff=treble
 147
 148     \property Voice.Stem \revert #'length
 149     \property Voice.Stem \revert #'direction
 150     \property Voice.Stem \override #'direction = #-1
 151     <<a' fis cis>>-)-\arpeggio
 152     \translator Staff=bass
 153     \property Voice.Stem \revert #'direction
 154     r2
 155
 156     | %4
 157     \property Voice.Slur \revert #'beautiful
 158     \property Voice.Slur \revert #'attachment-offset
 159     \stemDown
 160     <<b,, b,>>4
 161     \clef treble
 162     \stemBoth
 163     <
 164         %urg: staff-change: ! on dis
 165         <<cis'' a fis dis!>>-\arpeggio
 166     >
 167
 168     \grace {
 169         s8
 170         s16 s s
 171         s32 s s
 172         s s s
 173         \clef bass
 174         \property Voice.fontSize = #-3
 175         <<e,,, e,>>32-(
 176     } <<gis' e>>2-)
 177
 178     | %5
 179     \slurUp
 180
 181     % \fingerDown
 182     \property Voice.Fingering \set #'direction = #-1
 183
 184     %%a,8 e'-[-5-(<<a-2 cis-3>>-]-)
 185     a,8 e'-[-5-(<<a cis>>-]-)-2-3
 186     %%r b,-5 <<e-3 gis-5 d'>>4
 187     r b,-5 <<e gis d'>>4-3-5
 188     \slurBoth
 189     \once \property Voice.Fingering \set #'extra-offset = #'(0 . -1)
 190     e,8-[-5-(
 191
 192     | %6
 193     \once \property Voice.Fingering \set #'extra-offset = #'(0 . -1)
 194     a-)-2]
 195     \slurUp
 196     e'-[(<<a cis>>-)] r b, <<e gis d'>>4
 197     \slurBoth
 198     e,8-[(
 199
 200     | %7
 201     a-)]
 202 }
 203
 204 bassTwo =  \context Voice=bassTwo \notes\relative c{
 205     \skip 2
 206     \skip 1*2
 207     \skip 2
 208
 209     \stemUp
 210     \slurUp
 211
 212     cis'4-( bis-)
 213 }
 214
 215 middleDynamics =  \context Dynamics=middle \notes{
 216     \property Dynamics.TextScript \set #'padding = #-1
 217     s2
 218     s1*2
 219     | %4
 220     s2
 221     \grace {
 222            s8
 223            s16 s s
 224            s32 s
 225            \once\property Dynamics.Hairpin \set #'extra-offset = #'(0 . 2)
 226            s-\> s
 227            s32 s s s-\!
 228     }
 229     s32 s-"rall." s s s8 s4
 230     | %5
 231     s2-"a tempo" s8
 232     \once\property Dynamics.Hairpin \set #'extra-offset = #'(1 . 0)
 233     s \> s s
 234     | %6
 235     s8-\!
 236     s2 s8 s-\> s
 237     | %7
 238     s8-\!
 239 }
 240
 241 lowerDynamics = \context Dynamics=lower \notes{
 242     s2
 243     | %2
 244     s2-\sustainDown s8. s16-\sustainUp s4
 245     | %3
 246     s2-\sustainDown s8. s16-\sustainUp s4
 247     | %4
 248     s4-\sustainDown
 249     \property Dynamics.pedalSustainStrings = #'("Ped." "*Ped." "*")
 250
 251     % grace destroys pedal-line-spanner?
 252     % let's do manual tweak:
 253     \once\property Dynamics.SustainPedal \set #'extra-offset = #'(10 . 0)
 254     s8-\sustainUp
 255     \once\property Dynamics.SustainPedal \set #'extra-offset = #'(16 . 0)
 256     s8-\sustainDown
 257 %{
 258     s4
 259     \grace {
 260            s8
 261            s16 s s
 262            s32 s s s-\sustainUp
 263            s32 s s s-\sustainDown
 264     }
 265 %}
 266     s2
 267
 268     | %5
 269     % ugh, I don't think that 'mixed should show last edge, but rather:
 270     %
 271     %   Ped__________/\__________ *
 272     %
 273     % that's what gray wants, anyway.
 274
 275     \property Dynamics.pedalSustainStyle = #'mixed
 276     s8-\sustainDown s s
 277     s s-\sustainUp-\sustainDown s
 278     s-\sustainUp
 279     \once \property Dynamics.pedalSustainStyle = #'text
 280     s-\sustainUp
 281
 282     | %6
 283     \property Dynamics.pedalSustainStyle = #'mixed
 284     s8-\sustainDown s s
 285     s s-\sustainUp-\sustainDown s
 286     s-\sustainUp
 287     \once \property Dynamics.pedalSustainStyle = #'text
 288     s-\sustainUp
 289     | %7
 290 }
 291
 292 \score{
 293     \context PianoStaff <
 294         \context Staff=treble <
 295             \treble
 296             \trebleTwo
 297         >
 298         \context Dynamics=middle <
 299             \middleDynamics
 300         >
 301         \context Staff=bass <
 302             \clef bass
 303             \bass
 304             \bassTwo
 305         >
 306         \context Dynamics=lower <
 307             \lowerDynamics
 308         >
 309     >
 310     \paper {
 311         \translator {
 312             \ScoreContext
 313             \remove Bar_number_engraver
 314         }
 315         \translator {
 316             \type "Engraver_group_engraver"
 317             \name Dynamics
 318             \consists "Output_property_engraver"
 319             minimumVerticalExtent = #'(-1 . 1)
 320
 321             pedalSustainStrings = #'("Ped." "*Ped." "*")
 322
 323             \consists "Piano_pedal_engraver"
 324             \consists "Script_engraver"
 325             \consists "Dynamic_engraver"
 326             \consists "Text_engraver"
 327
 328             TextScript \override #'font-relative-size = #1
 329             TextScript \override #'font-shape = #'italic
 330
 331             \consists "Skip_event_swallow_translator"
 332
 333             \consistsend "Axis_group_engraver"
 334         }
 335
 336         \translator {
 337             \PianoStaffContext
 338             \accepts Dynamics
 339             VerticalAlignment \override #'forced-distance = #7
 340         }
 341     }
 342 }
 343
 344 %%% Local variables:
 345 %%% LilyPond-indent-level:4
 346 %%% End:
 347 %% new-chords-done %%