input/les-nereides.ly

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