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

   1 %{
   2
   3  Six Petits Preludes,
   4  Collection Johann Peter Kellner
   5  ca 1703 - 1707
   6
   7  Kellner was a student of Bach's that copied some 90 works of his master.
   8
   9 %}
  10 \header{
  11   copyright =    "public domain";
  12   source = "Ed. Henry Lemoine Urtext";
  13   title =        "Pr\\\"aludum";
  14   opus = "BWV 925";
  15   composer =     "Johann Sebastian Bach (1685-1750)";
  16   enteredby =    "jcn,hwn";
  17
  18   % mutopia headers.
  19   mutopiatitle = "Prelude";
  20   mutopiacomposer = "J.S.Bach";
  21   mutopiaopus = "BWV925";
  22   mutopiainstrument = "Piano";
  23   style = "baroque";
  24   copyright = "Public Domain";
  25   maintainer = "Jan Nieuwenhuizen";
  26   maintainer_email = "janneke@gnu.org";
  27   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!";
  28   maintainer = "janneke@gnu.org";
  29   lastupdated = "1999/Nov/14";
  30 }
  31
  32 %{
  33
  34 This stretches LilyPond capabilities a little.
  35
  36 %}
  37
  38 one = \context Staff \notes\relative c {
  39         \context Voice=i
  40         \property Voice . textStyle = "italic"
  41 %       r16_"legato"
  42         r16
  43         \property Voice . textStyle = "finger"
  44         d'( fis d  a' b cis a
  45         d cis d e  d fis e d |
  46         \property Voice . textStyle = "finger"
  47         \stemup
  48         )cis4 fis ~ fis8 fis e4 ~ |
  49         e16 \stemboth a,16( cis a  d e fis d
  50         g fis g a  g b a g |
  51         \stemup
  52
  53         )fis4 e8 a <fis4 d> <gis e> |
  54         %5
  55         <a4( e> <fis d> < )g!16 d> fis g a
  56         \stemboth
  57         g b a g |
  58         \property Voice . textStyle = "italic"
  59
  60         fis e fis g  fis a g fis
  61         \property Voice . textStyle = "finger"
  62 %       e4-"2\\_5" ~ e16 e,( fis g  |
  63         e4 ~ e16 e,( fis g  |
  64         \property Voice . textStyle = "italic"
  65
  66         a g a b  a c b a
  67         g fis g a  g b a g |
  68         \stemup
  69         )fis4
  70         \skip 4*7; |
  71         %10
  72         \property Voice . textStyle = "finger"
  73 %       d'4. cis8-"4\\_5" ~ cis b4 a8-"4\\_5" ~ |
  74         d'4. cis8 ~ cis b4 a8 ~ |
  75         \property Voice . textStyle = "italic"
  76
  77         a g4 fis8 ~ fis16 fis e d
  78         \property Voice . textStyle = "finger"
  79 %       e4-"3\\_5" ~ |
  80         e4 ~ |
  81         e16 e d cis d4 ~ d16 d cis b cis4 |
  82         \stemboth
  83         fis,16 a d c  b d g fis
  84         d b' a g  fis e d c! |
  85         b d g a  fis8-\prall e16 d
  86         d8. e16~  e d8 cis16 |
  87         %15
  88         \stemup
  89         r16 d fis d  g a b g  c b c d  c e d c |
  90         b4 a ~ a8 g ~  g16 fis8 e16 |
  91         fis8 e~  e d~ d4 cis |
  92
  93         d2 ~ d16 a( b cis )d4 |
  94         \bar "|.";
  95 }
  96
  97 two = \context Staff \notes\relative c{
  98         \context Voice=ii
  99         \stemup
 100         \property Voice . textStyle = "finger"
 101         fis4( e8 a4 a4 gis8 |
 102         ) a8
 103         \translator Staff=upper \stemdown
 104
 105         a'4 a8 b4. cis8 ~ |
 106         cis8
 107         \translator Staff=lower \stemup
 108         a,8 ~ a d ~ d d4-> cis8 |
 109         d8
 110         \translator Staff=upper \stemdown
 111         d'4-> cis8 ~ cis b4 b8 |
 112         %5
 113         r8 a4 a8
 114         \translator Staff=lower \stemup
 115         g8( fis )e4 ~ |
 116         e4 d ~ d16 d cis b cis4 ~ |
 117         cis8 a d4. d4^> cis8 |
 118         \translator Staff=upper \stemdown
 119         d4 \stemboth r16 b d b~ <g'4 e b>
 120         r16 cis, e cis~ |
 121         <a'4 fis cis> r16 d, fis d~ <b'4 g d>
 122         r16 fis a fis~ |
 123         %10
 124         \stemdown
 125         fis4 e d cis |
 126         b a b4. b8 |
 127         a4
 128         \translator Staff=lower \stemup
 129         r16 b fis a g4 r16 a e g |
 130         \skip 1*1;
 131         s16
 132         \translator Staff=upper \stemdown
 133         d'8. ~ d8 c d4 a8 g |
 134         %15
 135         fis8 \translator Staff=lower \stemup c' b4 \stemdown <a
 136         \translator Staff=upper \stemdown
 137         a'4.>
 138         \stemdown
 139         a'8~ |
 140         a g~  g16 e fis8~  fis16 d8.~  d8. cis!16 |
 141         \translator Staff=lower \stemup
 142         \context Staff <
 143                 \context Voice=i { \stemup  d8 a~ a4 }
 144                 \context Voice=ii { \stemdown  a8 g  fis16 e fis d }
 145         >
 146         \stemup
 147         g fis g a  g b a g ~ |
 148         g g fis e fis4 ~ fis2
 149         \bar "|.";
 150 }
 151
 152 three = \notes\relative c{
 153         \context Voice=iii
 154         \stemdown
 155         d4 cis b e |
 156         a16 a,( cis a  d e fis d
 157         g fis g a  g b a g |
 158         )fis4 fis e a |
 159         d16 \stemboth d,( fis d  a' b cis a
 160         d cis d e  d fis e ) d |
 161         %5
 162         cis b cis d  c e d c
 163         \stemdown b4 cis8 b( |
 164         a )fis b a  gis e a g |
 165         fis4. d8 e4 a4 |
 166         \stemboth
 167         r16 d,( fis d  )g8-. g,-.
 168         r16 e'( g e  )a8-. a,-. |
 169         r16 fis'( a fis  )b8-. b,-. r16 g'( b g  )d'8-. d,-. |
 170         %10
 171         r16 d,16( fis d  a' b cis a  d b d b
 172         fis' g a fis |
 173         )fis16 g,( b g  d' e fis d  )g8-. g,-. r16 cis( e cis |
 174         )fis8-. fis,-. \stemdown r16 b( d b  )e8-. e,-.
 175         r16 a cis a |
 176         \stemboth
 177         d e fis d  g fis e d  cis! a b cis
 178         d e fis d |
 179         g8 e \stemdown a a,  b8. g16 a4 |
 180         %15
 181         d8 a'~  a g~  g g fis4 |
 182         \stemup
 183         r16 g b g  d'8. c16  b8. bes16  a8 g |
 184         \stemdown
 185         r16 a, cis! a'  d, e fis d  e8 d  e a, |
 186         d a~  a16 a b cis d2 |
 187 }
 188
 189 four = \context Staff \notes\relative c{
 190         \skip 1*9;
 191         \context Voice=iv
 192         \stemup
 193         \property Voice.horizontalNoteShift = 1
 194         %10
 195         a''2 fis |
 196         d s |
 197 %       \property Voice.horizontalNoteShift = 0
 198         \skip 1*2; |
 199         s4
 200         \translator Staff=lower \stemup
 201         a4 ~ a16 d, g8  fis e |
 202         %15
 203         \stemdown
 204         d1 ~ |
 205         d |
 206         d, ~ |
 207         d2 d2
 208 }
 209
 210 global = \notes{
 211         \time 4/4;
 212         \key D;
 213 }
 214
 215 \score{
 216         % Allegretto
 217         \context PianoStaff <
 218                 \context Staff = upper <
 219                         \global
 220                         \one
 221                         \four
 222                 >
 223                 \context Staff = lower <
 224                         \global
 225                         \clef "bass";
 226                         \two
 227                         \three
 228                 >
 229         >
 230         \paper{
 231                 linewidth = 18.0 \cm;
 232         }
 233         \midi{ \tempo 4 = 70; }
 234         \header{
 235                 opus = "BWV 925";
 236                 piece = "4";
 237         }
 238 }