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

   1 % prelude-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 %
  14 % this must be redone a bit:
  15 %
  16 %  * two voices: see allemande/sarabande
  17 %  * beams in different beam-thread: see first few bars
  18 %  * slurs/ties in two different threads: urtext, and additionals
  19 %
  20
  21 %prelude_notes = \melodic{
  22 prelude_notes = \type Thread = prelude \melodic{
  23         d,8 f a4 ~ a16 f( e )d |
  24         cis( e g )a bes4 ~ bes16 a( g )f |
  25
  26         [e( g a )cis] \d [e8.() bes,16] \n [a16( g f )e] |
  27         [f( g a )f] [d8( c! bes )a] |
  28         %5
  29         [bes16 d( f )a] \d [d8.()c16] [bes( a g )f] |
  30         [e( g bes )d] [c( a bes )g] [f( e )g bes,] |
  31         \n [a c( e )g] \d [c8.()bes16] \n [a( g f )e] |
  32         \d [d( f a )c] [bes( g a )f] \n [e( f a )f] |
  33         %9
  34         \d [g, bes( d )f] [bes8.() a16] \n [g( f e )g] |
  35         [a, c( e )g] [c a( e )g] [f( a )d, es] |
  36         [d a( bes )d] [g bes( a )c] \d [bes( g )d' f,] |
  37         %12
  38         \n[e b( c )e] \d[g d( e )c] [bes( g )e' bes,] |
  39         [f8 a] \n c4 ~ [c16 bes( a )g] |
  40         [fis a( bes )c] [d, c'( bes )a] [fis' es( d )c] |
  41         \d [bes( a )g bes] \n d4 ~ [d16 \d c( bes )a] |
  42         %16
  43         \n[gis b( c )d] [e, d'( c )b] [gis' \d f ( e )d] |
  44         [c( b a )c] [f( e f )gis] [a( f d )c] |
  45         \n [b( d gis' )b] \d[d8.()c16] \n[b( a gis )a] |
  46         %19
  47         \d [c,( e a )c] [e8.()c16] \n [b( a gis )a] |
  48         [d,( f a )d] \d[f8.()e16] \n[d( c b )d] |
  49         \d[e, d'( c )b] \n[a c( b )a] [d, b'( a )gis] |
  50         %22
  51         [c, a'( g!)f] [cis g,( f )e] [d f( e )d] |
  52         [gis' \d d'( e )f] [b' f,( e )d] [gis,\n d'( c )b] |
  53         \d[a( b c )e] [a( b c )a] [e( c a )g!] |
  54         % 25
  55         % B"arenreiter and Chester say "c bes c"
  56         [fis \n a( c )d] \d[es8.()d16] \n[c( bes )c a'] |
  57         [bes,( a )bes d] [g, es'( f )g] [a, g'( f )es] |
  58         [d( c )d f] [bes,  g'( a )bes] [cis, bes'( a )g] |
  59         % 28
  60         [f( e )f a] [d, bes'( c! )d] [e,! \d d'( c )bes] |
  61         \n[a( g )a c] [f, d'( e )f] [g, f'( e )d ] |
  62         [cis g,( f )e] [a, e'( f )g] [cis'( bes! )a g] |
  63         %31
  64         [f( g )a cis] [d a( g )f] [a f( e )d] |
  65         \d[gis' d,( e )f] [ a, f'( e )d] [gis'( f! )e d ] |
  66         [cis( b )cis e] [a \n e( cis )e] [a, g'!( f )e] |
  67         %34
  68         [f( e )f a] [d a( f )a] \n[d, c'!( bes )a] |
  69         [g( f )g cis'] [e \d cis( g, )cis'] [a,, g'( f )e ] |
  70         [d a' d e] [f d a f] [d c'!( bes )a] |
  71         %37
  72         \n[g( a )bes d,] [es f g a] [bes g es' g,] |
  73         \d[f( g )a cis,][ d e! f g][a f d' f,] |
  74         [e( f )g bes,][a b cis d] \d[e bes, g' bes,] |
  75         %40
  76         [cis,8 a'] \n g'4 ~ [g16 bes( a )g] |
  77         [f( e d )e] [f d a' f] [d' a f d] |
  78         [gis,8 f'] d'4 [d16 f( e )d] |
  79         [cis( b )a b][cis a d a][e' a, f' a,] |
  80         %44
  81         [g' \d e( cis )e][a,( cis )e f][g f g e] |
  82         [f d( cis )d][a( cis )d e][f e f d] |
  83         [e cis( b )cis]\n[a( b )cis d][e d e cis] |
  84         %47
  85         [d \n b( a )b][f,(gis )b cis][d cis d b] |
  86         <{\voiceone <d,4^\fermata cis'>}{\voicetwo g,,}>\onevoice r r |
  87         [bes''16 g( fis)g][es g d g]\d[es( g)bes d,] |
  88         [cis--( \n e!( g ))a]\d[bes8.()a16]\n[g( fis )g e'] |
  89         %51
  90         [f,! d' bes g]\d[a()f e()g][f()d cis()e] |
  91         [d bes( a )g][fis--( \n a( c! ))es]\d[d( c bes )a] |
  92         [bes g( fis )g][es g d g]\n[es( g )bes d,] |
  93         %54
  94         <\voicetwo cis4 bes' {\voiceone [g'8.( )f16] }>
  95         \n[e!( d cis b][a g f )e] \onevoice |
  96         \d[d--( \n a'( d ))e][f( e d c!][bes! a g )f] |
  97         \d[e--( \n a( cis ))e][g( f e d][cis b a )g] |
  98         [f a( d )f][a d,( f )a][d bes! c! a] |
  99         [g,, \d d'( g )a][bes \n g( fis)g][es' g, d' g,] |
 100         <{\voiceone <g2. cis'> | <f,2. d'> | <e, d'> | <e, cis'> | <f, d' > | }
 101         {\voicetwo a,,2.  a a a <d, a'>}>
 102         \octave c';
 103 }
 104
 105 prelude_beam1 = \melodic { [s8 s]s4[s16 s s s] }
 106 prelude_beam2 = \melodic { [s16 s s s]s4[s16 s s s] }
 107
 108 prelude_beams = \type Thread = prelude \melodic{
 109         \$prelude_beam1
 110         \$prelude_beam2
 111 }
 112
 113 prelude = \type Voice \melodic<
 114         \$prelude_notes
 115         \$prelude_beams
 116 >
 117