release: 1.5.43

[lilypond.git] / input / baerenreiter-sarabande.ly

diff --git a/input/baerenreiter-sarabande.ly b/input/baerenreiter-sarabande.ly
index f1ab03568e22a2f1f188524b81400e7283e895c2..1a529b1a9ced380ed7b9456ec7fabfa2f8716380 100644 (file)
--- a/input/baerenreiter-sarabande.ly
+++ b/input/baerenreiter-sarabande.ly
@@ -16,8 +16,15 @@ benchmarkk the quality of the LilyPond output. As of lilypond 1.5.38,
 the spacing is almost identical. With a line-break forced before
 measure 25, we get back the linebreaking of Baerenreiter.
 
+
+
 This file used to show spacing weaknesses. Now it shows weaknesses in
-beam and slur handling."
+slur handling.
+
+Note that the Barenreiter edition contains an engraving mistake. The
+second line begins with measure 6 (but prints 5).
+
+"
 
 }
 
@@ -27,9 +34,6 @@ beam and slur handling."
 
 sarabandeA =  \context Voice \notes \relative c {
   \property Staff.NoteCollision \set #'merge-differently-dotted = ##t
-  \property Voice.Beam \set #'quantise-dy-never-steeper = ##t
-  \property Voice.Beam \set #'ideal-lengthen = ##t
-  
   < { d8. e16 e4.-\trill d16 e } \\
     { d4 a2 } >
   f4.  [e8 d c] |
@@ -93,10 +97,10 @@ sarabandeA =  \context Voice \notes \relative c {
     \\
     { f,4 fis4. s8 |
       <d4 g,> gis4.   } >
-  \stemUp
+  \voiceOne
   d16(cis)d f,
   [a,8 e']
-  \stemBoth
+  \oneVoice
   [d' cis] |
   d4 d,,2 |
 }
@@ -129,16 +133,31 @@ sarabandeCelloStaff =  \context Staff <
   \sarabandeCelloScripts
 >
 
-\score{
-  \sarabandeCelloStaff
-  \paper{
-    indent = 7. \mm
-    linewidth = 183.5 \mm
+% size perversions
+smallerPaper = \paper {
+    \translator { \StaffContext
+                 fontSize = #-1
+                 StaffSymbol \override  #'staff-space = #0.8
+                 }
     \translator { \ScoreContext
-                 %% SpacingSpanner \override #'maximum-duration-for-spacing = #(make-moment 1 16)
+                  SpacingSpanner \override #'spacing-increment = #0.96
+               }
+       
+    indent = 5.6 \mm
+    linewidth = 146.8 \mm
+}
+
+baerPaper = \paper {
+    indent = 7. \mm
+    linewidth =183.5 \mm
+}
 
 
-               }}
+\score{
+  \sarabandeCelloStaff
+  \paper{
+    \baerPaper
+  }
   \midi{ \tempo 4 = 40 }
   \header{
     opus= ""