input/les-nereides.ly

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