X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fmutopia%2FJ.S.Bach%2Fbwv940.ly;h=63f4f9a048e42bcbc8fd6dbbacecb1690ffd5383;hb=def21b306e2b8fa2d5630fab0878e9922e197f0c;hp=de797eb545d23156669dc1416f701fd64fceb33e;hpb=1395665466e349117f251da681262bd56c44d04e;p=lilypond.git

diff --git a/input/mutopia/J.S.Bach/bwv940.ly b/input/mutopia/J.S.Bach/bwv940.ly
index de797eb545..63f4f9a048 100644
--- a/input/mutopia/J.S.Bach/bwv940.ly
+++ b/input/mutopia/J.S.Bach/bwv940.ly
@@ -1,5 +1,5 @@
 #(ly:set-option 'old-relative)
-\version "2.1.22"
+\version "2.11.38"
 
 %{
  Header for Petites Preludes.
@@ -12,6 +12,8 @@
 %}
 
 
+
+
 \header{
   title =	 "Praeludium"
   composer =	 "Johann Sebastian Bach (1685-1750)"
@@ -31,7 +33,7 @@
   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 +
@@ -41,11 +43,11 @@
  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
@@ -62,7 +64,7 @@ one = \notes\relative c{
 	\bar "|."
 }
 
-two = \notes\relative c{
+two = \relative c{
 	r16 d'' c bes  a bes f g 
 	a8.\mordent bes16  g8.\prall f16 |
 	\stemDown
@@ -81,21 +83,21 @@ two = \notes\relative c{
 	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 |
-	\override TextScript   #'font-style = #'finger
+	\override TextScript  #'font-style = #'finger
 	bes2 a ~ |
 	a a |
 	d, cis' |
@@ -104,13 +106,13 @@ three = \notes\relative c{
 	\bar "|."
 }
 
-four = \notes\relative c{
+four = \relative c{
 	\stemDown 
 	d2 cis |
 	\skip 1*2 |
 	\skip 4*3
 	\change Staff=upper \stemUp
-	\override NoteColumn   #'horizontal-shift = #1
+	\override NoteColumn #'horizontal-shift = #1
 	c''4 |
 	%5
 	a gis ~ gis16 gis fis e 
@@ -124,39 +126,47 @@ four = \notes\relative c{
 	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)
+      }
+    }
+
+
 }