input/les-nereides.ly

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