mutopia/J.S.Bach/sarabande-urtext.ly

   1 % sarabande-urtext.ly
   2 % belongs together with -cello.ly and -alto.ly
   3 % (who is going to make a -violin.ly?)
   4
   5 %{
   6 Well, there are still some scripts in this "urtext".
   7 But merging music and scripts doen't work too well yet (see alto_scripts).
   8 %}
   9
  10 n = { \slurnormal }
  11 d = { \slurdotted }
  12
  13 sarabande_a = \melodic{
  14 %       \octave relative;
  15         \voiceone \d[d,8.()e16] e4.-\trill([d16 )e] |
  16         f4. \onevoice [e8(d)c] |
  17         [bes g']\n[f e16(f][g a bes)d,] |
  18         cis4.-\trill\d[b8(a)g] |
  19         % copy bar 1, half bar 2
  20         \voiceone \d[d'8.()e16] e4.-\trill([d16 )e] |
  21         %5
  22         f'4. \onevoice [d8(d)e] |
  23         \n[g bes16()a][c()bes a()g][d'8 f,] |
  24         \voiceone e4.-\trill \onevoice \d[d8(c)bes] |
  25         \voiceone \n[f' g16()a] a4. [g16()f] |
  26         [g8 a16()bes]a4. [c16()d]|
  27         % 11
  28         \onevoice \d [e,8()f][c,, g'][f'()e] |
  29         f4 f,2 |
  30         \voiceone a''4 \d a4.-\trill()bes8 |
  31         [c bes16()a] \onevoice [fis8.-\trill()es16][d8()c] |
  32         [bes g'][a, fis'][es'()d] |
  33         %16
  34         \voiceone bes4.-\trill \onevoice [a8(g)f!] |
  35         [g bes,()a f'(g)a] |
  36         [d, as,()g es'(f)g]|
  37         [cis, bes'][a g16()f][e!8 f16()d] |
  38         [cis8 e16()a][a,8. g'16]\n[f8()e] |
  39         %21
  40         \voiceone [d e16()f]f4. [e16()d] |
  41         [e8 f16()g]g4. [a16()bes] |
  42         \d[a8 cis16()d][d,8 e16(f32)g][f8-\trill \n e16()d] |
  43         d4 [d,16 a'( b cis][d e f )g] |
  44         %25
  45         [a(b c)b] c4. [b16()a] |
  46         \d[b(cis d )cis] d4. \n[e16()f] |
  47         \onevoice [d(cis)d f,] [a,8 e']\d[d'()cis] |
  48         d4 d,,2 |
  49         \octave c';
  50 }
  51
  52 sarabande_b = \melodic{
  53 %       \octave relative;
  54         \voicetwo
  55 % dispute
  56 %       d4 a,2 |
  57 %       this avoids the clash bug
  58         d8. s16 a,2 |
  59         <d,4. a'> s8*3 |
  60         s2.*2
  61 %       d4 a,2 |
  62         d8. s16 a,2 |
  63         <d,4. a'> s8*3 |
  64         s2. |
  65         <c,4. g'> s8*3  |
  66         a4 <bes4. d> r8 |
  67         bes4 <g2 f'> |
  68         s2.*2 |
  69         \d[f8()es] e4. r8 |
  70         d4 s2 |
  71         s2. |
  72         <g,4. d'> s8*3  |
  73         s2.*4 |
  74         bes4 g2  |
  75         g4 <cis,4. bes'> s8 |
  76         <f,8 a d'> r r g, a4 |
  77         s2. |
  78         f'4 fis4. s8 |
  79         <g,4 d'> gis'4. s8 |
  80         \octave c,;
  81 }
  82
  83
  84 sarabande = \type Voice \melodic<
  85         \$sarabande_a
  86         \$sarabande_b
  87 >
  88