input/regression/les-nereides.ly

   1 \version "2.19.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     texidoc="Highly tweaked example of lilypond output"
  12 }
  13
  14 %{
  15
  16 Nastiest piece of competition at
  17 http://www.orphee.com/comparison/study.html, see
  18 http://www.orphee.com/comparison/gray.pdf
  19
  20 Lines that contain tweaks (3 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 treble = \new Voice \relative c''{
  31     \key a \major
  32     r2
  33     | %2
  34     \stemUp
  35     r4 <cis eis a cis>\arpeggio r2
  36     | %3
  37     r4 <cis fis a cis>\arpeggio r8.
  38
  39     \change Staff=bass
  40
  41     cis,16^2(^\markup {\small \italic "m.d." }\sustainOff
  42     <fis fis,>8 <e! e,!>
  43     | %4
  44     <dis, a' dis>4)\sustainOn
  45
  46     \change Staff=treble
  47
  48     \slurUp
  49     \set PianoStaff.connectArpeggios = ##t
  50
  51     \ottava #1
  52
  53     \tieUp
  54     cis''''4^\markup { \small \italic "m.g." }\arpeggio~
  55     \grace {
  56         cis8
  57         \revert Stem.direction
  58
  59         a16[-5_( fis dis]
  60         \ottava #0
  61
  62         cis32[ a-1 fis-4 dis]   cis[ a  fis)-2]
  63                                 % the small grace in lower staff comes after us
  64         s32
  65     }
  66
  67
  68     \stemUp
  69     cis'4( bis)
  70
  71     | %5
  72     r8 <a' a,>8(\mf <gis gis,> <fis fis,>
  73
  74     % \fingerUp
  75     \override Fingering.direction = #UP
  76
  77     <gis gis,> <fis fis,> e)-1-4-5 r
  78
  79     | %6
  80     r <a a,>8(\mf <gis gis,> <fis fis,>
  81     <gis gis,> <fis fis,>  e) r
  82
  83     | %7
  84     \bar "||"
  85 }
  86
  87 trebleTwo = \new Voice \relative c''{
  88     \stemDown
  89     \slurDown
  90     % \fingerDown
  91     \override Fingering.direction = #DOWN
  92     s2
  93     | %1
  94     s1*2
  95     | %4
  96     s4
  97     <cis' a fis dis>4\arpeggio
  98     <e, gis, e d!>2
  99     | %5
 100     s8 cis4. d4
 101     <cis e,>8[( <d,_3 b'_1>
 102     | %6
 103     <cis_1 a'_2>)] cis'4. d4
 104     <cis e,>8[( <b d,>
 105     | %7
 106     <a cis,>)]
 107 }
 108
 109 bass = \new Voice \relative c{
 110     \partial 2
 111     \key a \major
 112
 113     \slurDown
 114     \dynamicUp
 115
 116     r8. e,16(\f_2 <a a,>8[ <b b,>]
 117     | %2
 118     %\override Staff.SustainPedalLineSpanner.staff-padding = #5 %tweak
 119
 120     <cis cis,>4\sustainOn
 121     \change Staff=treble
 122     \stemDown
 123     <a'' eis cis>4)\arpeggio
 124
 125     \change Staff=bass
 126     \stemNeutral
 127
 128     r8. cis,,16(\sustainOff <fis fis,>8 <gis gis,>
 129
 130     | %3
 131
 132     <a a,>4\sustainOn
 133     \change Staff=treble
 134
 135     \stemNeutral
 136     \stemDown
 137     <a' fis cis>)\arpeggio
 138     \change Staff=bass
 139     \stemNeutral
 140     r2
 141
 142     | %4
 143     \stemDown
 144     <b,, b,>4
 145     \clef treble
 146     \stemNeutral
 147     <<
 148         %urg: staff-change: ! on dis
 149         <cis'' a fis dis!>\arpeggio
 150     >>
 151
 152     \grace {
 153         \override Flag.stroke-style = #"grace"
 154
 155         s8
 156         s16 s s
 157         s32 s s
 158         s s s
 159         \clef bass
 160         <e,,, e,>32(\sustainOff\sustainOn
 161
 162         \revert Flag.stroke-style
 163     }
 164     <gis' e>2)
 165
 166     | %5
 167     \slurUp
 168
 169     % \fingerDown
 170     \override Fingering.direction = #DOWN
 171
 172
 173     %\override Staff.SustainPedalLineSpanner.staff-padding = #3.5 %tweak
 174     \set Staff.pedalSustainStyle = #'mixed
 175     %%a,8 e'[-5(<a-2 cis-3>])
 176
 177
 178     a,8\sustainOn e'[-5(<a cis>])-2-3
 179     %%r b,-5 <e-3 gis-5 d'>4
 180     r b,-5\sustainOff\sustainOn <e gis d'>4-3-5
 181     \slurNeutral
 182     e,8[-5(\sustainOff
 183
 184     | %6
 185     a)-2]\sustainOn
 186     \slurUp
 187     e'[(<a cis>)] r b,\sustainOff\sustainOn <e gis d'>4
 188     \slurNeutral
 189     e,8[(\sustainOff
 190
 191     | %7
 192     a)]
 193 }
 194
 195 bassTwo = \new Voice \relative c{
 196     \skip 2
 197     \skip 1*2
 198     \skip 2
 199
 200     \stemUp
 201     \slurUp
 202
 203     cis'4( bis)
 204 }
 205
 206 middleDynamics = {
 207     %\override Dynamics.TextScript.padding = #-1 %tweak
 208     s2
 209     s1*2
 210     | %4
 211     s2
 212     \grace {
 213         s8
 214         s16 s s
 215         s32 s
 216         s\> s
 217         s32 s s\! s
 218
 219     }
 220     \textLengthOn
 221     s32 s-"rall." s s s8 s4
 222     \textLengthOff
 223     | %5
 224     s2-"a tempo" s8
 225     s \> s s
 226     | %6
 227     s8\!
 228     s2 s8 s\> s
 229     | %7
 230     s8\!
 231 }
 232
 233 theScore = \score{
 234     \context PianoStaff <<
 235         \new Staff = "treble" <<
 236             \set beamExceptions =
 237               \beamExceptions { 8[ 8] 8[ 8] 8[ 8] 8[ 8] |
 238                                 \repeat unfold 8 { 32[ 32 32 32] } }
 239             \treble
 240             \trebleTwo
 241         >>
 242         \new Dynamics <<
 243             \middleDynamics
 244         >>
 245         \new Staff = "bass" <<
 246             \clef bass
 247             \bass
 248             \bassTwo
 249         >>
 250     >>
 251     \layout {
 252         \context {
 253             \Score
 254             pedalSustainStrings = #'("Ped." "*Ped." "*")
 255             \remove "Bar_number_engraver"
 256         }
 257     }
 258 }
 259
 260 \book{
 261     \score { \theScore }
 262 }
 263
 264 %%% Local variables:
 265 %%% coding: utf-8
 266 %%% LilyPond-indent-level:2
 267 %%% End:
 268