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

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