input/les-nereides.ly

   1 \version "1.7.18"
   2
   3 \header {
   4     composer =   "ARTHUR GRAY"
   5     title =      "LES N\\'ER\\'EIDES"
   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 %}
  19
  20 #(ly:set-point-and-click 'line-column)
  21 #(define (make-text-checker text)
  22   (lambda (elt) (equal? text (ly:get-grob-property elt 'text))))
  23
  24
  25 treble =  \context Voice=treble \notes\relative c''{
  26     \key a \major
  27     r2
  28     | %2
  29     \stemUp
  30     r4 <<cis eis a cis>>-\arpeggio r2
  31     | %3
  32     r4 <<cis fis a cis>>-\arpeggio r8.
  33
  34     \translator Staff=bass
  35
  36     \once\property Voice.TextScript \set #'extra-offset = #'(-3 . -4)
  37
  38     % currently, this can't be (small italic,-) because in the paperblock
  39     % we set italic_magnifictation to get large italics.
  40     cis,16^2^"m.d."( <<fis fis,>>8 <<e! e,!>>
  41     | %4
  42     <<dis, a' dis>>4-)
  43
  44     \translator Staff=treble
  45
  46     \slurUp
  47     \property PianoStaff.connectArpeggios = ##t
  48
  49     #(set-octavation 1)
  50
  51     \once\property Voice.TextScript \set #'extra-offset = #'(-3 . -2)
  52
  53     \tieUp
  54     cis''''4^\markup { \small \italic "m.g." }-\arpeggio-~
  55     \grace {
  56          cis8
  57
  58          %\stemBoth Hmm
  59          \property Voice.Stem \set #'direction = #0
  60
  61           a16-[-5( fis dis-]
  62          #(set-octavation 0)
  63
  64          cis32-[ a-1 fis-4 dis]   cis-[ a  fis-)-2]
  65     }
  66
  67     \stemUp
  68     cis'4( bis-)
  69
  70     | %5
  71     r8 <<a' a,>>8-(-\mf <<gis gis,>> <<fis fis,>>
  72     % \fingerUp
  73     \property Voice.Fingering \set #'direction = #1
  74     % padding \once does not work??
  75     \once \property Voice.Fingering \set #'padding = #1
  76     <<gis gis,>> <<fis fis,>> e-)-1-4-5 r
  77
  78     | %6
  79     r <<a a,>>8-(-\mf <<gis gis,>> <<fis fis,>>
  80     <<gis gis,>> <<fis fis,>>  e-) r
  81
  82     | %7
  83     \bar "||"
  84 }
  85
  86 trebleTwo =  \context Voice=trebleTwo \notes\relative c''{
  87     \stemDown
  88     s2
  89     | %1
  90     s1*2
  91     | %4
  92     s4
  93     <<cis' a fis dis>>4-\arpeggio
  94     <<e, gis, e d!>>2
  95     | %5
  96     s8 cis4. d4
  97     <<cis e,>>8-[-( <<b-3 d,-1>>
  98     | %6
  99     <<a-2 cis,-1>>-)] cis4. d4
 100     <<cis e,>>8-[-( <<b d,>>
 101     | %7
 102     <<a cis,>>-)]
 103 }
 104
 105 bass =  \context Voice=bass \notes\relative c{
 106     \partial 2
 107     \key a \major
 108
 109     % Allow ugly (highly blown-up) slurs
 110     \property Voice.Slur \override #'beautiful = #5.0
 111     \property Voice.Slur \override #'attachment-offset = #'((0 . 3) . (0 . -4))
 112     \slurDown
 113
 114     \dynamicUp
 115
 116     r8. e,16-(-\f_2 <<a a,>>8-[ <<b b,>>]
 117     | %2
 118     <<cis cis,>>4
 119     \translator Staff=treble
 120     \stemDown
 121     \property Voice.Slur \override #'attachment = #'(stem . stem)
 122     <<a'' eis cis>>4-)-\arpeggio
 123
 124     \property Voice.Slur \revert #'attachment
 125     \translator Staff=bass
 126     \stemBoth
 127
 128     \property Voice.Slur \revert #'y-free
 129     \property Voice.Slur \override #'y-free = #0.1
 130     \property Voice.Slur \revert #'attachment-offset
 131     \property Voice.Slur \override #'attachment-offset = #'((0 . 3) . (0 . 8))
 132     r8. cis,,16( <<fis fis,>>8 <<gis gis,>>
 133
 134     | %3
 135     \property Voice.Stem \set #'length = #5
 136     <<a a,>>4
 137     \translator Staff=treble
 138
 139     \property Voice.Stem \revert #'length
 140     \property Voice.Stem \revert #'direction
 141     \property Voice.Stem \override #'direction = #-1
 142     <<a' fis cis>>-)-\arpeggio
 143     \translator Staff=bass
 144     \property Voice.Stem \revert #'direction
 145     r2
 146
 147     | %4
 148     \property Voice.Slur \revert #'beautiful
 149     \property Voice.Slur \revert #'attachment-offset
 150     \stemDown
 151     <<b,, b,>>4
 152     \clef treble
 153     \stemBoth
 154     <
 155         %urg: staff-change: ! on dis
 156         <<cis'' a fis dis!>>-\arpeggio
 157 %       { s8. \clef bass}
 158     >
 159
 160     %Hmm
 161     %\grace { s16 s s s s32 s s s s \clef bass s }
 162     \clef bass
 163     \grace { <<e,,, e,>>32-( } <<gis' e>>2-)
 164
 165     | %5
 166     \slurUp
 167
 168     % \fingerDown
 169     \property Voice.Fingering \set #'direction = #-1
 170     \property Thread.Fingering \set #'direction = #-1
 171     % hmm, ik ben blond?
 172
 173     a,8 e'-[-5-(<<a-2 cis-3>>-]-)
 174     r b,-5 <<e-3 gis-5 d'>>4
 175     \slurBoth
 176     e,8-[-5-(
 177
 178     | %6
 179     a-)-2]
 180     \slurUp
 181     e'-[(<<a cis>>-)] r b, <<e gis d'>>4
 182     \slurBoth
 183     e,8-[(
 184
 185     | %7
 186     a-)]
 187 }
 188
 189 bassTwo =  \context Voice=bassTwo \notes\relative c{
 190     \skip 2
 191     \skip 1*2
 192     \skip 2
 193
 194     \stemUp
 195     \slurUp
 196
 197     cis'4-( bis-)
 198 }
 199
 200 middleDynamics =  \context Dynamics=middle \notes{
 201     \property Dynamics.TextScript \set #'padding = #-1
 202
 203     s2
 204     s1*2
 205     | %4
 206     s2 s32 s-"rall." s s s8 s4
 207     | %5
 208     s2-"a tempo" s8
 209     \once\property Dynamics.Hairpin \set #'extra-offset = #'(1 . 0)
 210     s \> s s
 211     | %6
 212     s8-\!
 213     s2 s8 s-\> s
 214     | %7
 215     s8-\!
 216 }
 217
 218 lowerDynamics =  \context Dynamics=lower \notes{
 219     s2
 220     %2
 221     s2-\sustainDown s8. s16-\sustainUp s4
 222     %3
 223     s2-\sustainDown s8. s16-\sustainUp s4
 224     %3
 225
 226     s4-\sustainDown s16
 227     s32 s s-\sustainUp s
 228     s32-\sustainDown s s s
 229     s8
 230
 231     \property Dynamics.pedalSustainStrings = #'("Ped." "*Ped." "")
 232     s4 s16. s32--\sustainUp
 233
 234     %5
 235     s8-\sustainDown s s
 236     \property Dynamics.pedalSustainStrings = #'("Ped." "-P" "*")
 237     s s-\sustainUp-\sustainDown s s
 238     s-\sustainUp
 239
 240     %6
 241     \property Dynamics.pedalSustainStrings = #'("Ped." "*Ped." "")
 242     s8-\sustainDown s s
 243     \property Dynamics.pedalSustainStrings = #'("Ped." "-P" "*")
 244     s s-\sustainUp-\sustainDown s s
 245     s-\sustainUp
 246 }
 247
 248 \score{
 249     \context PianoStaff <
 250         \context Staff=treble <
 251             \treble
 252             \trebleTwo
 253         >
 254         \context Dynamics=middle <
 255             \middleDynamics
 256         >
 257         \context Staff=bass <
 258             \clef bass
 259             \bass
 260             \bassTwo
 261         >
 262         \context Dynamics=lower <
 263             \lowerDynamics
 264         >
 265     >
 266     \paper {
 267         \translator {
 268             \ScoreContext
 269             \remove Bar_number_engraver
 270         }
 271         \translator {
 272             \type "Engraver_group_engraver"
 273             \name Dynamics
 274             \consists "Output_property_engraver"
 275             minimumVerticalExtent = #'(-1 . 1)
 276
 277             pedalSustainStrings = #'("Ped." "*Ped." "*")
 278             pedalUnaCordaStrings = #'("una corda" "" "tre corde")
 279
 280             \consists "Piano_pedal_engraver"
 281             \consists "Script_engraver"
 282             \consists "Dynamic_engraver"
 283             \consists "Text_engraver"
 284
 285             TextScript \override #'font-relative-size = #1
 286             TextScript \override #'font-shape = #'italic
 287
 288             \consists "Skip_event_swallow_translator"
 289
 290             \consistsend "Axis_group_engraver"
 291         }
 292
 293         \translator {
 294             \PianoStaffContext
 295             \accepts Dynamics
 296             VerticalAlignment \override #'forced-distance = #7
 297         }
 298     }
 299 }
 300
 301 %%% Local variables:
 302 %%% LilyPond-indent-level:4
 303 %%% End:
 304 %% new-chords-done %%