patch::: 1.3.133.jcn4

[lilypond.git] / mutopia / J.S.Bach / wtk1-fugue2.ly

diff --git a/mutopia/J.S.Bach/wtk1-fugue2.ly b/mutopia/J.S.Bach/wtk1-fugue2.ly
index cae280c7b1f642e5b1f999ec6621c2c1226b27fa..3a539395ae0f8b5bc8ada96868deed7e5f341eb9 100644 (file)
--- a/mutopia/J.S.Bach/wtk1-fugue2.ly
+++ b/mutopia/J.S.Bach/wtk1-fugue2.ly
@@ -7,27 +7,25 @@
 
   % mutopia headers.
   mutopiatitle = "Das Wohltemperierte Clavier I, Fuga II (c-minor)";
-  mutopiacomposer = "J.S.Bach";
+  mutopiacomposer = "J. S. Bach (1685-1750)";
+  mutopiainstrument = "Piano";
   mutopiaopus = "BWV847";
   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!";
+  copyright = "Public Domain";
+  tagline =    "\\\\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";
-  
-  }
+  lastupdated = "2000/Feb/14";
+}
 
 
 % It would be nice to squeeze this onto two pages, but I am not sure
 % if it would work with US paper.
 
-\version "1.3.4";
+\version "1.3.117";
 
-global = \notes {
-  \key c \minor;
-}
   
-dux = \context Voice=two \notes \relative c''{
-  \voicetwo
+dux =  \context Voice=two \notes \relative c''{
+  \voiceTwo
   \clef violin;
 
   r8 c16 b c8 g as c16 b c8 d |
@@ -45,21 +43,28 @@ dux = \context Voice=two \notes \relative c''{
   as4 r8 a bes bes16 a bes8 f |
   g4 r8 g as as g f |
   r8 
-  \translator Staff = bass \stemup 
+  \translator Staff = bass \stemUp 
   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
   g'16 fis g8 c, 
-  es \translator Staff = treble \stemdown g16 fis! g8 a |
+  es \translator Staff = treble
+  \stemBoth
+  \stemDown
+  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 \translator Staff = bass \stemup es d c bes! as g 
-  f8 \translator Staff = treble \stemdown as' g f |
+  c16 f \translator Staff = bass
+  \stemBoth \stemUp
+     es d c bes! as g 
+  f8 \translator Staff = treble
+  \stemBoth \stemDown
+  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 |
@@ -76,8 +81,8 @@ dux = \context Voice=two \notes \relative c''{
 }
 
 
-comes = \context Voice=one \notes \relative c'' {
-  \voiceone
+comes =  \context Voice=one \notes \relative c'' {
+  \voiceOne
   R1 |
   R1 |
   r8 g'16 fis g8 c, es g16 fis g8 a |
@@ -92,10 +97,10 @@ comes = \context Voice=one \notes \relative c'' {
   f f16 e f8 c8 d4 r8 d |
   es8 es16 d es8 bes c es16 d es8 f |
   bes, es16 d es8 f as,16 bes c4 bes16 as |
-  \stemboth g16 es f g as bes c d es d c d es f g a |
+  \stemBoth 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 |
+  \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 |
@@ -117,7 +122,7 @@ comes = \context Voice=one \notes \relative c'' {
   f,16 g as4 g16 f e2 |
 }
 
-bassdux = \context Voice=three \notes \relative c' {
+bassdux =  \context Voice=three \notes \relative c' {
   \clef bass;
   R1 |
   R |
@@ -144,7 +149,7 @@ bassdux = \context Voice=three \notes \relative c' {
   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
-  es8 r r e \stemdown f f, es! d \stemboth |
+  es8 r r e \stemBoth \stemDown f f, es! d \stemBoth |
   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 |
@@ -157,29 +162,34 @@ bassdux = \context Voice=three \notes \relative c' {
   d c g' g, 
 %%30
   \context Staff=bass <
-    {\stemup c2 ~ | c1 ~ | c1 }
-    \context Voice=four {\stemdown c,2 ~ | c1 ~ | c1 }
+    {\stemUp c2 ~ | c1 ~ | c1 }
+    \context Voice=four {\stemDown c,2 ~ | c1 ~ | c1 }
   >
 }
 
 \score {
  
-    \context PianoStaff < 
-       \context Staff = treble < 
+    \notes \context PianoStaff < 
+       \context Staff = treble <
+           \key c \minor;
+%      \key es \major;
            \dux
            { \comes \bar "|."; }
              \time 4/4;
-             \property Score.timeSignatureStyle = "C"
          >
        \context Staff = bass <
-           \global
+           \key c \minor;
            \bassdux
        >
     >
 
     \paper {
         linewidth = 18.0 \cm;
-       \translator{ \OrchestralScoreContext }
+       \translator{ \OrchestralScoreContext
+        timeSignatureStyle \override #'style = #"C"
+
+       }
+       
     }
     \header{
        opus = "BWV 847";