input/les-nereides.ly

   1 \header{
   2     composer =   "ARTHUR GRAY";
   3     title =      "LES N\\'ER\\'EIDES";
   4     subtitle =   "THE NEREIDS";
   5     enteredby =  "JCN";
   6     piece =      "Allegretto scherzando";
   7     copyright =  "public domain";
   8     description = "Natiest piece of competition at http://www.orphee.com/comparison/study.html, see http://www.orphee.com/comparison/gray.pdf";
   9     comment =     "LilyPond (1.3.93) can't really do this yet, I guess";
  10 }
  11
  12 global = \notes{
  13     \partial 2;
  14     \key a \major;
  15     \skip 2;
  16     \skip 1*2;
  17
  18     %\skip 1;
  19
  20     % fake grace
  21     \skip 2.; \partial 32*24;
  22     \skip 32*24;
  23     %end fake grace
  24
  25     \bar "||";
  26 }
  27
  28 treble = \context Voice=treble \notes\relative c''{
  29     r2
  30     %2
  31     \property basicStemProperties \pop #'direction
  32     \property Voice.basicStemProperties \push #'direction = #1
  33     r4 <cis eis a cis> r2
  34     %3
  35     r4 <cis fis a cis> r8.
  36     \translator Staff=bass
  37     cis,16^2^"m.g."( <fis8 fis,\sustainup> <e! e,!>
  38     %4
  39     <)dis,4 a' dis>
  40     \translator Staff=treble
  41     \property basicSlurProperties \pop #'direction
  42     \property Voice.basicSlurProperties \push #'direction = #1
  43     %% 8va
  44     cis''''4 (
  45
  46 %{
  47
  48     \property basicStemProperties \pop #'direction
  49     % ugh
  50     \property Voice.basicStemProperties \push #'direction = #0
  51
  52     % grace is a mess
  53     % maybe we should fake this and put 5/4 in this bar?
  54
  55     \grace {
  56         )cis8
  57         \property basicStemProperties \pop #'direction
  58         \property Grace.basicStemProperties \push #'direction = #0
  59         %urg, dim. during grace dumps core here
  60         %%[a16-5( fis dis] [cis'32 a-1 fis-4 dis\>] [cis a )\!fis-2]
  61         [a16-5( fis dis] [cis32 a-1 fis-4 dis] [cis a )fis-2]
  62     }
  63
  64 %}
  65
  66     %% fake grace:
  67     \property basicNoteHeadProperties \pop #'font-size
  68     \property basicStemProperties \pop #'font-size
  69     \property basicBeamProperties \pop #'font-size
  70     \property basicTextScriptProperties \pop #'font-size
  71     \property basicSlurProperties \pop #'font-size
  72     \property basicLocalKeyProperties \pop #'font-size
  73
  74     \property Voice.basicNoteHeadProperties \push #'font-size = #-1
  75     \property Voice.basicStemProperties \push #'font-size = #-1
  76     \property Voice.basicBeamProperties \push #'font-size = #-1
  77     \property Voice.basicTextScriptProperties \push #'font-size = #-1
  78     \property Voice.basicSlurProperties \push #'font-size = #-1
  79     \property Voice.basicLocalKeyProperties \push #'font-size = #-1
  80
  81     )cis16
  82     \property basicStemProperties \pop #'direction
  83     \property Voice.basicStemProperties \push #'direction = #0
  84     %%[a16^5( fis dis] [cis'32 a-1 fis-4 dis\>] [cis a )fis-2] s s s
  85     [a16^5( fis dis] [cis32 a^1 fis^4 dis\>] [cis a )fis-2] s % s s
  86
  87     \property basicNoteHeadProperties \pop #'font-size
  88     \property basicStemProperties \pop #'font-size
  89     \property basicBeamProperties \pop #'font-size
  90     \property basicTextScriptProperties \pop #'font-size
  91     \property basicSlurProperties \pop #'font-size
  92     \property basicLocalKeyProperties \pop #'font-size
  93
  94     %ugh ugh
  95     \property Voice.basicNoteHeadProperties \push #'font-size = #0
  96     \property Voice.basicStemProperties \push #'font-size = #0
  97     \property Voice.basicBeamProperties \push #'font-size = #0
  98     \property Voice.basicTextScriptProperties \push #'font-size = #0
  99     \property Voice.basicSlurProperties \push #'font-size = #0
 100     \property Voice.basicLocalKeyProperties \push #'font-size = #0
 101     %% end fake grace
 102
 103
 104
 105
 106     \property basicStemProperties \pop #'direction
 107     \property Voice.basicStemProperties \push #'direction = #1
 108     \!cis'4()bis
 109     r8\mf-"a tempo"
 110     <a'8( a,> <gis gis,> <fis fis,> <gis gis,> <fis fis,> )e r|
 111     r\mf <a8( a,> <gis gis,> <fis fis,> <gis gis,> <fis fis,> )e r|
 112 }
 113
 114 trebleTwo = \context Voice=trebleTwo \notes\relative c''{
 115     \skip 2;
 116     \skip 1*2;
 117     \skip 4;
 118     \property basicStemProperties \pop #'direction
 119     \property Voice.basicStemProperties \push #'direction = #-1
 120     <cis4 a fis dis>
 121
 122     %% fake grace
 123     \skip 32*16;
 124     %% end fake grace
 125
 126     <e2-"rall." g, e d>
 127     r8 cis4. d4 [<cis8( e,> <b-3 d,-1> |
 128     <)a-2 cis,-1>] cis4. d4 [<cis8(\> e,> <b d,> |
 129     <\!)a cis,>]
 130 }
 131
 132 bass = \context Voice=bass \notes\relative c{
 133     \property Voice.basicSlurProperties \push #'details =
 134         #'((height-limit . 2.0) (ratio . 0.333) (force-blowfit . 0.5) (beautiful . 5.0))
 135     \property basicStemProperties \pop #'direction
 136     \property Voice.basicSlurProperties \push #'direction = #-1
 137     % huh, auto-beamer?
 138     r8. e,16-2\f( [<a8 a,> <b b,>] <cis4\sustaindown cis,> |
 139     %2
 140     \translator Staff=treble
 141     \property basicStemProperties \pop #'direction
 142     \property Voice.basicStemProperties \push #'direction = #-1
 143     \property Voice.slurEndAttachment = #'stem
 144     <)a''4 eis cis>
 145     %\stemboth
 146     \property Voice.slurEndAttachment = ##f
 147     \translator Staff=bass
 148     \property basicStemProperties \pop #'direction
 149     % ugh
 150     \property Voice.basicStemProperties \push #'direction = #'0
 151     r8. cis,,16(\sustainup <fis8 fis,> <gis gis,>
 152     %3
 153     <a4\sustaindown a,>
 154     \translator Staff=treble
 155     \property basicStemProperties \pop #'direction
 156     \property Voice.basicStemProperties \push #'direction = #-1
 157     <)a' fis cis>
 158     \translator Staff=bass
 159     \property basicStemProperties \pop #'direction
 160     % ugh
 161     \property Voice.basicStemProperties \push #'direction = #'0
 162     r2
 163     %4
 164     \property basicStemProperties \pop #'direction
 165     \property Voice.basicStemProperties \push #'direction = #-1
 166     <b,,4\sustaindown b,>
 167     \clef treble;
 168     \property basicStemProperties \pop #'direction
 169     \property Voice.basicStemProperties \push #'direction = #0
 170     <
 171         %urg: staff-change: ! on dis
 172         <cis'' a fis dis!>
 173 %       { s8. \sustainup\clef bass;}
 174     >
 175     %\grace { s16 s s s s32 s s s s \clef bass; s }
 176     %\clef bass;
 177     %\grace { <e,,,32\sustaindown( e,> } <)gis'2 e>
 178
 179     %% fake grace
 180     s4 s8 s32 s \sustainup s \clef bass; s
 181     %% end fake grace
 182
 183     \grace { <e,,,32( e,> } <)gis'2\sustaindown e>
 184     %5
 185     \property basicSlurProperties \pop #'direction
 186     \property Voice.basicSlurProperties \push #'direction = #1
 187     \property Staff.stopStartSustain = #""
 188     a,8\sustainup\sustaindown [e'-5(<)a-2 cis-3>]
 189     \property Staff.stopStartSustain = #"-P"
 190      r b,-5\sustainup\sustaindown <e4-3 gis-5 d'>
 191     \property basicSlurProperties \pop #'direction
 192     \property Voice.basicSlurProperties \push #'direction = #0
 193     [e,8-5(\sustainup|
 194     %6
 195     )a-2\sustaindown]
 196     \property basicSlurProperties \pop #'direction
 197     \property Voice.basicSlurProperties \push #'direction = #1
 198     [e'(<)a cis>] r b,\sustainup\sustaindown <e4 gis d'>
 199     \property basicSlurProperties \pop #'direction
 200     \property Voice.basicSlurProperties \push #'direction = #0
 201     [e,8(\sustainup|
 202     %7
 203     )a]
 204 }
 205
 206 bassTwo = \context Voice=bassTwo \notes\relative c{
 207     \skip 2;
 208     \skip 1*2;
 209     \skip 2;
 210
 211     %% fake grace
 212     \skip 32*16;
 213
 214     \property basicStemProperties \pop #'direction
 215     \property Voice.basicStemProperties \push #'direction = #1
 216     \property basicSlurProperties \pop #'direction
 217     \property Voice.basicSlurProperties \push #'direction = #1
 218     cis'4()bis
 219 }
 220
 221 \score{
 222     \context PianoStaff <
 223         \context Staff=treble <
 224             \global
 225             \treble
 226             \trebleTwo
 227         >
 228         \context Staff=bass <
 229             \clef bass;
 230             \global
 231             \bass
 232             \bassTwo
 233         >
 234     >
 235     \paper {
 236         \translator {
 237             \ScoreContext
 238             basicTimeSignatureProperties \push #'style = #"C"
 239         }
 240         \translator {
 241             \GraceContext
 242             basicStemProperties \push #'flag-style = #""
 243         }
 244     }
 245 }