input/wohltemperirt.ly

   1 %{
   2  title: Das Wohltemperirte Clavier I, Fuga II (c-minor)
   3  description:
   4  composer(s): JS Bach
   5  entered-by: HWN
   6  copyright:Public Domain
   7
   8  Tested Features:stem direction, multivoice.
   9 %}
  10
  11 \version "0.0.57";
  12
  13 global = \melodic{
  14         \meter 4/4 ;
  15         \key bes es as;
  16 }
  17
  18 dux = \melodic  {
  19         \clef "violin";
  20         \octave c' ;
  21         \duration  \last ;
  22
  23         \stem -1;
  24          r8
  25         [c'16 b] [c'8 g] [as c'16 b] [c'8 d'] |
  26         [g c'16 b] [c'8 d'] [f16 g] as4 [g16 f] |
  27         [es c' b a] [ g f es d] [c8 es' d' c'] |
  28         [bes a bes c'] [fis g a fis] |
  29         g4 r16 [c d es] [f g as8~] [as16 d es f ]|
  30         [g a bes8(] [)bes16 es f g ] [as g f es] [d8 c'16 b]|
  31         c'4 r4 r8 [f' es' d']
  32         r8 [as g f] [g f16 es] [f8 d] |
  33         g4 r8 b [c' c'16 b] [c'8 g] |
  34 %% 10
  35         as4 r8 a [bes bes16 a] [bes8 f] |
  36         g4 r8 g [as as g f] | % should jump staff
  37         \octave c;
  38         r8 [as bes c'] r8 [as16 g] [as8 f8] |
  39         [bes8 c bes as ] [bes g f es] |
  40         [f des' c' bes ] [c' as g f] |
  41         [g8 %jump!
  42         \octave c';
  43                 g16 fis] [g8 c] [es g16 fis] [g8 a] |
  44         [d g16 fis] [g8 a] [c16 d] es4 [d16 c] |
  45         'bes8 r8 r16 [d e fis ] [g a bes8( ] [)bes16 e f g] |
  46         [a bes c'8(] [)c'16 fis16  g a ] [bes8 es16 d] [es8 'g] |
  47         ['as f16 e] [f8 'a8] ['bes g16 f] [g8 'b] |
  48 % 20
  49         [c16 f es d] [c Bes As G] [F8 as g f] |
  50         [es d es f] [B c d B] |
  51         c4 r8 e8 [f f16 e] [f8 c] |
  52         d4 r8 d8 [es8 es16 d] [es8 Bes] |
  53         c2 ~  [c8 d16 es][ f es f d] |
  54         B8 r8 r B c r r es |
  55         d r r f~ f r r f |
  56         [es as g f] [es d es f] |
  57         [B c d B] [B c] r c |
  58         [f16 d es c]~ [c8 B] c4 r8 e |
  59         f4 r8 <f8 as b> [f es16 d] [es8 <f a] > |
  60         <B d> r <B d> r <G2 c> |
  61 }
  62
  63 comes = \melodic  {
  64         \octave c'' ;
  65         \stem 1;
  66         r1 |
  67         r1 |
  68         r8 [g16 fis] [g8 c] [es g16 f] [g8 a]|
  69         [d8 g16 fis] [g8 a] [c16 d] es4 [d16 c] |
  70         ['bes8 es16 d] [es8 'g8] ['as f16 es] [f8 'a]
  71         ['bes8 g16 f] [g8 'b] [c8 d16 es] f4( |
  72         [) f8 es16 d] [c16 'bes 'as 'g] ['f8 as g f]
  73         [es d es f] ['b c d 'b] |
  74         [c g16 fis] [g8 d] es4 r8 e8 |
  75 %% 10
  76         [f f16 e] [f8 c8] d4 r8 d |
  77         [es8 es16 d] [es8 'bes] [c es16 d] [es8 f] |
  78         ['bes es16 d] [es8 f] ['as16 'bes] c4 ['bes16 'as] |
  79         [G16 Es F G] [As Bes c d] [es d c d] [es f g a] |
  80         [bes F G As] [Bes c d e] [f es d es] [ f g a b] |
  81         [c'8 b16 a] [g f e d] [c8 es d c] |
  82         [Bes A Bes c] [Fis G A Fis] |
  83         [G8 d16 c] d8 r8 r8 [e16 d] e8 r8 |
  84         r [fis16 e] fis8 r r [G16 F] G8 r8 |
  85         r8 [A16 G] A8 r r [B16 A] B8 r |
  86 %% 20
  87         r8 [c16 'b] [c8 'g] [As c16 'c] [c8 d] |
  88         [G c16 B] [c8 d] [F16 G] As4 [G16 F] |
  89         [Es8 c16 B] [c8 G] As4 r8 A |
  90         [Bes8 Bes16 A] [Bes8 F8] g4 r8 G(|
  91         )[G As16 Bes] [c B c As] F2( |
  92         )[F8 d16 c] [d8 F] [Es es16 d] [es8 G] |
  93         [F f16 es] [f8 As] [G16 f es d] [c B A G] |
  94         [c8 f es d] r [As G f] |
  95         [G F16 Es] [F8 D] [As G] r A |
  96         [B c] [F16 Es D C] [C8 c16 B] [c8  G]|
  97         [As c16 B] [c8 d] [G8 c16 B] [c8 d] |
  98         [F16 G] As4 [G16 F] E2 |
  99
 100 }
 101
 102 bassdux = \melodic  {
 103         \clef "bass";
 104         \octave c' ;
 105         r1 |
 106         r |
 107         r |
 108         r |
 109         r |
 110         r1 |
 111         r8 [c16 B] [c8 G] [As c16 B] [c8 d] |
 112         [G c16 B] [c8 d] [F16 G] As4 [G16 F] |
 113         \octave c;
 114         [es c' b a] [g f es d] [c d es d] [c Bes As G] |
 115 %% 10
 116         [F bes as g ] [f es d c] [Bes c d c ] [Bes As G F]|
 117         [Es as g f] [es des c Bes] [As8 c' bes as] |
 118         [g8 f g as] [d es f d] |
 119         [es as g f] [g es d c] |
 120         [d bes as g] [as f es d] |
 121         es8 r8 r4 r8 [c Bes A] |
 122         r [es d c] [d c16 Bes] [c8 d] |
 123         [G8 bes16 a] [bes8 d] [es c'16 bes] [c'8 e] |
 124         [f d'16 c'] [d'8 fis] g4 r16 [G A B] |
 125         [c16 d es8]~ [es16 A Bes c] [d es f8]~ [f16 'b c d]|
 126 %%20
 127         es8 r r e [f F Es D] |
 128         r [As G F] [G F16 Es] [F8 G] |
 129         [c16 d  es d] [c Bes As G] [F bes as g] [f es d c] |
 130         [Bes c d c] [Bes As G F] [Es As g f ] [es d c Bes] |
 131         [As Bes c Bes] [As G F Es] [D g f es ] [d c B A] |
 132         g4 r4 r16 [G A B] [c d es f] |
 133         [g f as g] [f es d c] [B8 c16 B] [c8 G] |
 134         [As c16 B] [c8 d] [G c16 B] [c8 d] |
 135         [F16 G] As4 [G16 F] Es4 r8 es |
 136         [d c g G]
 137         < \multivoice
 138         { \stem 1; c2 ~ |c1~ | c1 }
 139         { \stem -1; C2~ |C1~ | C1 }
 140         >
 141
 142 }
 143
 144 % every "melody" declared in a staff has its own "voicegroup"
 145 trebstaf = \staff{
 146         \inputregister{ melodicregs}
 147         global dux comes
 148 }
 149
 150 \score{
 151         trebstaf
 152         \staff{ \inputregister{ melodicregs}
 153                 bassdux global
 154         }
 155         \paper{}
 156         \midi{
 157                 \tempo 4:84
 158         }
 159 }
 160