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 \version "0.1.14";
  11 n = { \slurnormal }
  12 d = { \slurdotted }
  13 comma = "\\sethuge,";
  14
  15 % write as two voices?
  16 allemande = \melodic{
  17         a,16 |
  18         <[''d8 g' f' a> bes16()a][g()f e()d][d()cis d()e]['g8 \d bes16()g] |
  19         [f( a )d f,] [e8 cis'] <[''d8. a' d> e16] [f g a bes!] |
  20         %3
  21         <['d8 a' fis' c,> \n d16()es][d()c bes()a][c()bes a()g][d'8. f,16] |
  22         [e( g )bes d][c()bes a()g]\n[bes()a g()f]<[f8. a> <f16 a]> |
  23         % urg fix
  24         [b \n f,( e )d][e \d cis'( d )cis]<'d8. {[d'( )e16]}>\n[f( e d)e] |
  25         %6
  26         [d( c b )c][b( a gis)a][g8-\prall fis16()e][e' c( a )g] |
  27         <[f! e'> a, f d]<\voiceone d {\voicetwo[b f' d b]}>\onevoice
  28         [fis( b e )gis] \d [b( d c )b] |
  29         %8
  30         \n[c( a f )d][d( f e )d][gis'8.-\trill()a16]\d[b d e,()d] |
  31         % urg
  32         [c( e a')d']< {\voiceone [b8.-\trill a16] a8 }
  33         {\voicetwo e,4 ['dis8 ~ dis32 e( fis gis][a b c d c b c )a]}> |
  34         \onevoice
  35         %10
  36         [d'!16 gis'( a b a gis fis )e]<[c8 e a'> f16()e] [d()c b!()a] |
  37         <[gis8 d' b'> e'16()f]\d[e()d c()b]<\voicetwo a8 e'
  38         {\voiceone[d'16()b c()a]}> \onevoice e8 gis |
  39         ['a8. cis16][e g!( f! )e][f( a )d gis,] a8.
  40         %13
  41         e,16 <\voicetwo a, cis'' {\voiceone ['e8. f16]}> \onevoice
  42         \n[g!()e fis()a]\n['cis( d )e bes,][a8.-\trill()g16] |
  43         [f a''(f)d][g' \n b,()cis a'][g(f e)d][fis d()es c(] |
  44         %15
  45         [)bes g'('a )g][fis a d c'][bes('fis)g bes][d()a bes()g] |
  46         [es(d)es g][c()a bes()g]\d['d(c)d g]\n[bes()'fis g()es] |
  47         %17
  48         \n[c(bes)c bes'][a(c)es g,]<['c8-\trill fis'>\d g16()a] ['d8 es16()c] |
  49         [bes(d )g bes,]['d8 fis]<['g8. g'> a16][bes d g, f] |
  50         %19
  51         <\voicetwo bes,8. {\voicetwo[e'-\trill()f16]}> [g()e c()bes]
  52         \n[a()f' g,()f][e g'( a )bes] |
  53         % :-(
  54         % [bes( a g )f^\comma]
  55         [bes( a g )f^"\\sethuge{\\ '}"]
  56         [a()'e f()d][bes d(f)a][d'()a bes()g] |
  57         %21
  58         ['a(\n)g'(\n cis'())d][e()'g a()'es][f()d bes()d]\d['gis f'(e)d] |
  59         % \n[d( cis b )a^\comma][c(a)fis d'][c a( b )d]
  60         \n[d( cis b )a^"\\sethuge\\ ,"]
  61         [c(a)fis d'][c a( b )d]
  62         [f!(d )'gis d'] |
  63         %23
  64         [cis(e g!)bes][e'()a bes()g][f()'cis d()'gis][a8 cis!] |
  65         ['d16 d''(c!)a][bes!(g)e cis'][d a f d] d'8.
  66 }
  67