]> git.donarmstrong.com Git - lilypond.git/blobdiff - mutopia/J.S.Bach/wtk1-fugue2.ly
release: 1.0.15
[lilypond.git] / mutopia / J.S.Bach / wtk1-fugue2.ly
index 7af1d7746f1cda589e4b4dd50f205e862f0552c6..8dc78543e7dc7fc339ab37fea1113e132542a568 100644 (file)
  Tested Features: stem direction, multivoice, forced accidentals.
 %}
 
-\version "0.1.10";
+\version "1.0.7";
 
 \include "nederlands.ly"                 % for correct parsing of note names
 
-global = \melodic {
-  \meter 4/4;
-  \key bes es as;
+global = \notes {
+  \time 4/4;
+  \keysignature bes es as;
   \skip 1*31;
   \bar "|."; |
 }
   
-dux = \melodic {
+dux = \notes \relative c'' {
   \clef violin;
-  \octave c';
 
   \stemdown
-  r8 [c'16 b] [c'8 g] [as c'16 b] [c'8 d'] |
-  [g c'16 b] [c'8 d'] [f16 g] as4 [g16 f] |
-  [es c' b a] [g f! es d] [c8 es' d' c'] |
-  [bes a bes c'] [fis g a fis] |
-%% 5
-  g4 r16 [c d es] [f g as8~] [as16 d es f] |
-  [g a bes8] ~ [bes16 es f g] [as g f es] [d8 c'16 b!] |
+  r8 [c16 b] [c8 g] [as c16 b] [c8 d ] |
+  [g, c16 b] [c8 d ] [f,16 g] as4 [g16 f] |
+  [es c'  b a] [g f! es d] [c8 es'  d  c ] |
+  [bes a bes c ] [fis, g a fis] |
+%%5
+  g4 r16 [c, d es] [f g as8~] [as16 d, es f] |
+  [g a bes8] ~ [bes16 es, f g] [as g f es] [d8 c'16 b!] |
                                                     % forced accident!
-  c'4 r4 r8 [f' es' d'] |
+  c4 r4 r8 [f  es  d ] |
   r8 [as g f] [g f16 es] [f8 d] | 
-  g4 r8 b [c' c'16 b] [c'8 g] |
-%% 10   
+  g4 r8 b [c  c16 b] [c8 g] |
+%%10   
   as4 r8 a [bes bes16 a] [bes8 f] |
   g4 r8 g [as as g f] |
-  \translator Staff = bass \stemup \octave c;
-   r8 [as bes c'] r8 [as16 g] [as8 f8] |
-  [bes8 c' bes as] [bes g f es] |
-  [f des' c' bes] [c' as g f] |
-%% 15
+  \translator Staff = bass \stemup 
+   r8 [as, bes c ] r8 [as16 g] [as8 f8] |
+  [bes8 c  bes as] [bes g f es] |
+  [f des'  c  bes] [c  as g f] |
+%%15
   g8
-   \translator Staff = treble \stemdown \octave c';
-   [g16 fis] [g8 c] [es g16 fis!] [g8 a] |
-  [d g16 fis] [g8 a!] [c16 d] es4 [d16 c] |         % forced accident!
-  'bes8 r8 r16 [d e fis] [g a bes8] ~ [bes16 e f g] |
-  [a bes c'8] ~ [c'16 fis16 g a] [bes8 es!16 d] [es8 'g] |
-  ['as f16 es] [f8 'a8] ['bes g16 f] [g8 'b] |
-%% 20
-  [c16 f es d] [c Bes! As G] [F8 as g f] |
-  [es d es f] [B c d B] |
+   \translator Staff = treble \stemdown
+   [g'16 fis] [g8 c,] [es g16 fis!] [g8 a] |
+  [d, g16 fis] [g8 a!] [c,16 d] es4 [d16 c] |         % forced accident!
+  bes8 r8 r16 [d e fis] [g a bes8] ~ [bes16 e, f g] |
+  [a bes c8] ~ [c16 fis,16 g a] [bes8 es,!16 d] [es8 g, ] |
+  [as  f'16 es] [f8 a,8] [bes  g'16 f] [g8 b, ] |
+%%20
+  [c16 f es d] [c bes! as g] [f8 as' g f] |
+  [es d es f] [b, c d b] |
   c4 r8 e8 [f f16 e] [f8 c] |
-  d4 r8 d8 [es8 es16 d] [es8 Bes] |
+  d4 r8 d8 [es8 es16 d] [es8 bes] |
   c2 ~ [c8 d16 es] [f es f d] |
-%% 25
-  B8 r8 r B c r r es |
+%%25
+  b8 r8 r b c r r es |
   d r r f ~ f r r f |
   [es as g f] [es d es f] |
-  [B c d B] [B c] r c |
-  [f16 d es c] ~ [c8 B] c4 r8 e |
-%% 30
+  [b, c d b] [b c] r c |
+  [f16 d es c] ~ [c8 b] c4 r8 e |
+%%30
   f4 r8 f [f es16 d] [es8 <f as]> |
-  <B d> r <B d> r <G2 c> |
+  <b, d> r <b d> r <g2 c> |
 }
 
 
-comes = \melodic {
-  \octave c'';
+comes = \notes \relative c''  {
   \stemup
 
   r1 |
   r1 |
-  r8 [g16 fis] [g8 c] [es g16 fis] [g8 a] |
-  [d8 g16 fis] [g8 a] [c16 d] es4 [d16 c] |
-%% 5
-  ['bes8 es16 d] [es8 'g8] ['as f16 es] [f8 'a
-  ['bes8 g16 f] [g8 'b] [c8 d16 es] f4 ~ |
-  [f8 es16 d] [c16 'bes! 'as 'g] ['f8 as g f] 
-  [es d es f] ['b c d 'b] |
-  [c g16 fis] [g8 d] es4 r8 e8 |
-%% 10 
+  r8 [g'16 fis] [g8 c,] [es g16 fis] [g8 a] |
+  [d,8 g16 fis] [g8 a] [c,16 d] es4 [d16 c] |
+%%5
+  [bes8 es16 d] [es8 g,8] [as  f'16 es] [f8 a, 
+  [bes8 g'16 f] [g8 b, ] [c8 d16 es] f4 ~ |
+  [f8 es16 d] [c16 bes ! as  g ] [f8 as' g f] 
+  [es d es f] [b,  c d b ] |
+  [c g'16 fis] [g8 d] es4 r8 e8 |
+%%10 
   [f f16 e] [f8 c8] d4 r8 d |
-  [es8 es16 d] [es8 'bes] [c es16 d] [es8 f] |
-  \stemboth ['bes es16 d] [es8 f] ['as16 'bes] c4 ['bes16 'as] |
-  [G16 Es F G] [As Bes c d] [es d c d] [es f g a] |
-  [bes F G As] [Bes c d e] [f es d es] [ f g a b] |
-%% 15
-  \stemup [c'8 b16 a] [g f! es d] [c8 es d c] |
-  [Bes A Bes c] [Fis! G A Fis] |                    % forced accident
-  [G8 d16 c] d8 r8 r8 [e16 d] e8 r8 |
-  r [fis16 e] fis8 r r [G16 F] G8 r8 |
-  r8 [A16 G] A8 r r [B16 A] B8 r |
-%% 20
-  r8 [c16 'b] [c8 'g] [As c16 'b] [c8 d] |
-  [G c16 B] [c8 d] [F16 G] As4 [G16 F] |
-  [Es8 c16 B] [c8 G] As4 r8 A |
-  [Bes8 Bes16 A] [Bes8 F8] 'g4 r8 G ~ |
-  [G As16 Bes] [c B c As] F2 ~ |
-%% 25
-  [F8 d16 c] [d8 F] [Es es16 d] [es8 G] |
-  [F f16 es] [f8 As] [G16 f es d] [c B A G] |
-  [c8 f es d] r [As G F] |
-  [G F16 Es] [F8 D] [As G] r A |
-  [B c] [F16 Es D C] C8 [c16 B] [c8 G] |
-%% 30
-  [As c16 B] [c8 <d 'b! 'as!]> [G8 c16 B] [c8 d] |
-  [F16 G] As4 [G16 F] E2 |
+  [es8 es16 d] [es8 bes ] [c es16 d] [es8 f] |
+  \stemboth [bes,  es16 d] [es8 f] [as,16 bes ] c4 [bes16 as ] |
+  [g16 es f g] [as bes c d] [es d c d] [es f g a] |
+  [bes f, g as] [bes c d e] [f es d es] [ f g a b] |
+%%15
+  \stemup [c8 b16 a] [g f! es d] [c8 es d c] |
+  [bes a bes c] [fis,! g a fis] |                    % forced accident
+  [g8 d'16 c] d8 r8 r8 [e16 d] e8 r8 |
+  r [fis16 e] fis8 r r [g,16 f] g8 r8 |
+  r8 [a16 g] a8 r r [b16 a] b8 r |
+%%20
+  r8 [c16 b ] [c8 g ] [as c16 b ] [c8 d] |
+  [g, c16 b] [c8 d] [f,16 g] as4 [g16 f] |
+  [es8 c'16 b] [c8 g] as4 r8 a |
+  [bes8 bes16 a] [bes8 f8] g4 r8 g ~ |
+  [g as16 bes] [c b c as] f2 ~ |
+%%25
+  [f8 d'16 c] [d8 f,] [es es'16 d] [es8 g,] |
+  [f f'16 es] [f8 as,] [g16 f' es d] [c b a g] |
+  [c8 f es d] r [as g f] |
+  [g f16 es] [f8 d] [as' g] r a |
+  [b c] [f,16 es d c] c8 [c'16 b] [c8 g] |
+%%30
+  [as c16 b] [c8 <d b ! as !]> [g,8 c16 b] [c8 d] |
+  [f,16 g] as4 [g16 f] e2 |
 }
 
 
-bassdux = \melodic {
+bassdux = \notes \relative c' {
   \clef bass;
-  \octave c';
 
   r1 |
   r |
   r |
   r |
-%% 5
+%%5
   r |
   r1 |
-  r8 [c16 B] [c8 G] [As c16 B] [c8 d] |
-  [G c16 B] [c8 d] [F16 G] As4 [G16 F] | 
 \octave c; [es c' b a] [g f es d] [c d es d] [c Bes! As! G] |
+  r8 [c16 b] [c8 g] [as c16 b] [c8 d] |
+  [g, c16 b] [c8 d] [f,16 g] as4 [g16 f] | 
[es c'  b a] [g f es d] [c d es d] [c bes! as! g] |
                                                     % -> \classic_accidentals
-%% 10
-  [F bes as g] [f es d c] [Bes c d c] [Bes As G F] |
-  [Es as g f] [es des c Bes] [As8 c' bes as] |
-  [g8 f g as] [d es f d] |
+%%10
+  [f bes' as g] [f es d c] [bes c d c] [bes as g f] |
+  [es as' g f] [es des c bes] [as8 c'  bes as] |
+  [g8 f g as] [d, es f d] |
   [es as g f] [g es d c] |
-  [d bes as g] [as f es d!] |
-%% 15
-  es8 r8 r4 r8 [c Bes A] |
-  r [es d c] [d c16 Bes] [c8 d] |
-  [G8 bes16 a] [bes8 d] [es c'16 bes] [c'8 e] |
-  [f d'16 c'] [d'8 fis] g4 r16 [G A B] |
-  [c16 d es8~] [es16 A Bes c] [d es f8~] [f16 'b c d] |
-%% 20    
-  es8 r r e [f F Es! D] |                           % -> \classic_accidentals
-  r [As G F] [G F16 Es] [F8 G] |
-  [c16 d  es d] [c Bes As G] [F bes as g] [f es d c] |
-  [Bes c d c] [Bes As G F] [Es as g f] [es d c Bes] |
-  [As Bes c Bes] [As G F Es] [D g f es] [d c B A] |
-%% 25
-  G4 r4 r16 [G A B] [c d es f] |
-  [g f as g] [f es d c] [B8 c16 B] [c8 G] |
-  [As c16 B] [c8 d] [G c16 B] [c8 d] |
-  [F16 G] As4 [G16 F] Es4 r8 es |
-  [d c g G]
-%% 30
-  \multi 2 <
+  [d bes' as g] [as f es d!] |
+%%15
+  es8 r8 r4 r8 [c bes a] |
+  r [es' d c] [d c16 bes] [c8 d] |
+  [g,8 bes'16 a] [bes8 d,] [es c'16 bes] [c8 e,] |
+  [f d'16 c ] [d8 fis,] g4 r16 [g, a b] |
+  [c16 d es8~] [es16 a, bes c] [d es f8~] [f16 b,  c d] |
+%%20    
+  es8 r r e [f f, es! d] |                           % -> \classic_accidentals
+  r [as' g f] [g f16 es] [f8 g] |
+  [c16 d  es d] [c bes as g] [f bes' as g] [f es d c] |
+  [bes c d c] [bes as g f] [es as' g f] [es d c bes] |
+  [as bes c bes] [as g f es] [d g' f es] [d c b a] |
+%%25
+  g4 r4 r16 [g a b] [c d es f] |
+  [g f as g] [f es d c] [b8 c16 b] [c8 g] |
+  [as c16 b] [c8 d] [g, c16 b] [c8 d] |
+  [f16 g] as4 [g16 f] es4 r8 es |
+  [d c g g]
+%%30
+  \type Staff <
     { \stemup c2 ~ | c1 ~ | c1 }
-    { \stemdown C2 ~ | C1 ~ | C1 }
+    { \stemdown c,2 ~ | c1 ~ | c1 }
   >
 }
 
         
 \score {
  
-    \type Grand_staff < 
+    \type GrandStaff < 
       \type Staff = treble < 
         \global 
         \dux
@@ -179,11 +176,13 @@ bassdux = \melodic {
     >
 
   \paper {
-    gourlay_maxmeasures = 5.;
+    gourlay_maxmeasures =5.;
+%    castingalgorithm = \Wordwrap;
+
   }
 
   \midi {
-    \tempo 4 = 84;
+    \tempo 4 =84;
   }
 }