input/les-nereides.ly

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