]> git.donarmstrong.com Git - lilypond.git/blob - input/mutopia/J.S.Bach/bwv940.ly
Merge branch 'master' into lilypond/translation
[lilypond.git] / 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