input/wohltemperirt.ly

   1 \header{
   2 filename                wohltemperirt.ly
   3 title           Fuga a 3
   4 description             Das Wohltemperierte Clavier I, Fuga II (c-minor)
   5 opus            BWV 847-Fuga
   6 source          Henle's Urtext
   7 composer                Johann Sebastian Bach (1685-1750)
   8 enteredby               HWN and Werner Lemberg
   9 copyright               Public Domain
  10 }
  11 %{
  12  Tested Features: stem direction, multivoice, forced accidentals.
  13 %}
  14
  15 \version "0.1.1";
  16
  17                                     % should add \need{dutch.ini} for
  18                                     % correct parsing of note names
  19
  20 global =
  21     \melodic {
  22          \meter 4/4;                % should be \meter C
  23          \keyCminor
  24     }
  25
  26 dux =
  27     \melodic {
  28         \clef "violin";
  29         \octave c';
  30
  31         \stem \down;
  32         r8 [c'16 b] [c'8 g] [as c'16 b] [c'8 d'] |
  33         [g c'16 b] [c'8 d'] [f16 g] as4 [g16 f] |
  34         [es c' b a] [g f! es d] [c8 es' d' c'] |
  35         [bes a bes c'] [fis g a fis] |
  36 %% 5
  37         g4 r16 [c d es] [f g as8~] [as16 d es f] |
  38         [g a bes8~] [bes16 es f g] [as g f es] [d8 c'16 b!] |
  39                                                     % forced accident!
  40         c'4 r4 r8 [f' es' d'] |
  41         r8 [as g f] [g f16 es] [f8 d] |
  42         g4 r8 b [c' c'16 b] [c'8 g] |
  43 %% 10
  44         as4 r8 a [bes bes16 a] [bes8 f] |
  45         g4 r8 g [as as g f] |
  46         \octave c; r8 [as bes c'] r8 [as16 g] [as8 f8] |
  47         [bes8 c' bes as] [bes g f es] |
  48         [f des' c' bes] [c' as g f] |
  49 %% 15
  50         g8 \octave c'; [g16 fis] [g8 c] [es g16 fis!] [g8 a] |
  51         [d g16 fis] [g8 a!] [c16 d] es4 [d16 c] |
  52                                                     % forced accident!
  53         'bes8 r8 r16 [d e fis] [g a bes8~] [bes16 e f g] |
  54         [a bes c'8~] [c'16 fis16 g a] [bes8 es!16 d] [es8 'g] |
  55         ['as f16 es] [f8 'a8] ['bes g16 f] [g8 'b] |
  56 %% 20
  57         [c16 f es d] [c Bes! As G] [F8 as g f] |
  58         [es d es f] [B c d B] |
  59         c4 r8 e8 [f f16 e] [f8 c] |
  60         d4 r8 d8 [es8 es16 d] [es8 Bes] |
  61         c2 ~  [c8 d16 es][ f es f d] |
  62 %% 25
  63         B8 r8 r B c r r es |
  64         d r r f~ f r r f |
  65         [es as g f] [es d es f] |
  66         [B c d B] [B c] r c |
  67         [f16 d es c]~ [c8 B] c4 r8 e |
  68 %% 30
  69         f4 r8 f [f es16 d] [es8 <f as]> |
  70         <B d> r <B d> r <G2 c> |
  71     }
  72
  73
  74 comes =
  75     \melodic {
  76         \octave c'';
  77         \stem \up;
  78         r1 |
  79         r1 |
  80         r8 [g16 fis] [g8 c] [es g16 fis] [g8 a] |
  81         [d8 g16 fis] [g8 a] [c16 d] es4 [d16 c] |
  82 %% 5
  83         ['bes8 es16 d] [es8 'g8] ['as f16 es] [f8 'a]
  84         ['bes8 g16 f] [g8 'b] [c8 d16 es] f4~ |
  85         [f8 es16 d] [c16 'bes! 'as 'g] ['f8 as g f]
  86         [es d es f] ['b c d 'b] |
  87         [c g16 fis] [g8 d] es4 r8 e8 |
  88 %% 10
  89         [f f16 e] [f8 c8] d4 r8 d |
  90         [es8 es16 d] [es8 'bes] [c es16 d] [es8 f] |
  91         ['bes es16 d] [es8 f] ['as16 'bes] c4 ['bes16 'as] |
  92         [G16 Es F G] [As Bes c d] [es d c d] [es f g a] |
  93         [bes F G As] [Bes c d e] [f es d es] [ f g a b] |
  94 %% 15
  95         [c'8 b16 a] [g f! es d] [c8 es d c] |
  96         [Bes A Bes c] [Fis! G A Fis] |
  97                                                     % forced accident
  98         [G8 d16 c] d8 r8 r8 [e16 d] e8 r8 |
  99         r [fis16 e] fis8 r r [G16 F] G8 r8 |
 100         r8 [A16 G] A8 r r [B16 A] B8 r |
 101 %% 20
 102         r8 [c16 'b] [c8 'g] [As c16 'b] [c8 d] |
 103         [G c16 B] [c8 d] [F16 G] As4 [G16 F] |
 104         [Es8 c16 B] [c8 G] As4 r8 A |
 105         [Bes8 Bes16 A] [Bes8 F8] 'g4 r8 G~ |
 106         [G As16 Bes] [c B c As] F2~ |
 107 %% 25
 108         [F8 d16 c] [d8 F] [Es es16 d] [es8 G] |
 109         [F f16 es] [f8 As] [G16 f es d] [c B A G] |
 110         [c8 f es d] r [As G F] |
 111         [G F16 Es] [F8 D] [As G] r A |
 112         [B c] [F16 Es D C] C8 [c16 B] [c8 G] |
 113 %% 30
 114         [As c16 B] [c8 <d 'b! 'as!]> [G8 c16 B] [c8 d] |
 115         [F16 G] As4 [G16 F] E2 |
 116     }
 117
 118 bassdux =
 119     \melodic {
 120         \clef "bass";
 121         \octave c';
 122         r1 |
 123         r |
 124         r |
 125         r |
 126 %% 5
 127         r |
 128         r1 |
 129         r8 [c16 B] [c8 G] [As c16 B] [c8 d] |
 130         [G c16 B] [c8 d] [F16 G] As4 [G16 F] |
 131         \octave c; [es c' b a] [g f es d] [c d es d] [c Bes! As! G] |
 132                                                     % -> \classic_accidentals
 133 %% 10
 134         [F bes as g] [f es d c] [Bes c d c] [Bes As G F] |
 135         [Es as g f] [es des c Bes] [As8 c' bes as] |
 136         [g8 f g as] [d es f d] |
 137         [es as g f] [g es d c] |
 138         [d bes as g] [as f es d!] |
 139 %% 15
 140         es8 r8 r4 r8 [c Bes A] |
 141         r [es d c] [d c16 Bes] [c8 d] |
 142         [G8 bes16 a] [bes8 d] [es c'16 bes] [c'8 e] |
 143         [f d'16 c'] [d'8 fis] g4 r16 [G A B] |
 144         [c16 d es8~] [es16 A Bes c] [d es f8~] [f16 'b c d] |
 145 %% 20
 146         es8 r r e [f F Es! D] |                     % -> \classic_accidentals
 147         r [As G F] [G F16 Es] [F8 G] |
 148         [c16 d  es d] [c Bes As G] [F bes as g] [f es d c] |
 149         [Bes c d c] [Bes As G F] [Es as g f] [es d c Bes] |
 150         [As Bes c Bes] [As G F Es] [D g f es] [d c B A] |
 151 %% 25
 152         G4 r4 r16 [G A B] [c d es f] |
 153         [g f as g] [f es d c] [B8 c16 B] [c8 G] |
 154         [As c16 B] [c8 d] [G c16 B] [c8 d] |
 155         [F16 G] As4 [G16 F] Es4 r8 es |
 156         [d c g G]
 157 %% 30
 158         < \multi 2;
 159         { \stem \up; c2~ | c1~ | c1 }
 160         { \stem \down; C2~ | C1~ | C1 }
 161         >
 162     }
 163
 164
 165 \score {
 166     \melodic < \id "Piano" "";
 167                \multi 1;
 168                  < \multi 2;
 169                        \global
 170                        \dux
 171                        \comes
 172                  >
 173                  < \multi 2;
 174                        \global
 175                        \bassdux
 176                  >
 177              >
 178
 179     \paper{
 180         gourlay_maxmeasures =5.;
 181
 182     }
 183     \midi {
 184         \tempo 4 = 84;
 185     }
 186 }
 187
 188 % EOF