X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fmutopia%2FJ.S.Bach%2Fbaerenreiter-sarabande.ly;fp=input%2Fmutopia%2FJ.S.Bach%2Fbaerenreiter-sarabande.ly;h=1724d21f3a6ca2e5a76ea1cae1f8656ffb040967;hb=a1aebf5d6fccf7ab9a7106178e017c370484d40f;hp=657530132f44112fa5c97d628dbe65d6dfab82b7;hpb=e22771460462a09a38bf5b99db5d9c8d0e19d513;p=lilypond.git

diff --git a/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly b/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly
index 657530132f..1724d21f3a 100644
--- a/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly
+++ b/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly
@@ -15,6 +15,13 @@ forcedLastBreak =  { \break }
 			     " systems (expecting " (number->string n))))))
             
 
+#(define (assert-system-count-override count)
+  (ly:export #{ \override NoteHead
+     #'after-line-breaking-callback
+       = #(lambda (smob) (assert-system-count smob $count))
+  #}))
+
+  
 \header {
   title = "Solo Cello Suite II"
   piece ="Sarabande"
@@ -50,7 +57,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] |
@@ -120,9 +127,7 @@ 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 |
 }
 
@@ -147,18 +152,20 @@ sarabandeCelloStaff = \context Staff <<
   \sarabandeCelloScripts
 >>
 
-% size perversions
+%% 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
-    linewidth = 146.8 \mm
+  \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
 }
 
 \paper {