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

   1 % courante-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 % write as two voices? see allemande/sarabande
  14 courante = \melodic{
  15         d'16 |
  16         [d a f a] [d, f g a]\d[bes()a bes()g] |
  17         <\voiceone g4 a {\voicetwo \n cis, ~ [cis16 d e f]}>
  18         \onevoice \d[g()f g()e] |
  19         [f()d e()c!]\n[bes(a)bes a'][g f e d] |
  20         %4
  21         % [cis e \n a,(\d(b][[cis d e f][)g )bes-- a e] |
  22         [cis e \n a,(b][[cis d e f][)g bes-- a e] |
  23         % [f a \n d,(\d( e][f g a bes][)c )bes-- d c] |
  24         [f a \n d,( e][f g a bes][)c bes-- d c] |
  25         \n<{\voicetwo <g,,4 {f'~ f16}>} {\voiceone c'4 ~ [c16 bes a g]}>
  26         \onevoice [f()es d()es] |
  27         %7
  28         [d bes(a)bes][d bes e'! bes,][f' bes, g' bes,] |
  29         \d[e,( g )c' d][e f g a][bes()a bes()g]|
  30         \n[a f(e)f][a f bes f,][c' f, d' f,] |
  31         %10
  32         [cis,( e )a' b][cis d e f][g()f g()e] |
  33         [d,,( f' )d' e]\n[d()c d()c][b()a b()a] |
  34         \n[gis( a )b e,]\n[f()e f()d][e()c d()b] |
  35         %13
  36         \n[c a'( b c][b a gis)a][d, a' e, a'] |
  37         [f a( b c][b a gis)a][f a e, a'] |
  38         [dis, a'( b c][b a gis)a][e, a' e, g] |
  39         [a e, cis e][a, cis e gis] a8.
  40         %17
  41         e'16 |
  42         [e cis a cis][e, f g a][bes()g cis'()g,] |
  43         <\voicetwo f4 {\voiceone d' ~ \stemdown[d16 a d e] }>
  44          |
  45         \n[b f,(d)f]\d[g, d'(f)g][b f, d' f,] |
  46         %20
  47         [e g c,(d][e f g a][)bes! d c g,] |
  48         <\voiceone a {\voicetwo [f c'(bes a][g f es d]
  49         [)es c' f, es]}> |
  50         <\voicetwo bes,4 {\voiceone d ~ [d16 e! f g]}>
  51         \onevoice
  52         [a bes c d] |
  53         %23
  54         [e, bes,(a)g][a f' \n g,()f]\d[c,()g' f' e] |
  55         [f a( bes a][g f e )f][g e f d]|
  56         [cis g' b, g'][a, g' b, g'][cis, g' a, g']|
  57         %26
  58         [f d f a][d a, d' e][f a, f d]|
  59         [g, d'(g)a][bes g' a, f'][g, e' f, d']|
  60         \n[cis(d)e cis][a cis bes cis][a cis g, cis']|
  61         %29
  62         \n[f, d'(e f][e d cis)d][g, d' a d]|
  63         \d[bes d(e f][e d cis)d][bes d a d]|
  64         [gis, d'(e f][e d cis)d][a d a cis]|
  65         [d a f a][d, f a, d]
  66         d,8.
  67         \octave c';
  68 }
  69