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

   1 % menuetto-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 menuetto_i_a = \melodic{
  11 %       \octave relative;
  12         <d,2\f f a> bes4  |
  13         [bes8 a bes g] a4 |
  14         <bes,4 d> g [f8 e] |
  15         [f8( e )d cis b a] |
  16         <d2 f a> bes!4 |
  17         [bes8 a bes g] c!4 |
  18         %7
  19         <f, a> <bes, f' d'> <g,, g' e'> |
  20         <a,,2. e' cis'> |
  21         <a2\f e'> [d8( e16 )f] |
  22         \slurdotted
  23         [e8( d cis )e a,()g] |
  24         a4 ~ d cis |
  25         [g'8( f e )f d() c] |
  26         %13
  27         bes2 c4 |
  28         [a8 g a f] <bes,4 e' d'> |
  29         <a,, f' c'> [bes8 a g a] |
  30         [f8( e )f a g bes] |
  31         <fis2^\trill a> bes4 |
  32         [c8 bes c a] fis4^\trill |
  33         %19
  34 % dispute
  35 %       <bes,4 g' d'> <c, g' c> <[d,8 bes'(> )a] |
  36         <bes,4 g' d'> <c,, g' c> [bes8()a] |
  37         [c8( bes a )bes g()bes] |
  38         d4 ~ cis d |
  39         [g,8 f g e] f4 |
  40         [g,8 g'] <a,4. { e'^\trill ~ d8 }> |
  41         <d,2. a' d> |
  42         \octave c;
  43 }
  44
  45 menuetto_i_b = \melodic{
  46 %       \octave relative;
  47         \slurdotted
  48         \skip 2.*1; |
  49         <c8 e> \skip 8*5; |
  50         \skip 2.*1; |
  51         a,8 \skip 8*5; |
  52         \skip 2.*1; |
  53         e'8 \skip 8*5; |
  54         \onevoice
  55         \skip 2.*3; |
  56         g8 \skip 8*5; |
  57         f2 e4
  58         d8 \skip 8*5; |
  59         g4 ~ f e
  60         f8 \skip 8*5; |
  61         \skip 2.*3; |
  62         es8 \skip 8*3; d4 |
  63         \skip 4*2; d4 |
  64         <d8 g> \skip 8*5; |
  65 % dispute
  66 %       g2 f4 |
  67         g4 \skip 4*1; f4 |
  68         cis8 \skip 8*3; d4 |
  69         \octave c;
  70 }
  71
  72 % UGH, fix this like in sarabande
  73 menuetto_i_a_voice_urg = \melodic{
  74         \skip 2.*1; \voiceone
  75         \skip 2.*1; \onevoice
  76         \skip 2.*1; \voiceone
  77         \skip 2.*1; \onevoice
  78         \skip 2.*1; \voiceone
  79         \skip 2.*1; \onevoice
  80         \skip 2.*3; \voiceone
  81         \skip 2.*1; \voiceone
  82         \skip 2.*3;
  83         \skip 4*2; \onevoice
  84         \skip 4*2; \voiceone
  85         \skip2.*1; \voiceone
  86         \skip 4*2; \onevoice
  87         \skip2.*1; \voiceone
  88         \skip 2.*1; \onevoice
  89         \skip 2*1; \voiceone
  90         \skip 4*1;
  91         \skip 2.*4; \onevoice
  92         \skip 2.*1;
  93 %       \bar "|.";
  94 }
  95
  96 menuetto_i_a_voice_urg_urg = \melodic<
  97         \$menuetto_i_a_voice_urg
  98         \$menuetto_i_a
  99 >
 100
 101 menuetto_i_b_voice_urg = \melodic{
 102         \voicetwo
 103         % urg urg, huh?
 104         \skip 2.*8; \voicetwo
 105 }
 106
 107 menuetto_i_b_voice_urg_urg = \melodic<
 108         \$menuetto_i_b_voice_urg
 109         \$menuetto_i_b
 110 >
 111
 112 menuetto_i = \type Voice \melodic<
 113         { \$menuetto_i_a_voice_urg_urg }
 114         { \$menuetto_i_b_voice_urg_urg }
 115 >
 116
 117 menuetto_ii = \melodic{
 118         \slurdotted
 119         fis'4^\trill [d8( e fis )g] |
 120         a4 fis,, a'' |
 121         [g,,8()b] e4 g |
 122         \slurnormal
 123         [d8( cis )b cis a g] |
 124         % ugh, forcing knee
 125         % Lily's not yet smart enough to decide for herself.
 126         \stemup [fis \stemboth d''( cis b a )g] |
 127         [b( g a fis e )d] |
 128         %7
 129         [cis d] g4 [fis8( g16 )a] |
 130         <\stemdown a,2. \stemup e'> |
 131         \stemboth
 132         cis'4^\prall [e8( d cis )b] |
 133         cis4 g,, cis'' |
 134         [fis,8()a] d4 fis |
 135         [b,8()a g()fis \slurdotted g()b] |
 136         \slurnormal
 137         %13
 138         [e, d'( cis )b cis()ais] |
 139         % check slur! [d, b' a! g fis )e] |
 140         [d,( b' a! g fis )e] |
 141         [g( fis e d cis )d] |
 142         [b( cis d e fis )g] |
 143         [a( g fis g a )b] |
 144         c4 dis,, c'' |
 145         %19
 146         [b8()a c( b a )g] |
 147         [fis() g a()fis g()e] |
 148         \slurdotted
 149         cis4^\trill [a8( b cis )d] |
 150         \slurnormal
 151         [e( fis g )b] a4 |
 152         [g8()fis e()d e()cis] |
 153         d2.
 154 }
 155