input/fugue1.ly

   1 \header{
   2 filename                fugue1.ly
   3 title           Fuga a 4
   4 description             Das Wohltemperierte Clavier I, Fuga I (c-major)
   5 opus            BWV 846
   6 composer                Johann Sebastian Bach (1685-1750)
   7 enteredby               Shay Rojansky
   8 copyright               Public Domain
   9 }
  10
  11 %{
  12
  13 %}
  14 \version "0.1.2";
  15
  16
  17 global =
  18     \melodic {
  19          \meter 4/4;                % should be \meter C
  20     }
  21
  22 tenor =
  23     \melodic {
  24         \clef "violin";
  25         \octave c';
  26
  27         \stem \down;
  28         r8 [c8 d e] [f. g32 f] [e8 a] |
  29         [d g] ~ [g16 a g f] [e f e d] [c d c 'b] |
  30         ['a8 fis] g4 ~ [g8 fis16 e] [f8 d] |
  31         [g f! e d] c r r g ~ |
  32 %% 5
  33         [g f16 e] f4 ~ [f16 f e8] d4 |
  34         [c8 f] r16 [g f e] [f8 d] g4 ~ |
  35         g4 r4 r2 |
  36         r1 |
  37         r8 [g8 a b] [c'. d'32 c'] [b8 e']
  38 %% 10
  39         [a d'] ~ [d'16 e' d' c'] b8 r8 r d |
  40         [e fis] [g. a32 g] [fis8 b e a] ~ |
  41         [a16 b a gis] [fis8 f!] [e d] ~ [d16 e fis gis] |
  42         [a gis a b] [gis fis gis a] b8 r8 r4 |
  43         r8 [c8 d e] \stem 1; [f. g32 f] [e8 a] |
  44 %% 15
  45         [d g] ~ [g16 a g f] e8 \stem -1; [e fis g] ~ |
  46         [g8 fis] [gis8 a] ~ [a g! a b] |
  47         \stem 0;
  48         [c'. d'32 c'] [b8 e'] [a d'] ~ [d'16 e' d' c'] |
  49         [b8 g' cis' d'] [e' cis' d' e' ] |
  50         \stem -1; a8 r8 r e [fis g] \stem 0; [a. b32 a] |
  51 %% 20
  52         [g8 c' fis b] ~ [b16 c' b a] \stem -1; [g fis e d] \stem 0; |
  53         e4 \stem -1; d ~ [d16 a g f!] [e g f! a] |
  54         g4 ~ [g16 a bes8] c'4 [d'8 g] |
  55         \stem 0; g4. f8 ~ [f e] d4 |
  56         \stem -1; e8 a4 g8 ~ [g8 f g a] |
  57 %% 25
  58         [bes8. c'32 b] [a8 d'] [g c'] ~ [c'16 d' c' bes] |
  59         [a bes a g] [f g f e] d4 ~ [d8. g16] |
  60         a4 r16 [f'16 d'8] e'2 |
  61     }
  62
  63
  64 soprane =
  65     \melodic {
  66         \octave c';
  67         \stem \up;
  68         r1 |
  69         r2 r8 [g8 a b] |
  70         [c'. d'32 c'] [b8 e'] [a d'] ~ [d'16 e' d' c'] |
  71         [b g a b] [c' b c' d'] [e' d' e' fis'] [g'8 b] |
  72 %% 5
  73         [c' a] [d'16 c' b a] [g8. g16] [f e f g] |
  74         [a g a b] c'2 b4 |
  75         \octave c'';
  76         r8 [c8 d e] [f. g32 f] [e8 a] |
  77         [d g] ~ [g16 a g f] [e8 a] ~ [a16 b a g] |
  78         f2 [e8. fis16] g4 ~
  79 %% 10
  80         g4 fis [g16 f! e d] [c d c 'b] |
  81         ['a16 c 'b 'a] 'g8 r8 r16 [c16 'b 'a] ['gis8 e] |
  82         [d c16 'b16] ['a 'gis 'a 'b] [c 'fis 'a 'gis] ['b8 'a16 'b]
  83         [c8 f e d] ~ [d c16 'b] ['b8. 'a16] |
  84         'a4 r4 r2 |
  85 %% 15
  86         r2 r8 ['g8 'a 'b] |
  87         [c8. d32 c] ['b8 c] [d e] [f!. g32 f!] |
  88         [e8 a d g] ~ [g16 a g f] [e8 a] |
  89         [d8 bes] [a g16 f] [g f g e] [f g g f32 g] |
  90         [a16 cis d g] [e8. d16] d8 r8 r4 |
  91 %% 20
  92         r2 r4 r8 'g |
  93         ['a 'b] [c. d32 c] ['b8 e 'a d] ~ |
  94         [e16 e d c] ['b c d e] [f g a g] [f e d c] |
  95         'b4 [c8 d] 'g c4 'b8 |
  96         c4 ['b8 'bes8] 'a d4 c8 |
  97 %% 25
  98         [d8 e] f4 ~ [f16 a g f] [e f e d] |
  99         c2 r16 ['g32 'a 'b!16 c] [d e f8] ~ |
 100         [f32 c d e f16 g] [a8. b16] <g2 c'2> |
 101     }
 102
 103 alt =
 104     \melodic {
 105         \clef "bass";
 106         \octave c;
 107
 108         \stem 1;
 109         r1 |
 110         r |
 111         r |
 112         r8 [g8 a b] [c'. d'32 c'] [b8 e'] |
 113 %% 5
 114         [a d'] ~ [d'16 e' d' c'] [b8 c' ~ c' bes8] |
 115         [a d' g c'] r16 [a16 b c'] d'4 |
 116         g4 r8 g8 [a b] [c'. d'32 c'] |
 117         [b8 e' a d'] ~ [d'16 e' d' c'!] [b!8 e'] ~ |
 118         e'4 d'4 [c'16 b c' a] [e' d' c' b] |
 119 %% 10
 120         [c'16 a b c'] [d' c' b a] g4 r4 |
 121         r1 |
 122         r8 [e8 fis gis] [a. b32 a] [gis8 c'] |
 123         [fis b] ~ [b16 c' b a] gis8 a4 gis8 |
 124         a4 r8 g8 [a b] c'. [d'32 c'] |
 125 %% 15
 126         [b8 e' a d'] ~ [d' g] d'4 |
 127         [c'8 a] e'4 d'8 r8 r4 |
 128         r8 [a8 b cis'] [d'. e'32 d'] [c'!8 f'] |
 129         [b8 e'] ~ [e'16 f' e' d'] cis'8 r8 r4 |
 130         r8 [a8 b cis'] [d'. e'32 d'] [c'!8 fis'] |
 131 %% 20
 132         [b e'] ~ [e'16 fis' e' d'] c'2 ~ |
 133         [c'16 d' c' b] [a g a fis] [g8 b c' d'] |
 134         [e'. f'32 e'] [d'8 g'] [c' f'] ~ [f'16 g' f' e'] |
 135         d'4 [e'8 d'] ~ [d' g] g4 ~
 136         [g8 c d e] [f. g32 f] [e8 a] |
 137 %% 25
 138         [d g] ~ [g16 a g f] [e d e f] [g a bes g] |
 139         [a e f g] [a b c' a] b2 |
 140         c'1 |
 141     }
 142
 143 bass =
 144     \melodic {
 145         \clef "bass";
 146         \octave c;
 147
 148         \stem -1;
 149         r1 |
 150         r |
 151         r |
 152         r |
 153 %% 5
 154         r2 r8 [c8 d e] |
 155         [f. g32 f] [e8 a] [d g] ~ [g16 a g f] |
 156         [e f e d] [c d c 'b] ['a8 d a fis] |
 157         [g16 a bes g] [cis8 d] a4 e4 |
 158         [a16 b c' d'] [c' b a g] c'8 r8 r4 |
 159 %% 10
 160         r2 r8 ['g8 'a 'b] |
 161         [c. d32 c] ['b8 e] ['a d] ~ [d16 e d c] |
 162         'b8 e4 d8 c f!4 e8 ~ |
 163         e d4 e8 [f! e16 d] e4 |
 164         'a4 r4 r2 |
 165 %% 15
 166         r8 ['g8 'a 'b] [c. d32 c] ['b8 e] |
 167         ['a8 d] ~ [d16 e d c] ['b8 'bes 'a g'] |
 168         ['a8 fis g e] d4 [e8 f!] |
 169         [g8. a32 g] [f8 bes] [e a] ~ [a16 bes a g] |
 170         [f e f d] [g8 a] d2 ~ |
 171 %% 20
 172         [d16 e d c] ['b 'a 'g 'fis] ['e8 e fis g] ~ |
 173         [g a16 g16] [fis8 d] g2 ~ |
 174         g2 a4 [b8 c'] |
 175         [f16 a g f] [e d c 'b] [c d e f] [g8 'g] |
 176         c1 ~ |
 177 %% 25
 178         c1 ~ |
 179         c1 ~ |
 180         c1 |
 181     }
 182
 183
 184 \score {
 185     \melodic < \id "Piano" "";
 186                \multi 1;
 187                  < \multi 2;
 188                        \global
 189                        \soprane
 190                        \tenor
 191                  >
 192                  < \multi 2;
 193                        \global
 194                        \alt
 195                        \bass
 196                  >
 197              >
 198
 199     \paper{
 200         gourlay_maxmeasures =5.;
 201 %       castingalgorithme = \Wordwrap
 202     }
 203     \midi {
 204         \tempo 4 = 84;
 205     }
 206 }
 207
 208 % EOF