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

   1 % allemande-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 comma = "\\sethuge,";
  13
  14 allemande_a = \melodic{
  15         \voiceone a,16 |
  16         [a8 bes16()a] \onevoice
  17         [g()f e()d][d()cis d()e][g,8 \d bes16()g] |
  18         [f( a )d f,] [e8 cis']\voiceone[d8. e16]\onevoice[f g a bes!] |
  19         %3
  20         \voiceone[c8 \n d16()es]\onevoice[d()c bes()a][c()bes a()g][d'8. f,16] |
  21         [e( g )bes d][c()bes a()g]\n[bes()a g()f]
  22         <[f8. a> <f16 a]> |
  23         % urg fix
  24         [b \n f,( e )d][e \d cis'( d )cis]\voiceone[d'8.( )e16]\onevoice
  25         \n[f( e d)e] |
  26         %6
  27         [d( c b )c][b( a gis)a][g8-\prall fis16()e][e' c( a )g] |
  28         \voiceone [e' a, f d] [d f d b]\onevoice
  29         [fis( b e )gis] \d [b( d c )b] |
  30         %8
  31         \n[c( a f )d][d( f e )d][gis'8.-\trill()a16]\d[b d e,()d] |
  32         % urg
  33         % check [c( e a')d']\voiceone [b8.-\trill a16] a8 \onevoice |
  34         [c( e a')d']\voiceone [b8.-\trill a16] a8 s4 s8 \onevoice |
  35         %10
  36         [d,!16 gis'( a b a gis fis )e] \voiceone [d8 f16()e]\onevoice
  37         [d()c b!()a] |
  38         \voiceone[d'8 e16()f]\onevoice\d[e()d c()b]
  39         \voiceone[d''16()b c()a] \onevoice [e8 gis] |
  40         [a,8. cis16][e g!( f! )e][f( a )d gis,] a8.
  41         %13
  42         e,16 \voiceone [e8. f16] \onevoice
  43         \n[g!()e fis()a]\n[cis,( d )e bes,][a8.-\trill()g16] |
  44         [f a''(f)d][g' \n b,()cis a'][g(f e)d][fis d()es c(] |
  45         %15
  46         [)bes g'(a, )g][fis a d c'][bes(fis,)g bes][d()a bes()g] |
  47         [es(d)es g][c()a bes()g]\d[d,(c)d g]\n[bes()fis, g()es] |
  48         %17
  49         \n[c(bes)c bes'][a(c)es g,]\voiceone[fis8-\trill\d g16()a]\onevoice
  50         [d,8 es16()c] |
  51         [bes(d )g bes,][d,8 fis][g8. a16][bes d g, f] |
  52         %19
  53         \voiceone[e'8.-\trill()f16]\onevoice [g()e c()bes]
  54         \n[a()f' g,()f][e g''( a )bes] |
  55         % :-(
  56         % [bes( a g )f^\comma]
  57         [bes( a g )f^"\\sethuge{\\ '}"]
  58         [a()e, f()d][bes d(f)a][d'()a bes()g] |
  59         %21
  60         [a,(\n)g'(\n cis'())d][e()g, a()es,][f()d bes()d]\d[gis, f'(e)d] |
  61         % \n[d( cis b )a^\comma][c(a)fis d'][c a( b )d]
  62         \n[d( cis b )a^"\\sethuge\\ ,"]
  63         [c(a)fis d'][c a( b )d]
  64         [f!(d )gis, d'] |
  65         %23
  66         [cis(e g!)bes][e'()a, bes()g][f()cis, d()gis,][a8 cis!] |
  67         % knee
  68         \stemup [d,16 \stemboth d''(c!)a][bes!(g)e cis'][d a f d] d,8.
  69         \octave c';
  70 }
  71
  72 allemande_b = \melodic{
  73         \voicetwo
  74         s16 |
  75         <d,8 g' f'> s8 s2. |
  76         s2 <d,,8. a'> s16 s4 |
  77         <d,8 a' fis'> s8 s2. |
  78         s1 |
  79         s2 d,,8. s16 s4 |
  80         s1 |
  81         f''!16 s16*3 b, s16*3 s2 |
  82         s1 |
  83         s4 e [dis,8 ~ dis32 e( fis gis][a b c d! c b c )a] |
  84         s2 <c,8 a'> s8 s4 |
  85         % check <gis,,8 bes''> s8 s4 <a,,8 e'> s8. s16 |
  86         <gis,,8 bes''> s8 s4 <a,,8 e'> s8 s4 |
  87         s1 |
  88         % check
  89 %       s16
  90         <g,8 cis''> s8 s2. |
  91         s1*3 |
  92         s2 c,,8 s8 s4 |
  93         s2 g,8. s16 s4 |
  94         bes'8.
  95         \octave c;
  96 }
  97
  98 allemande = \type Voice \melodic<
  99         \$allemande_a
 100         \$allemande_b
 101 >
 102