#(ly:set-option 'old-relative)
-\version "1.9.8"
+\version "2.12.0"
%{
Header for Petites Preludes.
%}
+
+
\header{
title = "Praeludium"
composer = "Johann Sebastian Bach (1685-1750)"
maintainer = "Jan Nieuwenhuizen"
maintainerEmail = "janneke@gnu.org"
lastupdated = "2003/Aug/22"
- mutopiapublicdomain = "\\parbox{\hsize}{\\thefooter\\quad\\small
+ mutopiapublicdomain = "\\parbox{\paper-width}{\\thefooter\\quad\\small
\\\\This music is part of the Mutopia project,
\\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset
and placed in the public domain by " + \maintainer +
footer = "Mutopia-2003/08/22-nr"
}
-one = \notes\relative c{
+one = \relative c{
\skip 1 |
\stemUp
r4 d''2 cis4 |
- \stemBoth
+ \stemNeutral
d16 a' g f e f cis d
e8.\mordent f16 d8.\prall cis16 |
\stemUp\tieUp
\bar "|."
}
-two = \notes\relative c{
+two = \relative c{
r16 d'' c bes a bes f g
a8.\mordent bes16 g8.\prall f16 |
\stemDown
f2 e2 |
- \translator Staff=lower \stemUp
+ \change Staff=lower \stemUp
r4 a, bes b |
- \translator Staff=upper \stemDown\tieDown
+ \change Staff=upper \stemDown\tieDown
r16 b' a g f8. f16 e2 ~ |
%5
e2 ~ e4 ~ e16 e f! d |
fis1
}
-three = \notes\relative c{
+three = \relative c{
\stemUp
f2 e |
- \stemBoth
+ \stemNeutral
d16 d' c bes a bes f g
a8.\mordent bes16
g8.\prall f16 |
f2 g4 gis |
a2 ~ a16 a g f e f c d |
%5
- e8.\mordent f16 d8.\prall c16 \stemBoth c4. d8 |
+ e8.\mordent f16 d8.\prall c16 \stemNeutral c4. d8 |
\stemDown \tieDown
e4 ~ e16 f e d cis a b cis d e f d |
- \property Voice.TextScript \set #'font-style = #'finger
+ \override TextScript #'font-style = #'finger
bes2 a ~ |
a a |
d, cis' |
\bar "|."
}
-four = \notes\relative c{
+four = \relative c{
\stemDown
d2 cis |
\skip 1*2 |
\skip 4*3
- \translator Staff=upper \stemUp
- \property Voice.NoteColumn \override #'horizontal-shift = #1
+ \change Staff=upper \stemUp
+ \override NoteColumn #'horizontal-shift = #1
c''4 |
%5
a gis ~ gis16 gis fis e
\skip 4*1
- \translator Staff=lower \stemDown
- \property Voice.NoteColumn \override #'horizontal-shift = #0
+ \change Staff=lower \stemDown
+ \override NoteColumn #'horizontal-shift = #0
\stemUp\tieUp
b2 a |
g a4. gis16 a |
d4. fis16 g r16 bes8. ~ bes4 |
%10
\stemDown
- << d,1 { \fatText s4^\markup { \hspace #20 }
+ << d,1 { \textLengthOn s4^\markup { \hspace #20 }
s4^\markup { \hspace #1 } s4 }
>>
}
-global = \notes{
+global = {
\time 4/4
\key f \major
}
\score{
% Allegretto
- \context PianoStaff <<
- \context Staff = upper <<
+ \new PianoStaff <<
+ \new Staff = "upper" <<
\global
- \context Voice = i\one
- \context Voice = ii \two
+ \new Voice = "i"\one
+ \new Voice = "ii" \two
>>
- \context Staff = lower <<
+ \new Staff = "lower" <<
\global
\clef "bass"
- \context Voice= iii \three
- \context Voice = iv \four
+ \new Voice = "iii" \three
+ \new Voice = "iv" \four
>>
>>
- \paper{
- linewidth = 17.0 \cm
- \translator {
- \ScoreContext
- SpacingSpanner \set #'spacing-increment = #2.0
+ \layout{
+ line-width = 17.0 \cm
+ \context {
+ \Score
+ \override SpacingSpanner #'spacing-increment = #2.0
}
}
- \midi{ \tempo 4 = 40 }
+
+ \midi {
+ \context {
+ \Score
+ tempoWholesPerMinute = #(ly:make-moment 40 4)
+ }
+ }
+
+
}