input/les-nereides.ly

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