]> git.donarmstrong.com Git - lilypond.git/blobdiff - mutopia/J.S.Bach/wtk1-fugue1.ly
release: 1.3.94
[lilypond.git] / mutopia / J.S.Bach / wtk1-fugue1.ly
index 614311e8bc888205b46ac4b5a14f3db17674b896..293666b130011bc6aea0fb85aa21295156258b40 100644 (file)
@@ -1,30 +1,33 @@
 \header{
-filename =      "fugue1.ly";
 title =                 "Fuga a 4";
-description =   "Das Wohltemperierte Clavier I, Fuga I (c-major)";
 opus =           "BWV 846";
 composer =      "Johann Sebastian Bach (1685-1750)";
 enteredby =     "Shay Rojansky";
-copyright =     "Public Domain";
+
+
+  % mutopia headers.
+  mutopiatitle = "Das Wohltemperierte Clavier I, Fuga 1 (c-major)";
+  mutopiacomposer = "J.S.Bach";
+  mutopiaopus = "BWV846";
+  style = "baroque";
+  copyright =    "\\\\This music is part of the Mutopia project, http://sca.uwaterloo.ca/Mutopia/\\\\It has been typeset and placed in the public domain by Han-Wen Nienhuys.\\\\Unrestricted modification and redistribution is permitted and encouraged - copy this music and share it!";
+  maintainer = "hanwen@cs.uu.nl";
+  lastupdated = "1999/Oct/14";
+  
 }
 
 %{
-       
+TODO: use autobeaming. 
 %}
-\version "1.0.2";
+\version "1.3.93";
 
 
-global = 
-       \melodic {
-       \time 4/4;                % should be \time C
-       }
-       
 tenor =
-       \melodic \relative c' {
+       \context Voice  = tenor  \notes \relative c' {
        \clef "violin";
 
-       \stemdown
-       r8 [c8 d e] [f. g32 f] [e8 a] |
+       \stemDown
+       r8 [c8 d e] [f8. g32 f] [e8 a] |
        [d, g] ~ [g16 a g f] [e f e d] [c d c b ] |
        [a 8 fis'] g4 ~ [g8 fis16 e] [f8 d] |
        [g f! e d] c r r g' ~ |
@@ -33,45 +36,45 @@ tenor =
        [c8 f] r16 [g f e] [f8 d] g4 ~ |
        g4 r4 r2 |
        r1 |
-       r8 [g8 a b] [c . d 32 c ] [b8 e ]
+       r8 [g8 a b] [c8.   d 32 c ] [b8 e ]
 %% 10
        [a, d ] ~ [d 16 e  d  c ] b8 r8 r d, |
-       [e fis] [g. a32 g] [fis8 b e, a] ~ |
+       [e fis] [g8.   a32 g] [fis8 b e, a] ~ |
        [a16 b a gis] [fis8 f!] [e d] ~ [d16 e fis gis] |
        [a gis a b] [gis fis gis a] b8 r8 r4 |
-       r8 [c,8 d e] \stemup [f. g32 f] [e8 a] |
+       r8 [c,8 d e] \stemUp [f8.  g32 f] [e8 a] |
 %% 15
-       [d, g] ~ [g16 a g f] e8 \stemdown [e fis g] ~ |
+       [d, g] ~ [g16 a g f] e8 \stemDown [e fis g] ~ |
        [g8 fis] [gis8 a] ~ [a g! a b] |
-       \stemboth
-       [c . d 32 c ] [b8 e ] [a, d ] ~ [d 16 e  d  c ] |
+       \stemBoth
+       [c8.    d32 c ] [b8 e ] [a, d ] ~ [d 16 e  d  c ] |
        [b8 g'  cis,  d ] [e  cis  d  e  ] |
-       \stemdown a,8 r8 r e [fis g] \stemboth [a. b32 a] |
+       \stemDown a,8 r8 r e [fis g] \stemBoth [a8.  b32 a] |
 %% 20
-       [g8 c  fis, b] ~ [b16 c  b a] \stemdown [g fis e d] \stemboth |
-       e4 \stemdown d ~ [d16 a' g f!] [e g f! a] |
+       [g8 c  fis, b] ~ [b16 c  b a] \stemDown [g fis e d] \stemBoth |
+       e4 \stemDown d ~ [d16 a' g f!] [e g f! a] |
        g4 ~ [g16 a bes8] c 4 [d 8 g,] |
-       \stemboth g4. f8 ~ [f e] d4 |
-       \stemdown e8 a4 g8 ~ [g8 f g a] |
+       \stemBoth g4. f8 ~ [f e] d4 |
+       \stemDown e8 a4 g8 ~ [g8 f g a] |
 %% 25
-       [bes8. 32 b] [a8 d ] [g, c ] ~ [c 16 d  c  bes] |
+       [bes8.  c32 b] [a8 d ] [g, c ] ~ [c 16 d  c  bes] |
        [a bes a g] [f g f e] d4 ~ [d8. g16] |
        a4 r16 [f' 16 d 8] e 2 |
        }
 
 
 soprane =
-       \melodic \relative c' {
+       \context Voice = sop \notes \relative c' {
 
-       \stemup
+       \stemUp
        r1 |
        r2 r8 [g'8 a b] |
-       [c . d 32 c ] [b8 e ] [a, d ] ~ [d 16 e  d  c ] |
+       [c8.  d32 c ] [b8 e ] [a, d ] ~ [d 16 e  d  c ] |
        [b g a b] [c  b c  d ] [e  d  e  fis ] [g 8 b,] |
 %% 5
        [c  a] [d 16 c  b a] [g8. g16] [f e f g] |
        [a g a b] c 2 b4 |
-       r8 [c8 d e] [f. g32 f] [e8 a] |
+       r8 [c8 d e] [f8.  g32 f] [e8 a] |
        [d, g] ~ [g16 a g f] [e8 a] ~ [a16 b a g] |
        f2 [e8. fis16] g4 ~
 %% 10
@@ -82,89 +85,89 @@ soprane =
        a 4 r4 r2 |
 %% 15
        r2 r8 [g 8 a  b ] |
-       [c8. d32 c] [b 8 c] [d e] [f!. g32 f!] |
+       [c8.  d32 c] [b 8 c] [d e] [f!8.  g32 f!] |
        [e8 a d, g] ~ [g16 a g f] [e8 a] |
-       [d,8 bes'] [a g16 f] [g f g e] [f g g f32 g] |
+       [d,8 bes'] [a g16 f] [g f g e] [f g g  f32 g] |
        [a16 cis, d g] [e8. d16] d8 r8 r4 |
 %% 20
        r2 r4 r8 g,  |
-       [a  b ] [c. d32 c] [b 8 e a,  d] ~ |
-       [e16 e d c] [b  c d e] [f g a g] [f e d c] |
+       [a  b ] [c8.  d32 c] [b 8 e a,  d( ]  |
+       [e16 e d c] [b  c d e] [f g a g] [f e d c] |
        b 4 [c,8 d] g  c4 b 8 |
        c4 [b 8 bes 8] a  d4 c8 |
 %% 25
        [d8 e] f4 ~ [f16 a g f] [e f e d] |
-       c2 r16 [g 32 a  b !16 c] [d e f8] ~ |
+       c2 r16 [g32 a  b !16 c] [d e f8] ~ |
        [f32 c d e f16 g] [a8. b16] <g2 c 2> |
        }
 
 alt =
-       \melodic \relative c {
+\context Voice = alt   \notes \relative   c {
        \clef "bass";
 
        
-       \stemup
+       \stemUp
        r1 |
        r |
        r |
-       r8 [g'8 a b] [c . d 32 c ] [b8 e ] |
+       r8 [g'8 a b] [c8.  d32 c ] [b8 e ] |
 %% 5
        [a, d ] ~ [d 16 e  d  c ] [b8 c  ~ c  bes8] |
        [a d  g, c ] r16 [a16 b c ] d 4 |
-       g,4 r8 g8 [a b] [c . d 32 c ] |
+       g,4 r8 g8 [a b] [c8.  d32 c ] |
        [b8 e  a, d ] ~ [d 16 e  d  c !] [b!8 e ] ~ |
        e 4 d 4 [c 16 b c  a] [e'  d  c  b] |
 %% 10
        [c 16 a b c ] [d  c  b a] g4 r4 |
        r1 |
-       r8 [e8 fis gis] [a. b32 a] [gis8 c ] |
+       r8 [e8 fis gis] [a8.  b32 a] [gis8 c ] |
        [fis, b] ~ [b16 c  b a] gis8 a4 gis8 |
-       a4 r8 g8 [a b] c . [d 32 c ] |
+       a4 r8 g8 [a b] c8. [d32 c ] |
 %% 15
-       [b8 e  a, d ] ~ [d'  g,] d 4 |
+       [b8 e  a, d (]  [ ) d'  g,] d 4 |
        [c 8 a] e' 4 d 8 r8 r4 |
-       r8 [a8 b cis ] [d . e 32 d ] [c !8 f ] |
+       r8 [a8 b cis ] [d8.  e32 d ] [c !8 f ] |
        [b,8 e ] ~ [e 16 f  e  d ] cis 8 r8 r4 |
-       r8 [a8 b cis ] [d . e 32 d ] [c !8 fis ] |
+       r8 [a8 b cis ] [d8.  e32 d ] [c !8 fis ] |
 %% 20
        [b, e ] ~ [e 16 fis  e  d ] c 2 ~ |
        [c 16 d  c  b] [a g a fis] [g8 b c  d ] |
-       [e . f 32 e ] [d 8 g ] [c,  f ] ~ [f 16 g  f  e ] |
+       [e8.  f32 e ] [d 8 g ] [c,  f ] ~ [f 16 g  f  e ] |
        d 4 [e 8 d ] ~ [d  g,] g4 ~
-       [g8 c, d e] [f. g32 f] [e8 a] |
+       [g8 c, d e] [f8.  g32 f] [e8 a] |
 %% 25
        [d, g] ~ [g16 a g f] [e d e f] [g a bes g] |
        [a e f g] [a b c  a] b2 |
        c 1 |
        }
 
-bass =
-       \melodic \relative c {
+bass =\context Voice = bassvoice
+       \notes \relative c {
        \clef "bass";
 
 
-       \stemdown
+       \stemDown
        r1 |
        r |
        r |
        r |
 %% 5
        r2 r8 [c8 d e] |
-       [f. g32 f] [e8 a] [d, g] ~ [g16 a g f] |
+       [f8.  g32 f] [e8 a] [d, g] ~ [g16 a g f] |
        [e f e d] [c d c b ] [a' 8 d a fis] |
        [g16 a bes g] [cis,8 d] a'4 e4 |
        [a16 b c  d ] [c  b a g] c 8 r8 r4 |
 %% 10
        r2 r8 [g, 8 a  b ] |
-       [c. d32 c] [b 8 e] [a,  d] ~ [d16 e d c] |
+       [c8.  d32 c] [b 8 e] [a,  d] ~ [d16 e d c] |
        b 8 e4 d8 c f!4 e8 ~ |
        e d4 e8 [f! e16 d] e4 |
        a, 4 r4 r2 |
 %% 15
-       r8 [g 8 a  b ] [c. d32 c] [b 8 e] |
+       r8 [g 8 a  b ] [c8.  d32 c] [b 8 e] |
        [a, 8 d] ~ [d16 e d c] [b 8 bes  a  g'' ] |
        [a,, 8 fis' g e] d4 [e8 f!] |
-       [g8. a32 g] [f8 bes] [e, a] ~ [a16 bes a g] |
+       [g8.  a32 g] [f8 bes] [e, a] ~ [a16 bes a g] |
        [f e f d] [g8 a] d,2 ~ |
 %% 20
        [d16 e d c] [b  a  g  fis ] [e' 8 e fis g] ~ |
@@ -180,24 +183,22 @@ bass =
 
        
 \score {
-       \melodic \type GrandStaff < 
-               \type Staff = one <
-                       \global 
+       \notes \context PianoStaff < 
+               \context Staff = one {
+               \time 4/4;
+               <
                        \soprane
                        \tenor
-               >
-               \type Staff = two <
-                       \global
+               > \bar "|."; }
+               \context Staff = two { <
                        \alt
                        \bass
-               >
-       >
+               > \bar "|."; }
+       > 
 
        \paper{
-       gourlay_maxmeasures =5.;
-       castingalgorithme = \Wordwrap
+          linewidth = 18.0 \cm;
        }
-%      \midi { \tempo 4 = 84; }
-}
 
-% EOF
+       \midi { \tempo 4 = 84; }
+}