input/wohltemperirt.ly

   1 %{
   2  title: Das Wohltemperirte Clavier I, Fuga II (c-minor)
   3  description: following Henle's Urtext
   4  composer(s): JS Bach
   5  entered-by: HWN
   6  corrected-by: Werner Lemberg (tested with pl 64; 1997-05-17)
   7  copyright: Public Domain
   8
   9  Tested Features: stem direction, multivoice, forced accidentals.
  10
  11  Remarks: the stem direction algorithm is severely broken (look at the
  12 bass dux) with pl64. [this is supposedly fixed in pl68, can anybody
  13 knowledgeable remove this comment if it's not appropriate anymore?]
  14
  15
  16
  17 %}
  18
  19 \version "0.0.60";
  20
  21                                     % should add \need{dutch.ini} for
  22                                     % correct parsing of note names
  23
  24 global =
  25     \melodic {
  26          \meter 4/4;                % should be \meter C
  27          \key bes es as;
  28     }
  29
  30 dux =
  31     \melodic {
  32         \clef "violin";
  33         \octave c';
  34
  35         \stem -1;
  36         r8 [c'16 b] [c'8 g] [as c'16 b] [c'8 d'] |
  37         [g c'16 b] [c'8 d'] [f16 g] as4 [g16 f] |
  38         [es c' b a] [g f! es d] [c8 es' d' c'] |
  39         [bes a bes c'] [fis g a fis] |
  40 %% 5
  41         g4 r16 [c d es] [f g as8~] [as16 d es f]|
  42         [g a bes8~] [bes16 es f g] [as g f es] [d8 c'16 b]|
  43         c'4 r4 r8 [f' es' d']
  44         r8 [as g f] [g f16 es] [f8 d] |
  45         g4 r8 b [c' c'16 b] [c'8 g] |
  46 %% 10
  47         as4 r8 a [bes bes16 a] [bes8 f] |
  48         g4 r8 g [as as g f] |
  49         \octave c; r8 [as bes c'] r8 [as16 g] [as8 f8] |
  50         [bes8 c' bes as] [bes g f es] |
  51         [f des' c' bes] [c' as g f] |
  52 %% 15
  53         g8 \octave c'; [g16 fis] [g8 c] [es g16 fis] [g8 a] |
  54 %        [d g16 fis] [g8 a] [c16 d] es4 [d16 c] |
  55         [d g16 fis] [g8 a] [c16 d] es4 [d16 c] |
  56                                     % wouldn't it be better if I can write
  57                                     % `a' instead of `a!' here to get really
  58                                     % an `a natural'? Processing this melody
  59                                     % alone (only having `a') would yield a
  60                                     % different result! (WL)
  61 %% I don't understand the complaint. The ! makes no difference in output. HWN
  62
  63         'bes8 r8 r16 [d e fis] [g a bes8~] [bes16 e f g] |
  64         [a bes c'8~] [c'16 fis16 g a] [bes8 es!16 d] [es8 'g] |
  65         ['as f16 es] [f8 'a8] ['bes g16 f] [g8 'b] |
  66 %% 20
  67         [c16 f es d] [c Bes! As G] [F8 as g f] |
  68         [es d es f] [B c d B] |
  69         c4 r8 e8 [f f16 e] [f8 c] |
  70         d4 r8 d8 [es8 es16 d] [es8 Bes] |
  71         c2 ~  [c8 d16 es][ f es f d] |
  72 %% 25
  73         B8 r8 r B c r r es |
  74         d r r f~ f r r f |
  75         [es as g f] [es d es f] |
  76         [B c d B] [B c] r c |
  77         [f16 d es c]~ [c8 B] c4 r8 e |
  78 %% 30
  79         f4 r8 f [f es16 d] [es8 <f as]> |
  80 %        f4 r8 <f as b> [f es16 d] [es8 <f as]> |
  81                                     % bug! if you say
  82                                     %   f4 r8 <f as b> ...
  83                                     % the chord overlaps. WL
  84 %% confirmed. added to TODO. HWN
  85         <B d> r <B d> r <G2 c> |
  86     }
  87
  88
  89 comes =
  90     \melodic {
  91         \octave c'';
  92         \stem 1;
  93         r1 |
  94         r1 |
  95         r8 [g16 fis] [g8 c] [es g16 fis] [g8 a] |
  96         [d8 g16 fis] [g8 a] [c16 d] es4 [d16 c] |
  97 %% 5
  98         ['bes8 es16 d] [es8 'g8] ['as f16 es] [f8 'a]
  99         ['bes8 g16 f] [g8 'b] [c8 d16 es] f4~ |
 100         [f8 es16 d] [c16 'bes 'as 'g] ['f8 as g f]
 101         [es d es f] ['b c d 'b] |
 102         [c g16 fis] [g8 d] es4 r8 e8 |
 103 %% 10
 104         [f f16 e] [f8 c8] d4 r8 d |
 105         [es8 es16 d] [es8 'bes] [c es16 d] [es8 f] |
 106         ['bes es16 d] [es8 f] ['as16 'bes] c4 ['bes16 'as] |
 107         [G16 Es F G] [As Bes c d] [es d c d] [es f g a] |
 108         [bes F G As] [Bes c d e] [f es d es] [ f g a b] |
 109 %% 15
 110         [c'8 b16 a] [g f es d] [c8 es d c] |
 111         [Bes A Bes c] [Fis! G A Fis] |
 112                                     % see comment above about forced acc.
 113         [G8 d16 c] d8 r8 r8 [e16 d] e8 r8 |
 114         r [fis16 e] fis8 r r [G16 F] G8 r8 |
 115         r8 [A16 G] A8 r r [B16 A] B8 r |
 116 %% 20
 117         r8 [c16 'b] [c8 'g] [As c16 'b] [c8 d] |
 118         [G c16 B] [c8 d] [F16 G] As4 [G16 F] |
 119         [Es8 c16 B] [c8 G] As4 r8 A |
 120         [Bes8 Bes16 A] [Bes8 F8] 'g4 r8 G~ |
 121         [G As16 Bes] [c B c As] F2~ |
 122 %% 25
 123         [F8 d16 c] [d8 F] [Es es16 d] [es8 G] |
 124         [F f16 es] [f8 As] [G16 f es d] [c B A G] |
 125         [c8 f es d] r [As G F] |
 126         [G F16 Es] [F8 D] [As G] r A |
 127         [B c] [F16 Es D C] C8 [c16 B] [c8 G] |
 128 %% 30
 129         [As c16 B] [c8 <d 'b! 'as!]> [G8 c16 B] [c8 d] |
 130         [F16 G] As4 [G16 F] E2 |
 131     }
 132
 133 bassdux =
 134     \melodic {
 135         \clef "bass";
 136         \octave c';
 137         r1 |
 138         r |
 139         r |
 140         r |
 141 %% 5
 142         r |
 143         r1 |
 144         r8 [c16 B] [c8 G] [As c16 B] [c8 d] |
 145         [G c16 B] [c8 d] [F16 G] As4 [G16 F] |
 146         \octave c; [es c' b a] [g f es d] [c d es d] [c Bes! As! G] |
 147                                     % I think we shouldn't need to force
 148                                     % accidents here because they are in
 149                                     % another octave range. WL
 150
 151 %% I don't understand the complaint. Accidentals are valid for one octave range
 152 %% only. Without ! (and printed flat), this still is valid. HWN
 153
 154 %% 10
 155         [F bes as g] [f es d c] [Bes c d c] [Bes As G F] |
 156         [Es as g f] [es des c Bes] [As8 c' bes as] |
 157         [g8 f g as] [d es f d] |
 158         [es as g f] [g es d c] |
 159         [d bes as g] [as f es d!] |
 160 %% 15
 161         es8 r8 r4 r8 [c Bes A] |
 162         r [es d c] [d c16 Bes] [c8 d] |
 163         [G8 bes16 a] [bes8 d] [es c'16 bes] [c'8 e] |
 164         [f d'16 c'] [d'8 fis] g4 r16 [G A B] |
 165         [c16 d es8~] [es16 A Bes c] [d es f8~] [f16 'b c d] |
 166 %% 20
 167         es8 r r e [f F Es! D] |     % see comment above about octave range
 168         r [As G F] [G F16 Es] [F8 G] |
 169         [c16 d  es d] [c Bes As G] [F bes as g] [f es d c] |
 170         [Bes c d c] [Bes As G F] [Es as g f] [es d c Bes] |
 171         [As Bes c Bes] [As G F Es] [D g f es] [d c B A] |
 172 %% 25
 173         g4 r4 r16 [G A B] [c d es f] |
 174         [g f as g] [f es d c] [B8 c16 B] [c8 G] |
 175         [As c16 B] [c8 d] [G c16 B] [c8 d] |
 176         [F16 G] As4 [G16 F] Es4 r8 es |
 177         [d c g G]
 178 %% 30
 179         < \multi 2;
 180         { \stem 1; c2~ | c1~ | c1 }
 181         { \stem -1; C2~ | C1~ | C1 }
 182         >
 183     }
 184
 185
 186
 187
 188 \score {
 189         \melodic < \multi 1;
 190                 < \multi 2;
 191                         \global
 192                         \dux
 193                         \comes
 194                 >
 195                 < \multi 2;
 196                         \global
 197                         \bassdux
 198                 >
 199
 200         >
 201     \paper{}
 202     \midi {
 203         \tempo 4:84;
 204     }
 205 }
 206
 207 % EOF
 208
 209