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

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