input/les-nereides.ly

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