release: 1.3.146

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

diff --git a/mutopia/J.S.Bach/wtk1-prelude1.ly b/mutopia/J.S.Bach/wtk1-prelude1.ly
index 1ae74ec4aadfda5bfd0c482f748d33fedbc97238..8f1fd4232f241986e82d9ac76d1f6eb7cb186de3 100644 (file)
--- a/mutopia/J.S.Bach/wtk1-prelude1.ly
+++ b/mutopia/J.S.Bach/wtk1-prelude1.ly
@@ -1,30 +1,32 @@
 \header{
-filename =      "prelude1.ly";
-title =         "Preludium";
-description =   "Das Wohltemperierte Clavier I, Prelude I (c-major)";
-opus =  "BWV 846";
-composer =      "Johann Sebastian Bach (1685-1750)";
-enteredby =     "Shay Rojansky";
-copyright =     "Public Domain";
-}
+title =         "Preludium"
+opus =          "BWV 846"
+composer =      "Johann Sebastian Bach (1685-1750)"
+enteredby =     "Shay Rojansky"
 
-\version "1.0.4";
 
-global = 
-    \notes {
-        \time 4/4;                % should be \time C
-    }
-  
+  % mutopia headers.
+  mutopiatitle = "Das Wohltemperierte Clavier I, Prelude 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"
+}
 
-% should do programmable input.
+\version "1.3.146"
 
-soprane =
+% should do programmable input.
+soprane = 
     \notes \transpose c'' {
-        \clef "violin";
-
-       \type Staff <
+       \context Staff <
        % Real soprane
-       {\stemup
+       \context Voice = uVoice {
+       \time 4/4
+        \clef "violin"
+
+       \stemUp
        r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] |
        r8 [a16 d'] [f' a d' f'] r8 [a16 d'] [f' a d' f'] |
        r8 [g16 d'] [f' g d' f'] r8 [g16 d'] [f' g d' f'] |
@@ -33,9 +35,9 @@ soprane =
        r8 [fis16 a] [d' fis a d'] r8 [fis16 a] [d' fis a d'] |
        r8 [g16 d'] [g' g d' g'] r8 [g16 d'] [g' g d' g'] |
        r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] |
-       r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] |}
+       r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] }
        % Tenor
-       {\stemdown
+       \context Voice = dVoice {\stemDown
        r16 e8. ~ e4 r16 e8. ~ e4 |
        r16 d8. ~ d4 r16 d8. ~ d4 |
        r16 d8. ~ d4 r16 d8. ~ d4 |
@@ -74,15 +76,15 @@ soprane =
 
        r8 [f,16 a,] [c f c a,] [c a, f, a,] [f, d, f, d,] |
        r8 [g16 b] [d' f' d' b] [d' b g b] [d f e d] |
-       <e1 g c'> ||
+       <e1 g c'> \bar "|."
     }
 
-bass =
+bass = 
     \notes {
-        \clef "bass";
+        \clef "bass"
 
 
-       \stemdown
+       \stemDown
        c'2 c' |
        c' c' |
        b b |
@@ -93,9 +95,9 @@ bass =
        b b |
        a a |   
 %% 10
-       \type Staff <
-       % Alt
-       {\stemup
+       \context Staff <
+       \context Voice =  Alt
+       {\stemUp
        r16 a8. ~ a4 r16 a8. ~ a4 |
        r16 b8. ~ b4 r16 b8. ~ b4 |
        r16 bes8. ~ bes4 r16 bes8. ~ bes4 |
@@ -126,8 +128,8 @@ bass =
        r16 b,8. ~ b,4 ~ b,2 |
        c1 ||}
 
-       % Bass
-       {\stemdown
+       \context Voice = Bass
+       {\stemDown
        d2 d |
        g g |
        g g |
@@ -156,28 +158,19 @@ bass =
        
        c, c, |
        c, c, |
-       c,1 }>
+       c,1 \bar "|." }>
     }
 
         
 \score {
-    \notes \type GrandStaff < 
-                  <
-                       \global 
-                       \soprane
-                 >
-                  <
-                       \global
-                      \bass
-                 >
-             >
-
-    \paper{
-       gourlay_maxmeasures =5.;        
-    }
+    \notes \context PianoStaff < 
+       \soprane
+        \bass
+    >
     \midi {
-        \tempo 4 = 84;
+        \tempo 4 = 80
     }
 }
 
 % EOF
+