input/les-nereides.ly

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