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