X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fmutopia%2FJ.S.Bach%2Fbaerenreiter-sarabande.ly;h=7012fe762f31d4b4b36668a81551759937194fb4;hb=38d7d319eabc906e82fb42002678c6d42a23b6f7;hp=7f6798d5e24bb1ed2096dbc3333b8c47a8399ef6;hpb=1d110256fae15f83b40282de88dc9e32657ba7eb;p=lilypond.git

diff --git a/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly b/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly
index 7f6798d5e2..7012fe762f 100644
--- a/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly
+++ b/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly
@@ -1,6 +1,4 @@
-\version "2.3.4"
-
-% #(ly:set-point-and-click 'line-column)
+\version "2.12.0"
 
 forcedLastBreak =  { \break }
 
@@ -17,10 +15,16 @@ forcedLastBreak =  { \break }
 			     " systems (expecting " (number->string n))))))
             
 
+#(define (assert-system-count-override count)
+  (ly:export #{ \override NoteHead #'after-line-breaking
+       = #(lambda (smob) (assert-system-count smob $count))
+  #}))
+
+  
 \header {
   title = "Solo Cello Suite II"
   piece ="Sarabande"
-  composer = "J.S. Bach"
+  composer = "Johann Sebastian Bach (1685-1750)"
   editor = "August Wenzinger"
   source= "B\\\"arenreiter Urtext"
 
@@ -52,7 +56,7 @@ sarabandeA =  \context Voice  \relative c {
   
   << { d8. e16 e4.\trill d16 e } \\
     { d4 a2 } >>
-  <d, a' f'>4.  e'8[ d c] |
+  <d, a' f'>4.  e'8[ d c] | 
   bes[ g'] f[
      e16(f] g[ a bes d,)] |
   cis4.\trill b8[ a g] |
@@ -107,7 +111,7 @@ sarabandeA =  \context Voice  \relative c {
   |
   \stemUp
   d4 d,16 a'( b cis d e f g) |
-  \stemBoth
+  \stemNeutral
   \forcedLastBreak
   %%25
   << { a16(b c b) c4. b16(a) |
@@ -122,16 +126,14 @@ sarabandeA =  \context Voice  \relative c {
   d'[ cis] |
   %%  d4 d,,2 |
   d4
-  \override NoteHead
-    #'after-line-breaking-callback
- = #(lambda (smob) (assert-system-count smob 6))
+%  #(assert-system-count-override 6)
   d,,2 |
 }
 
 
 sarabandeCelloGlobal = {
   \time 3/4
-  \key f \major
+  \key d \minor
   \clef bass
   \repeat "volta" 2 {
     s2.*12
@@ -149,46 +151,51 @@ sarabandeCelloStaff = \context Staff <<
   \sarabandeCelloScripts
 >>
 
-% size perversions
-smallerPaper = \paper {
-    \context { \Staff
-		  fontSize = #-1
-		  \override StaffSymbol  #'staff-space = #0.8
-		  }
-    \context { \Score
-		   \override SpacingSpanner #'spacing-increment = #0.96
-		}
-	
-    indent = 5.6 \mm
-    linewidth = 146.8 \mm
+%% size perversions
+smallerPaper = \layout {
+  \context {
+    \Staff
+    fontSize = #-1
+    \override StaffSymbol  #'staff-space = #0.8
+  }
+  \context {
+    \Score
+    \override SpacingSpanner #'spacing-increment = #0.96
+  }
+  
+  indent = 5.6 \mm
+  line-width = 146.8 \mm
 }
 
-baerPaper = \paper {
-    indent = 7. \mm
-    linewidth =183.5 \mm
-%    interscoreline=4.0\mm
+\paper {
+  ragged-bottom = ##t
+  indent = 7. \mm
+  line-width =183.5 \mm
+  between-system-space = 25\mm 
+  between-system-padding = 0\mm
+  system-count = 6
+
+%%  annotatespacing = ##t
+}
+
+\book {
+  \score{
+    \sarabandeCelloStaff
+    \layout { }
+    
+  \midi {
     \context {
-	     \Score
-%	     \override System #'print-function = #box-grob-stencil
+      \Score
+      tempoWholesPerMinute = #(ly:make-moment 40 4)
+      }
     }
-}
 
-\bookpaper {
-  raggedbottom = ##t
-  betweensystemspace = 25\mm 
-  betweensystempadding = 0\mm 
-}
-\score{
-  \sarabandeCelloStaff
-  \paper{
-    \baerPaper
+
+    \header{
+      opus= "" 
+      piece ="Sarabande" }
   }
-  \midi{ \tempo 4 = 40 }
-  \header{
-    opus= "" 
-    piece ="Sarabande" }
 }
-
 %%% Local variables:
 %%% LilyPond-indent-level:2
 %%% End: