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         \stemBoth
  58           a16-[-5( fis dis-]
  59          #(set-octavation 0)
  60
  61          cis32-[ a-1 fis-4 dis]   cis-[ a  fis-)-2]
  62     }
  63
  64     \stemUp
  65     cis'4( bis-)
  66     r8
  67     <<a' a,>>8-( <<gis gis,>> <<fis fis,>> <<gis gis,>> <<fis fis,>>  e-)^" "^1^4^5 r|
  68     r <<a a,>>8-( <<gis gis,>> <<fis fis,>> <<gis gis,>> <<fis fis,>>  e-) r|
  69
  70     \bar "||"
  71
  72 }
  73
  74 trebleTwo =  \context Voice=trebleTwo \notes\relative c''{
  75     s2
  76     s1*2
  77     s4
  78     \stemDown
  79     <<cis' a fis dis>>4-\arpeggio
  80
  81     <<e, gis, e d!>>2
  82     s8 cis4. d4
  83     <<cis e,>>8-[-( <<b-3 d,-1>> |
  84     <<a-2 cis,-1>>-)] cis4. d4
  85     <<cis e,>>8-[-( <<b d,>> |
  86     <<a cis,>>-)]
  87 }
  88
  89 bass =  \context Voice=bass \notes\relative c{
  90     % Allow ugly slurs
  91     \partial 2
  92     \key a \major
  93
  94     \property Voice.Slur \override #'beautiful = #5.0
  95     \property Voice.Slur \override #'attachment-offset = #'((0 . 3) . (0 . -4))
  96     \slurDown
  97     r8. e,16_2( <<a a,>>8-[ <<b b,>>] |
  98     %2
  99     <<cis cis,>>4
 100     \translator Staff=treble
 101     \stemDown
 102     \property Voice.Slur \override #'attachment = #'(stem . stem)
 103     <<a'' eis cis>>4-)-\arpeggio
 104     %\stemBoth
 105     \property Voice.Slur \revert #'attachment
 106     \translator Staff=bass
 107     \stemBoth
 108     \property Voice.Slur \revert #'y-free
 109     \property Voice.Slur \override #'y-free = #0.1
 110     \property Voice.Slur \revert #'attachment-offset
 111     \property Voice.Slur \override #'attachment-offset = #'((0 . 3) . (0 . 8))
 112     r8. cis,,16( <<fis fis,>>8 <<gis gis,>>
 113     %3
 114     \property Voice.Stem \set #'length = #5
 115     <<a a,>>4
 116     \translator Staff=treble
 117
 118     \property Voice.Stem \revert #'length
 119     \property Voice.Stem \revert #'direction
 120     \property Voice.Stem \override #'direction = #-1
 121     <<a' fis cis>>-)-\arpeggio
 122     \translator Staff=bass
 123     \property Voice.Stem \revert #'direction
 124     r2
 125     %4
 126     \property Voice.Slur \revert #'beautiful
 127     \property Voice.Slur \revert #'attachment-offset
 128     \stemDown
 129     <<b,, b,>>4
 130     \clef treble
 131     \stemBoth
 132     <
 133         %urg: staff-change: ! on dis
 134         <<cis'' a fis dis!>>-\arpeggio
 135 %       { s8. \clef bass}
 136     >
 137
 138     %Hmm
 139     %\grace { s16 s s s s32 s s s s \clef bass s }
 140     \clef bass
 141     \grace { <<e,,, e,>>32-( } <<gis' e>>2-)
 142     %5
 143     \slurUp
 144     a,8   e'-[-5(<<a-2 cis-3>>-)]
 145     r b,-5 <<e-3 gis-5 d'>>4
 146     \slurBoth
 147       e,8-[-5(|
 148     %6
 149      a-)-2]
 150     \slurUp
 151       e'-[(<<a cis>>-)] r b, <<e gis d'>>4
 152     \slurBoth
 153       e,8-[(|
 154     %7
 155      a-)]
 156 }
 157
 158 bassTwo =  \context Voice=bassTwo \notes\relative c{
 159     \skip 2
 160     \skip 1*2
 161     \skip 2
 162
 163     \stemUp
 164     \slurUp
 165
 166     cis'4( bis-)
 167 }
 168
 169 middleDynamics =  \context Dynamics=middle \notes{
 170     s8 s16 s-\f s4
 171     s1*2
 172     %4
 173     s2
 174
 175     s32
 176     \once \property Dynamics.TextScript \set #'extra-offset = #'(0 . 1.5)
 177     s-"rall." s s
 178     s8 s4
 179
 180     %s1-\mf-"a tempo"
 181     s2-\mf-"a tempo" s8
 182 %%    s\>  s8-\!
 183     s16 s32 s64 \> s s8  s  s8-\!
 184 %%    s8-\mf s4 s4 s8\> s32 s s  s-\!
 185     s8-\mf s4 s8 s16 s32 s64 \> s s16 s8 s32 s s s s128-\!
 186 }
 187
 188 lowerDynamics =  \context Dynamics=lower \notes{
 189     s2
 190     %2
 191     s2-\sustainDown s8. s16-\sustainUp s4
 192     %3
 193     s2-\sustainDown s8. s16-\sustainUp s4
 194     %3
 195
 196     s4-\sustainDown s16
 197     s32 s s-\sustainUp s
 198     s32-\sustainDown s s s
 199     s8
 200
 201     \property Dynamics.pedalSustainStrings = #'("Ped." "*Ped." "")
 202     s4 s16. s32--\sustainUp
 203
 204     %5
 205     s8-\sustainDown s s
 206     \property Dynamics.pedalSustainStrings = #'("Ped." "-P" "*")
 207     s s-\sustainUp-\sustainDown s s
 208     s-\sustainUp
 209
 210     %6
 211     \property Dynamics.pedalSustainStrings = #'("Ped." "*Ped." "")
 212     s8-\sustainDown s s
 213     \property Dynamics.pedalSustainStrings = #'("Ped." "-P" "*")
 214     s s-\sustainUp-\sustainDown s s
 215     s-\sustainUp
 216 }
 217
 218 \score{
 219     \context PianoStaff <
 220         \context Staff=treble <
 221             \treble
 222             \trebleTwo
 223         >
 224         \context Dynamics=middle <
 225             \middleDynamics
 226         >
 227         \context Staff=bass <
 228             \clef bass
 229             \bass
 230             \bassTwo
 231         >
 232         \context Dynamics=lower <
 233             \lowerDynamics
 234         >
 235     >
 236     \paper {
 237         \translator {
 238             \ScoreContext
 239             \remove Bar_number_engraver
 240         }
 241         \translator {
 242             \type "Engraver_group_engraver"
 243             \name Dynamics
 244             \consists "Output_property_engraver"
 245             minimumVerticalExtent = #'(-1 . 1)
 246
 247             pedalSustainStrings = #'("Ped." "*Ped." "*")
 248             pedalUnaCordaStrings = #'("una corda" "" "tre corde")
 249
 250             \consists "Piano_pedal_engraver"
 251             \consists "Script_engraver"
 252             \consists "Dynamic_engraver"
 253             \consists "Text_engraver"
 254
 255             TextScript \override #'font-relative-size = #1
 256             TextScript \override #'font-shape = #'italic
 257
 258             \consists "Skip_event_swallow_translator"
 259
 260             \consistsend "Axis_group_engraver"
 261         }
 262
 263         \translator {
 264             \PianoStaffContext
 265             \accepts Dynamics
 266             VerticalAlignment \override #'forced-distance = #7
 267         }
 268     }
 269 }
 270
 271 %%% Local variables:
 272 %%% LilyPond-indent-level:4
 273 %%% End:
 274 %% new-chords-done %%