input/les-nereides.ly

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