mutopia/J.S.Bach/wtk1-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 "1.0.10";
  15
  16
  17 global =
  18         \notes {
  19         \time 4/4;                % should be \time C
  20         }
  21
  22 tenor =
  23         \notes \relative c' {
  24         \clef "violin";
  25
  26         \stemdown
  27         r8 [c8 d e] [f. g32 f] [e8 a] |
  28         [d, g] ~ [g16 a g f] [e f e d] [c d c b ] |
  29         [a 8 fis'] g4 ~ [g8 fis16 e] [f8 d] |
  30         [g f! e d] c r r g' ~ |
  31 %% 5
  32         [g f16 e] f4 ~ [f16 f e8] d4 |
  33         [c8 f] r16 [g f e] [f8 d] g4 ~ |
  34         g4 r4 r2 |
  35         r1 |
  36         r8 [g8 a b] [c . d 32 c ] [b8 e ]
  37 %% 10
  38         [a, d ] ~ [d 16 e  d  c ] b8 r8 r d, |
  39         [e fis] [g. a32 g] [fis8 b e, a] ~ |
  40         [a16 b a gis] [fis8 f!] [e d] ~ [d16 e fis gis] |
  41         [a gis a b] [gis fis gis a] b8 r8 r4 |
  42         r8 [c,8 d e] \stemup [f. g32 f] [e8 a] |
  43 %% 15
  44         [d, g] ~ [g16 a g f] e8 \stemdown [e fis g] ~ |
  45         [g8 fis] [gis8 a] ~ [a g! a b] |
  46         \stemboth
  47         [c . d 32 c ] [b8 e ] [a, d ] ~ [d 16 e  d  c ] |
  48         [b8 g'  cis,  d ] [e  cis  d  e  ] |
  49         \stemdown a,8 r8 r e [fis g] \stemboth [a. b32 a] |
  50 %% 20
  51         [g8 c  fis, b] ~ [b16 c  b a] \stemdown [g fis e d] \stemboth |
  52         e4 \stemdown d ~ [d16 a' g f!] [e g f! a] |
  53         g4 ~ [g16 a bes8] c 4 [d 8 g,] |
  54         \stemboth g4. f8 ~ [f e] d4 |
  55         \stemdown e8 a4 g8 ~ [g8 f g a] |
  56 %% 25
  57         [bes8. c 32 b] [a8 d ] [g, c ] ~ [c 16 d  c  bes] |
  58         [a bes a g] [f g f e] d4 ~ [d8. g16] |
  59         a4 r16 [f' 16 d 8] e 2 |
  60         }
  61
  62
  63 soprane =
  64         \notes \relative c' {
  65
  66         \stemup
  67         r1 |
  68         r2 r8 [g'8 a b] |
  69         [c . d 32 c ] [b8 e ] [a, d ] ~ [d 16 e  d  c ] |
  70         [b g a b] [c  b c  d ] [e  d  e  fis ] [g 8 b,] |
  71 %% 5
  72         [c  a] [d 16 c  b a] [g8. g16] [f e f g] |
  73         [a g a b] c 2 b4 |
  74         r8 [c8 d e] [f. g32 f] [e8 a] |
  75         [d, g] ~ [g16 a g f] [e8 a] ~ [a16 b a g] |
  76         f2 [e8. fis16] g4 ~
  77 %% 10
  78         g4 fis [g16 f! e d] [c d c b ] |
  79         [a 16 c b  a ] g 8 r8 r16 [c16 b  a ] [gis 8 e'] |
  80         [d c16 b 16] [a  gis  a  b ] [c fis,  a  gis ] [b 8 a 16 b ]
  81         [c8 f e d] ~ [d c16 b ] [b 8. a 16] |
  82         a 4 r4 r2 |
  83 %% 15
  84         r2 r8 [g 8 a  b ] |
  85         [c8. d32 c] [b 8 c] [d e] [f!. g32 f!] |
  86         [e8 a d, g] ~ [g16 a g f] [e8 a] |
  87         [d,8 bes'] [a g16 f] [g f g e] [f g g f32 g] |
  88         [a16 cis, d g] [e8. d16] d8 r8 r4 |
  89 %% 20
  90         r2 r4 r8 g,  |
  91         [a  b ] [c. d32 c] [b 8 e a,  d] ~ |
  92         [e16 e d c] [b  c d e] [f g a g] [f e d c] |
  93         b 4 [c,8 d] g  c4 b 8 |
  94         c4 [b 8 bes 8] a  d4 c8 |
  95 %% 25
  96         [d8 e] f4 ~ [f16 a g f] [e f e d] |
  97         c2 r16 [g 32 a  b !16 c] [d e f8] ~ |
  98         [f32 c d e f16 g] [a8. b16] <g2 c 2> |
  99         }
 100
 101 alt =
 102         \notes \relative c {
 103         \clef "bass";
 104
 105
 106         \stemup
 107         r1 |
 108         r |
 109         r |
 110         r8 [g'8 a b] [c . d 32 c ] [b8 e ] |
 111 %% 5
 112         [a, d ] ~ [d 16 e  d  c ] [b8 c  ~ c  bes8] |
 113         [a d  g, c ] r16 [a16 b c ] d 4 |
 114         g,4 r8 g8 [a b] [c . d 32 c ] |
 115         [b8 e  a, d ] ~ [d 16 e  d  c !] [b!8 e ] ~ |
 116         e 4 d 4 [c 16 b c  a] [e'  d  c  b] |
 117 %% 10
 118         [c 16 a b c ] [d  c  b a] g4 r4 |
 119         r1 |
 120         r8 [e8 fis gis] [a. b32 a] [gis8 c ] |
 121         [fis, b] ~ [b16 c  b a] gis8 a4 gis8 |
 122         a4 r8 g8 [a b] c . [d 32 c ] |
 123 %% 15
 124         [b8 e  a, d ] ~ [d'  g,] d 4 |
 125         [c 8 a] e' 4 d 8 r8 r4 |
 126         r8 [a8 b cis ] [d . e 32 d ] [c !8 f ] |
 127         [b,8 e ] ~ [e 16 f  e  d ] cis 8 r8 r4 |
 128         r8 [a8 b cis ] [d . e 32 d ] [c !8 fis ] |
 129 %% 20
 130         [b, e ] ~ [e 16 fis  e  d ] c 2 ~ |
 131         [c 16 d  c  b] [a g a fis] [g8 b c  d ] |
 132         [e . f 32 e ] [d 8 g ] [c,  f ] ~ [f 16 g  f  e ] |
 133         d 4 [e 8 d ] ~ [d  g,] g4 ~
 134         [g8 c, d e] [f. g32 f] [e8 a] |
 135 %% 25
 136         [d, g] ~ [g16 a g f] [e d e f] [g a bes g] |
 137         [a e f g] [a b c  a] b2 |
 138         c 1 |
 139         }
 140
 141 bass =
 142         \notes \relative c {
 143         \clef "bass";
 144
 145
 146         \stemdown
 147         r1 |
 148         r |
 149         r |
 150         r |
 151 %% 5
 152         r2 r8 [c8 d e] |
 153         [f. g32 f] [e8 a] [d, g] ~ [g16 a g f] |
 154         [e f e d] [c d c b ] [a' 8 d a fis] |
 155         [g16 a bes g] [cis,8 d] a'4 e4 |
 156         [a16 b c  d ] [c  b a g] c 8 r8 r4 |
 157 %% 10
 158         r2 r8 [g, 8 a  b ] |
 159         [c. d32 c] [b 8 e] [a,  d] ~ [d16 e d c] |
 160         b 8 e4 d8 c f!4 e8 ~ |
 161         e d4 e8 [f! e16 d] e4 |
 162         a, 4 r4 r2 |
 163 %% 15
 164         r8 [g 8 a  b ] [c. d32 c] [b 8 e] |
 165         [a, 8 d] ~ [d16 e d c] [b 8 bes  a  g'' ] |
 166         [a,, 8 fis' g e] d4 [e8 f!] |
 167         [g8. a32 g] [f8 bes] [e, a] ~ [a16 bes a g] |
 168         [f e f d] [g8 a] d,2 ~ |
 169 %% 20
 170         [d16 e d c] [b  a  g  fis ] [e' 8 e fis g] ~ |
 171         [g a16 g16] [fis8 d] g2 ~ |
 172         g2 a4 [b8 c ] |
 173         [f,16 a g f] [e d c b ] [c d e f] [g8 g, ] |
 174         c1 ~ |
 175 %% 25
 176         c1 ~ |
 177         c1 ~ |
 178         c1 |
 179         }
 180
 181
 182 \score {
 183         \notes \type GrandStaff <
 184                 \type Staff = one <
 185                         \global
 186                         \soprane
 187                         \tenor
 188                 >
 189                 \type Staff = two <
 190                         \global
 191                         \alt
 192                         \bass
 193                 >
 194         >
 195
 196         \paper{
 197         gourlay_maxmeasures =5.;
 198         castingalgorithme = \Wordwrap
 199         }
 200 %       \midi { \tempo 4 = 84; }
 201 }
 202
 203 % EOF