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 \version "0.1.14";
  11 n = { \slurnormal }
  12 d = { \slurdotted }
  13
  14 sarabande_a = \melodic{
  15 %       \octave relative;
  16         \voiceone \d['d8.()e16] e4.-\trill([d16 )e] |
  17         f4. \onevoice [e8(d)c] |
  18         [bes g']\n[f e16(f][g a bes)'d] |
  19         cis4.-\trill\d[b8(a)g] |
  20         % copy bar 1, half bar 2
  21         \voiceone \d[d'8.()e16] e4.-\trill([d16 )e] |
  22         %5
  23         f'4. \onevoice [d8(d)e] |
  24         \n[g bes16()a][c()bes a()g][d'8 f,] |
  25         \voiceone e4.-\trill \onevoice \d[d8(c)bes] |
  26         \voiceone \n[f' g16()a] a4. [g16()f] |
  27         [g8 a16()bes]a4. [c16()d]|
  28         % 11
  29         \onevoice \d ['e8()f][''c g'][f'()e] |
  30         f4 f,2 |
  31         \voiceone a''4 \d a4.-\trill()bes8 |
  32         [c bes16()a] \onevoice [fis8.-\trill()es16][d8()c] |
  33         [bes g']['a fis'][es'()d] |
  34         %16
  35         \voiceone bes4.-\trill \onevoice [a8(g)f!] |
  36         [g bes,()a f'(g)a] |
  37         ['d as,()g es'(f)g]|
  38         ['cis bes'][a g16()f][e!8 f16()d] |
  39         [cis8 e16()a]['a8. g'16]\n[f8()e] |
  40         %21
  41         \voiceone [d e16()f]f4. [e16()d] |
  42         [e8 f16()g]g4. [a16()bes] |
  43         \d[a8 cis16()d]['d8 e16(f32)g][f8-\trill \n e16()d] |
  44         d4 ['d16 a'( b cis][d e f )g] |
  45         %25
  46         [a(b c)b] c4. [b16()a] |
  47         \d[b(cis d )cis] d4. \n[e16()f] |
  48         \onevoice [d(cis)d f,] ['a8 e']\d[d'()cis] |
  49         d4 d,,2 |
  50 }
  51
  52 sarabande_b = \melodic{
  53 %       \octave relative;
  54         \voicetwo
  55         d'4 a,2 |
  56         <'d4. a'> s8*3 |
  57         s2.*2
  58         d4 a,2 |
  59         <'d4. a'> s8*3 |
  60         s2. |
  61         <'c4. g'> s8*3  |
  62         a4 <bes4. d> r8 |
  63         bes4 <g2 f'> |
  64         s2.*2 |
  65         \d[f8()es] e4. r8 |
  66         d4 s2 |
  67         s2. |
  68         <'g4. d'> s8*3  |
  69         s2.*4 |
  70         bes4 g2  |
  71         g4 <'cis4. bes'> s8 |
  72         <'f8 a d'> r r g a4 |
  73         s2. |
  74         f'4 fis4. s8 |
  75         <'g4 d'> gis'4. s8 |
  76 }
  77
  78
  79 sarabande = \type Voice \melodic<
  80         \$sarabande_a
  81         \$sarabande_b
  82 >
  83