]> git.donarmstrong.com Git - lilypond.git/blobdiff - mutopia/J.S.Bach/wtk1-prelude1.ly
release: 1.3.146
[lilypond.git] / mutopia / J.S.Bach / wtk1-prelude1.ly
index dea0195fa0a512da2d7578a2439ad253f19b4aae..8f1fd4232f241986e82d9ac76d1f6eb7cb186de3 100644 (file)
@@ -1,31 +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";
-}
-
-\version "0.1.8";
+title =         "Preludium"
+opus =          "BWV 846"
+composer =      "Johann Sebastian Bach (1685-1750)"
+enteredby =     "Shay Rojansky"
 
-global = 
-    \melodic {
-        \meter 4/4;                % should be \meter C
-    }
-  
 
-% should do programmable input.
+  % 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"
+}
 
-soprane =
-    \melodic {
-        \clef "violin";
-        \octave c';
+\version "1.3.146"
 
-       \multi 2 <
+% should do programmable input.
+soprane = 
+    \notes \transpose c'' {
+       \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'] |
@@ -34,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 |
@@ -53,37 +54,37 @@ soprane =
        r8 [d16 a] [d' d a d'] r8 [d16 a] [d' d a d'] |
        r8 [d16 f] [b d f b] r8 [d16 f] [b d f b] |
        r8 [c16 g] [c' c g c'] r8 [c16 g] [c' c g c'] |
-       r8 ['a16 c] [f 'a c f] r8 ['a16 c] [f 'a c f] |
-       r8 ['a16 c] [f 'a c f] r8 ['a16 c] [f 'a c f] |
-       r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] |
-       r8 ['g16 c] [e 'g c e] r8 ['g16 c] [e 'g c e] |
+       r8 [a,16 c] [f a, c f] r8 [a,16 c] [f a, c f] |
+       r8 [a,16 c] [f a, c f] r8 [a,16 c] [f a, c f] |
+       r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] |
+       r8 [g,16 c] [e g, c e] r8 [g,16 c] [e g, c e] |
 %% 20
-       r8 ['bes16 c] [e 'bes c e] r8 ['bes16 c] [e 'bes c e] |
-       r8 ['a16 c] [e 'a c e] r8 ['a16 c] [e 'a c e] |
-       r8 ['a16 c] [ees 'a c ees] r8 ['a16 c] [ees 'a c ees] |
-       r8 ['b16 c] [d 'b c d] r8 ['b16 c] [d 'b c d] |
-       r8 ['g16 'b] [d 'g 'b d] r8 ['g16 'b] [d 'g 'b d] |
-       r8 ['g16 c] [e 'g c e] r8 ['g16 c] [e 'g c e] |
-       r8 ['g16 c] [f 'g c f] r8 ['g16 c] [f 'g c f] |
-       r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] |
-       r8 ['a16 c] [fis 'a c fis] r8 ['a16 c] [fis 'a c fis] |
-       r8 ['g16 c] [g 'g c g] r8 ['g16 c] [g 'g c g] |
+       r8 [bes,16 c] [e bes, c e] r8 [bes,16 c] [e bes, c e] |
+       r8 [a,16 c] [e a, c e] r8 [a,16 c] [e a, c e] |
+       r8 [a,16 c] [ees a, c ees] r8 [a,16 c] [ees a, c ees] |
+       r8 [b,16 c] [d b, c d] r8 [b,16 c] [d b, c d] |
+       r8 [g,16 b,] [d g, b, d] r8 [g,16 b,] [d g, b, d] |
+       r8 [g,16 c] [e g, c e] r8 [g,16 c] [e g, c e] |
+       r8 [g,16 c] [f g, c f] r8 [g,16 c] [f g, c f] |
+       r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] |
+       r8 [a,16 c] [fis a, c fis] r8 [a,16 c] [fis a, c fis] |
+       r8 [g,16 c] [g g, c g] r8 [g,16 c] [g g, c g] |
 %% 30
-       r8 ['g16 c] [f 'g c f] r8 ['g16 c] [f 'g c f] |
-       r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] |
-       r8 ['g16 'bes] [e 'g 'bes e] r8 ['g16 'bes] [e 'g 'bes e] |
+       r8 [g,16 c] [f g, c f] r8 [g,16 c] [f g, c f] |
+       r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] |
+       r8 [g,16 bes,] [e g, bes, e] r8 [g,16 bes,] [e g, bes, e] |
 
-       r8 ['f16 'a] [c f c 'a] [c 'a 'f 'a] ['f 'd 'f 'd] |
+       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 =
-    \melodic {
-        \clef "bass";
-        \octave c;
+bass = 
+    \notes {
+        \clef "bass"
+
 
-       \stemdown
+       \stemDown
        c'2 c' |
        c' c' |
        b b |
@@ -94,9 +95,9 @@ bass =
        b b |
        a a |   
 %% 10
-       \multi 2 <
-       % 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 |
@@ -124,11 +125,11 @@ bass =
        r16 c8. ~ c4 r16 c8. ~ c4 |
 
        r16 c8. ~ c4 ~ c2 |
-       r16 'b8. ~ 'b4 ~ 'b2 |
+       r16 b,8. ~ b,4 ~ b,2 |
        c1 ||}
 
-       % Bass
-       {\stemdown
+       \context Voice = Bass
+       {\stemDown
        d2 d |
        g g |
        g g |
@@ -137,48 +138,39 @@ bass =
        e e |
        e e |
        d d |
-       'g 'g |
+       g, g, |
        c c |
 %% 20
        c c |
-       'f 'f |
-       'fis 'fis |
-       'aes 'aes |
-       'g 'g |
-       'g 'g |
-       'g 'g |
-       'g 'g |
-       'g 'g |
-       'g 'g |
+       f, f, |
+       fis, fis, |
+       aes, aes, |
+       g, g, |
+       g, g, |
+       g, g, |
+       g, g, |
+       g, g, |
+       g, g, |
 %% 30
-       'g 'g |
-       'g 'g |
-       'c 'c |
+       g, g, |
+       g, g, |
+       c, c, |
        
-       'c 'c |
-       'c 'c |
-       'c1 }>
+       c, c, |
+       c, c, |
+       c,1 \bar "|." }>
     }
 
         
 \score {
-    \melodic \type Grandstaff < 
-                  <
-                       \global 
-                       \soprane
-                 >
-                  <
-                       \global
-                      \bass
-                 >
-             >
-
-    \paper{
-       gourlay_maxmeasures =5.;        
-    }
+    \notes \context PianoStaff < 
+       \soprane
+        \bass
+    >
     \midi {
-        \tempo 4 = 84;
+        \tempo 4 = 80
     }
 }
 
 % EOF
+