input/mutopia/J.S.Bach/bwv940.ly

   1 \version "1.8.0"
   2
   3 %{
   4  Header for Petites Preludes.
   5
   6  Six Petits Preludes,
   7  Collection Johann Peter Kellner
   8  ca 1703 - 1707
   9
  10  Kellner was a student of Bach's that copied some 90 works of his master.
  11 %}
  12
  13
  14 \header{
  15   title =        "Praeludium"
  16   composer =     "Johann Sebastian Bach (1685-1750)"
  17   enteredby =    "JCN,HWN"
  18   opus= "BWV 940"
  19
  20
  21   % mutopia headers.
  22   mutopiacomposer = "J.S.Bach (1685-1750)"
  23   mutopiaopus = "BWV940"
  24
  25   mutopiainstrument = "Harpsichord,Clavichord"
  26   date = "1700s"
  27   source = "Ed. Henry Lemoine Urtext"
  28   style = "Baroque"
  29   copyright = "Public Domain"
  30   maintainer = "Jan Nieuwenhuizen"
  31   maintainerEmail = "janneke@gnu.org"
  32   lastupdated =  "2003/Aug/22"
  33   mutopiapublicdomain = "\\parbox{\hsize}{\\thefooter\\quad\\small
  34     \\\\This music is part of the Mutopia project,
  35     \\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset
  36     and placed in the public domain by " + \maintainer +
  37     ".\\\\Unrestricted modification and redistribution is permitted
  38     and encouraged---copy this music and share it.}"
  39  tagline = \mutopiapublicdomain
  40  footer = "Mutopia-2003/08/22-nr"
  41 }
  42
  43 one =   \notes\relative c{
  44         \skip 1 |
  45         \stemUp
  46         r4 d''2 cis4 |
  47         \stemBoth
  48         d16 a' g f  e f cis d
  49         e8.-\mordent f16  d8.-\prall cis16 |
  50         \stemUp\tieUp
  51         cis4 ~ cis16 a d8 ~ d4 a |
  52         %5
  53         b2 ~ b4 a ~ |
  54         a16 a \stemUp g! f g4 ~ g f ~ |
  55         f16 a g f  e16 g8. ~  g16 g f e  d f8. ~ |
  56         f16 f e d b'4 a g |
  57
  58         fis4 g r8 g16 bes e4 |
  59         %10
  60         d1
  61         \bar "|."
  62 }
  63
  64 two =   \notes\relative c{
  65         r16 d'' c bes  a bes f g
  66         a8.-\mordent bes16  g8.-\prall f16 |
  67         \stemDown
  68         f2 e2 |
  69         \translator Staff=lower \stemUp
  70         r4 a, bes b |
  71         \translator Staff=upper \stemDown\tieDown
  72         r16 b' a g  f8. f16 e2 ~ |
  73         %5
  74         e2 ~ e4 ~ e16 e f! d |
  75         s4 e4_\mordent-~ e4 d4 ~ |
  76         d4. cis16 d cis4 d ~ |
  77         d8 r r16 e f d r16 e f d r d e cis |
  78         r16 e d c!  bes! d8. s4 r16 bes' a g |
  79         %10
  80         fis1
  81 }
  82
  83 three = \notes\relative c{
  84         \stemUp
  85         f2 e |
  86         \stemBoth
  87         d16 d' c bes  a bes f g
  88         a8.-\mordent bes16
  89         g8.-\prall f16 |
  90         f2 g4 gis |
  91         a2 ~ a16 a g f  e f c d |
  92         %5
  93         e8.-\mordent f16  d8.-\prall c16 \stemBoth c4. d8 |
  94         \stemDown       \tieDown
  95
  96         e4 ~ e16 f e d  cis a b cis  d e f d |
  97         \property Voice.TextScript \set #'font-style = #'finger
  98         bes2 a ~ |
  99         a a |
 100         d, cis' |
 101         %10
 102         a'1
 103         \bar "|."
 104 }
 105
 106 four =   \notes\relative c{
 107         \stemDown
 108         d2 cis |
 109         \skip 1*2 |
 110         \skip 4*3
 111         \translator Staff=upper \stemUp
 112         \property Voice.NoteColumn \override #'horizontal-shift = #1
 113         c''4 |
 114         %5
 115         a gis ~ gis16 gis fis e
 116         \skip 4*1
 117         \translator Staff=lower \stemDown
 118         \property Voice.NoteColumn \override #'horizontal-shift = #0
 119         \stemUp\tieUp
 120         b2 a |
 121         g a4. gis16 a |
 122         gis2 << g cis,>>8 <<f d>> e4 |
 123         d4. fis16 g r16 bes8. ~ bes4 |
 124         %10
 125         \stemDown
 126         < d,1  { \fatText s4^\markup { \hspace #20 }
 127                  s4^\markup { \hspace #1 }  s4 }
 128              >
 129 }
 130
 131 global =  \notes{
 132         \time 4/4
 133         \key f \major
 134 }
 135
 136 \score{
 137         % Allegretto
 138         \context PianoStaff <
 139                 \context Staff = upper <
 140                         \global
 141                         \context Voice = i\one
 142                         \context Voice = ii \two
 143                 >
 144                 \context Staff = lower <
 145                         \global
 146                         \clef "bass"
 147                         \context Voice= iii \three
 148                         \context Voice = iv \four
 149                 >
 150         >
 151         \paper{
 152                 linewidth = 17.0 \cm
 153                 \translator {
 154                     \ScoreContext
 155                     SpacingSpanner \set #'spacing-increment = #2.0
 156                 }
 157         }
 158         \midi{ \tempo 4 = 40 }
 159 }
 160
 161