From: Carl Sorensen <c_sorensen@byu.edu>
Date: Sat, 13 Nov 2010 21:13:16 +0000 (-0700)
Subject: Update spacing for Keith Ohara's suggested defaults
X-Git-Tag: release/2.13.39-1~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a36c13cd69f2c0fb503e20798910dc901a72353d;p=lilypond.git

Update spacing for Keith Ohara's suggested defaults
---

diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index 7f7ebfc604..515c1cd3bb 100644
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -299,6 +299,7 @@ contained staves are connected vertically."
   \consists "Span_arpeggio_engraver"
   \consists "System_start_delimiter_engraver"
   systemStartDelimiter = #'SystemStartBrace
+  topLevelAlignment = ##f
 
   \defaultchild "Staff"
   \accepts "Staff"
@@ -319,8 +320,6 @@ instrument names at the start of each system."
   \consists "Keep_alive_together_engraver"
   topLevelAlignment = ##f
 
-  \override StaffGrouper #'staff-staff-spacing #'stretchability = #5
-
   instrumentName = #'()
   shortInstrumentName = #'()
 }
@@ -416,7 +415,7 @@ printing of a single line of lyrics."
 	(stretchability . 0)
 	(padding . 0.2)
 	(minimum-distance . 2.8))
-  \override VerticalAxisGroup #'nonstaff-unrelatedstaff-spacing #'padding = #1.0
+  \override VerticalAxisGroup #'nonstaff-unrelatedstaff-spacing #'padding = #1.5
   \override InstrumentName #'self-alignment-Y = ##f
 
   %% sync with define-grobs.scm ;
diff --git a/ly/paper-defaults-init.ly b/ly/paper-defaults-init.ly
index f8460ca12b..be908e30fd 100644
--- a/ly/paper-defaults-init.ly
+++ b/ly/paper-defaults-init.ly
@@ -57,14 +57,14 @@
        (is-book-title . #t)))
 
   %% Note: these are not scaled; they are in staff-spaces.
-  system-system-spacing = #'((space . 12) (minimum-distance . 8) (padding . 1))
-  score-system-spacing = #'((space . 14) (minimum-distance . 8) (padding . 1))
-  markup-system-spacing = #'((space . 5) (padding . 0.5))
-  score-markup-spacing = #'((space . 12) (padding . 0.5))
+  system-system-spacing = #'((space . 12) (minimum-distance . 8) (padding . 1) (stretchability . 60))
+  score-system-spacing = #'((space . 14) (minimum-distance . 8) (padding . 1) (stretchability . 120))
+  markup-system-spacing = #'((space . 5) (padding . 0.5) (stretchability . 30))
+  score-markup-spacing = #'((space . 12) (padding . 0.5) (stretchability . 60))
   markup-markup-spacing = #'((space . 1) (padding . 0.5))
   top-system-spacing = #'((space . 1) (padding . 1) (minimum-distance . 0))
   top-markup-spacing = #'((space . 0) (padding . 1) (minimum-distance . 0))
-  last-bottom-spacing = #'((space . 1) (padding . 1) (minimum-distance . 0) (stretchability . 5))
+  last-bottom-spacing = #'((space . 1) (padding . 1) (minimum-distance . 0) (stretchability . 30))
 
   ragged-bottom = ##f
 
diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 5dfaa60030..d68a2452f0 100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -1690,9 +1690,11 @@
     (StaffGrouper
      . (
 	(staff-staff-spacing . ((space . 9)
+                                (stretchability . 5)
 				(minimum-distance . 7)
 				(padding . 1)))
 	(staffgroup-staff-spacing . ((space . 10.5)
+                                     (stretchability . 9)
 				     (minimum-distance . 8)
 				     (padding . 1)))
 	(meta . ((class . Spanner)