Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / input / mutopia / J.S.Bach / bwv940.ly

diff --git a/input/mutopia/J.S.Bach/bwv940.ly b/input/mutopia/J.S.Bach/bwv940.ly
index 06995fe5801694d1581d32f70c858fe49a0baec5..7f8a6872184ae5c0f4f724e276088411becd8ad1 100644 (file)
--- 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.7"
+\version "2.7.39"
 
 %{
  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 |
-       \property Voice.TextScript \set #'font-style = #'finger
+       \override TextScript  #'font-style = #'finger
        bes2 a ~ |
        a a |
        d, cis' |
@@ -104,19 +106,19 @@ 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
-       \property Voice.NoteColumn \override #'horizontal-shift = #1
+       \override NoteColumn #'horizontal-shift = #1
        c''4 |
        %5
        a gis ~ gis16 gis fis e 
        \skip 4*1
        \change Staff=lower \stemDown
-       \property Voice.NoteColumn \override #'horizontal-shift = #0
+       \override NoteColumn   #'horizontal-shift = #0
        \stemUp\tieUp
        b2 a |
        g a4. gis16 a |
@@ -129,31 +131,31 @@ four =   \notes\relative c{
             >>
 }
 
-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 }