release: 0.1.64

[lilypond.git] / mutopia / J.S.Bach / allemande-urtext.ly

diff --git a/mutopia/J.S.Bach/allemande-urtext.ly b/mutopia/J.S.Bach/allemande-urtext.ly
index b3ec3ef1d189bdb174d4b1dab113394733d43062..2b1631b41c21e6b4f42579edbf1d6cee2056ae3a 100644 (file)
--- a/mutopia/J.S.Bach/allemande-urtext.ly
+++ b/mutopia/J.S.Bach/allemande-urtext.ly
@@ -7,61 +7,96 @@ Well, there are still some scripts in this "urtext".
 But merging music and scripts doen't work too well yet (see alto_scripts).
 %}
 
-\version "0.1.14";
 n = { \slurnormal }
 d = { \slurdotted }
 comma = "\\sethuge,";
 
-% write as two voices?
-allemande = \melodic{
-       a,16 |
-       <[''d8 g' f' a> bes16()a][g()f e()d][d()cis d()e]['g8 \d bes16()g] |
-       [f( a )d f,] [e8 cis'] <[''d8. a' d> e16] [f g a bes!] |
+allemande_a = \melodic{
+       \voiceone a,16 | 
+       [a8 bes16()a] \onevoice
+       [g()f e()d][d()cis d()e][g,8 \d bes16()g] |
+       [f( a )d f,] [e8 cis']\voiceone[d8. e16]\onevoice[f g a bes!] |
        %3
-       <['d8 a' fis' c,> \n d16()es][d()c bes()a][c()bes a()g][d'8. f,16] |
-       [e( g )bes d][c()bes a()g]\n[bes()a g()f]<[f8. a> <f16 a]> |
+       \voiceone[c8 \n d16()es]\onevoice[d()c bes()a][c()bes a()g][d'8. f,16] |
+       [e( g )bes d][c()bes a()g]\n[bes()a g()f]
+       <[f8. a> <f16 a]> |
        % urg fix
-       [b \n f,( e )d][e \d cis'( d )cis]<'d8. {[d'( )e16]}>\n[f( e d)e] |
+       [b \n f,( e )d][e \d cis'( d )cis]\voiceone[d'8.( )e16]\onevoice
+       \n[f( e d)e] |
        %6
        [d( c b )c][b( a gis)a][g8-\prall fis16()e][e' c( a )g] |
-       <[f! e'> a, f d]<\voiceone d {\voicetwo[b f' d b]}>\onevoice
+       \voiceone [e' a, f d] [d f d b]\onevoice
        [fis( b e )gis] \d [b( d c )b] |
        %8
        \n[c( a f )d][d( f e )d][gis'8.-\trill()a16]\d[b d e,()d] |
        % urg
-       [c( e a')d']< {\voiceone [b8.-\trill a16] a8 } 
-       {\voicetwo e,4 ['dis8 ~ dis32 e( fis gis][a b c d c b c )a]}> |
-       \onevoice
+       % check [c( e a')d']\voiceone [b8.-\trill a16] a8 \onevoice |
+       [c( e a')d']\voiceone [b8.-\trill a16] a8 s4 s8 \onevoice |
        %10
-       [d'!16 gis'( a b a gis fis )e]<[c8 e a'> f16()e] [d()c b!()a] |
-       <[gis8 d' b'> e'16()f]\d[e()d c()b]<\voicetwo a8 e' 
-       {\voiceone[d'16()b c()a]}> \onevoice e8 gis |
-       ['a8. cis16][e g!( f! )e][f( a )d gis,] a8.
+       [d,!16 gis'( a b a gis fis )e] \voiceone [d8 f16()e]\onevoice
+       [d()c b!()a] |
+       \voiceone[d'8 e16()f]\onevoice\d[e()d c()b]
+       \voiceone[d''16()b c()a] \onevoice [e8 gis] |
+       [a,8. cis16][e g!( f! )e][f( a )d gis,] a8.
        %13
-       e,16 <\voicetwo a, cis'' {\voiceone ['e8. f16]}> \onevoice
-       \n[g!()e fis()a]\n['cis( d )e bes,][a8.-\trill()g16] |
+       e,16 \voiceone [e8. f16] \onevoice
+       \n[g!()e fis()a]\n[cis,( d )e bes,][a8.-\trill()g16] |
        [f a''(f)d][g' \n b,()cis a'][g(f e)d][fis d()es c(] |
        %15
-       [)bes g'('a )g][fis a d c'][bes('fis)g bes][d()a bes()g] |
-       [es(d)es g][c()a bes()g]\d['d(c)d g]\n[bes()'fis g()es] |
+       [)bes g'(a, )g][fis a d c'][bes(fis,)g bes][d()a bes()g] |
+       [es(d)es g][c()a bes()g]\d[d,(c)d g]\n[bes()fis, g()es] |
        %17
-       \n[c(bes)c bes'][a(c)es g,]<['c8-\trill fis'>\d g16()a] ['d8 es16()c] |
-       [bes(d )g bes,]['d8 fis]<['g8. g'> a16][bes d g, f] |
+       \n[c(bes)c bes'][a(c)es g,]\voiceone[fis8-\trill\d g16()a]\onevoice
+       [d,8 es16()c] |
+       [bes(d )g bes,][d,8 fis][g8. a16][bes d g, f] |
        %19
-       <\voicetwo bes,8. {\voicetwo[e'-\trill()f16]}> [g()e c()bes]
-       \n[a()f' g,()f][e g'( a )bes] |
+       \voiceone[e'8.-\trill()f16]\onevoice [g()e c()bes]
+       \n[a()f' g,()f][e g''( a )bes] |
        % :-(
        % [bes( a g )f^\comma]
        [bes( a g )f^"\\sethuge{\\ '}"]
-       [a()'e f()d][bes d(f)a][d'()a bes()g] |
+       [a()e, f()d][bes d(f)a][d'()a bes()g] |
        %21
-       ['a(\n)g'(\n cis'())d][e()'g a()'es][f()d bes()d]\d['gis f'(e)d] |
+       [a,(\n)g'(\n cis'())d][e()g, a()es,][f()d bes()d]\d[gis, f'(e)d] |
        % \n[d( cis b )a^\comma][c(a)fis d'][c a( b )d]
        \n[d( cis b )a^"\\sethuge\\ ,"]
        [c(a)fis d'][c a( b )d]
-       [f!(d )'gis d'] |
+       [f!(d )gis, d'] |
        %23
-       [cis(e g!)bes][e'()a bes()g][f()'cis d()'gis][a8 cis!] |
-       ['d16 d''(c!)a][bes!(g)e cis'][d a f d] d'8.
+       [cis(e g!)bes][e'()a, bes()g][f()cis, d()gis,][a8 cis!] |
+       % knee
+       \stemup [d,16 \stemboth d''(c!)a][bes!(g)e cis'][d a f d] d,8.
+       \octave c';
 }
 
+allemande_b = \melodic{
+       \voicetwo
+       s16 |
+       <d,8 g' f'> s8 s2. |
+       s2 <d,,8. a'> s16 s4 |
+       <d,8 a' fis'> s8 s2. |
+       s1 | 
+       s2 d,,8. s16 s4 |
+       s1 |
+       f''!16 s16*3 b, s16*3 s2 |
+       s1 |
+       s4 e [dis,8 ~ dis32 e( fis gis][a b c d! c b c )a] |
+       s2 <c,8 a'> s8 s4 |
+       % check <gis,,8 bes''> s8 s4 <a,,8 e'> s8. s16 |
+       <gis,,8 bes''> s8 s4 <a,,8 e'> s8 s4 |
+       s1 |
+       % check
+%      s16
+       <g,8 cis''> s8 s2. |
+       s1*3 |
+       s2 c,,8 s8 s4 |
+       s2 g,8. s16 s4 |
+       bes'8. 
+       \octave c;
+}
+
+allemande = \type Voice \melodic<
+       \$allemande_a
+       \$allemande_b
+>
+