mutopia/J.S.Bach/Petites-Preludes/preludes-2.ly

   1 %{
   2
   3  Six Petits Preludes,
   4  Collection Johann Peter Kellner
   5  ca 1703 - 1707
   6
   7
   8
   9  Kellner was a student of Bach's.
  10
  11 %}
  12
  13 \header{
  14   copyright =    "public domain";
  15   source = "Ed. Henry Lemoine Urtext";
  16   title =        "Pr\\\"aludum";
  17   composer =     "Johann Sebastian Bach (1685-1750)";
  18   enteredby =    "jcn,hwn";
  19
  20
  21   opus= "393";
  22   % mutopia headers.
  23   mutopiatitle = "Prelude";
  24   mutopiacomposer = "J.S.Bach";
  25   mutopiaopus = "BWV939";
  26   mutopiainstrument = "Piano";
  27   style = "baroque";
  28   copyright = "Public Domain";
  29
  30   maintainer = "Jan Nieuwenhuizen";
  31   maintainer_email = "janneke@gnu.org";
  32   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 " + \maintainer + ".\\\\Unrestricted modification and redistribution is permitted and encouraged - copy this music and share it!";
  33   maintainer = "janneke@gnu.org";
  34   lastupdated = "1999/Nov/14";
  35 }
  36
  37
  38
  39 %{
  40 Old versions of LilyPond include this prelude with dynamics and fingerings.
  41 %}
  42
  43
  44
  45 \version "1.3.4";
  46 upper = \context Staff \notes\relative c{
  47         \context Voice=i
  48         \property Voice . textStyle = "italic"
  49         r8 c' e g  e c bes' g |
  50         a c, f a  f c c' a |
  51         b g b d  b g f' d |
  52         <
  53                 {\stemup e2 r4 e }
  54                 \context Voice = ii {\stemdown <c2 g > r4 <c g > }
  55         >
  56         \stemboth |
  57         <
  58                  { \stemup d2 r4 d }
  59                  \context Voice = ii { \stemdown <c2 a > r4 <c a > }
  60         >
  61         \stemboth |
  62         <
  63                  { \stemup d8 }
  64                  \context Voice = ii { \stemdown <b 8 g > }
  65         >
  66         \stemboth
  67         g, 8 b d
  68         <
  69                 { \stemup b 4 e }
  70                 \context Voice = ii { \stemdown g, 4 b }
  71         >
  72         \stemboth |
  73         <
  74                 { \stemup c2 r4 < {c ~ c8} {a 4 ~ a 8} > }
  75                 \context Voice=ii { \stemdown c2 r4 e, 4 ~ e 8 }
  76         >
  77         \stemboth
  78         d, fis a  fis d c' a |
  79         b g b d  b g f'! d |
  80         e g, c e  c g g' e |
  81         fis a, c fis  c a a' fis |
  82         <
  83                 { \stemup g2 }
  84                 \context Voice = ii { \stemdown <d2 b > }
  85         >
  86         \stemboth
  87         r4 b4 |
  88         c,8 e g c  g e bes' g |
  89         a16 g f e  d c b ! a
  90         b g a b  c d e f |
  91         g4
  92         <
  93                 { \stemup c,2 b 4 }
  94                 \context Voice=ii { \stemdown g 2 d 4 }
  95         >
  96         \stemboth
  97         <
  98                 { \stemup c1 }
  99                 \context Voice=ii { \stemdown e, 1}
 100         >
 101         \stemboth
 102         \bar "|.";
 103 }
 104
 105 lower = \context Staff \notes\relative c{
 106         \context Voice=i
 107         <
 108                 { \stemup c1 ~ | c ~ | c }
 109                 \context Voice=ii { \stemdown c,1 ~ | c ~ | c }
 110         >
 111         \stemboth |
 112         r8 c e g  e c c' e, |
 113         fis d fis a  fis d d' fis, |
 114         g2 r4 g |
 115         a8 a, c e  c a g' e |
 116         fis2 r4 d |
 117         g-\mordent-"(\\textsharp)" g, 4 g'-\mordent g, |
 118         % mordents in brackets...
 119         g'-\mordent g, g'-\mordent g, |
 120         g'-\mordent g, g'-\mordent g, |
 121         g'8 g, b d  b g f'! d |
 122         e c e g  e c c' e, |
 123
 124         f1 |
 125         f8 d e c g'4 g, |
 126         <c1 c,1>
 127         \bar "|.";
 128 }
 129
 130 global = \notes{
 131         \time 4/4;
 132 }
 133
 134 \score{
 135         \context GrandStaff <
 136                 \context Staff = upper <
 137                         \global
 138                         \upper
 139                 >
 140                 \context Staff = lower <
 141                         \global
 142                         \clef "bass";
 143                         \lower
 144                 >
 145         >
 146         \paper{
 147           linewidth = 18.0 \cm;
 148         }
 149         \midi{ \tempo 4 = 100; }
 150         \header {
 151                 opus = "BWV 939";
 152                 piece = "2";
 153         }
 154 }
 155