* scm/page-layout.scm (ly:optimal-page-breaks): use new parameters

to get sane spaces for titles.

* scm/page-layout.scm (ly:optimal-page-breaks): add
betweensystempadding also to fixed distance for the spring.

This fixes: morgenlied.ly and input/regression/beam-concave.ly

diff --git a/ChangeLog b/ChangeLog
index 13237435cc726a4c11aefb138ef6a767d0a7faf2..0ab8e4e927a61f3df3d4156720c0cb3e7b9571bb 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2004-09-12  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+       * scm/define-grobs.scm (all-grob-descriptions): longer
+       ideallengths for stems in higher order beams.
+
        * Documentation/user/changing-defaults.itely (Page layout):
        document them.
 

diff --git a/input/les-nereides.ly b/input/les-nereides.ly
index 7e155716c2ebb58b20ae5f353bd5ff1381f8b227..a1daa3342788fdb7c58af6c4facf1bb0de9c22b9 100644 (file)
--- a/input/les-nereides.ly
+++ b/input/les-nereides.ly
@@ -301,5 +301,4 @@ theScore = \score{
 %%% Local variables:
 %%% LilyPond-indent-level:4
 %%% End:
-%% new-chords-done %%
-m
+

diff --git a/input/regression/chord-tremolo-short.ly b/input/regression/chord-tremolo-short.ly
index e1578bca3ecf5fe8f5b5165938e1df5b18397409..11fcb3e83305d7b73279eaef028d4a66f37fcd10 100644 (file)
--- a/input/regression/chord-tremolo-short.ly
+++ b/input/regression/chord-tremolo-short.ly
@@ -14,5 +14,3 @@
   \paper { raggedright = ##t }
 }
 
-%% new-chords-done %%
-

diff --git a/scm/page-layout.scm b/scm/page-layout.scm
index 5e0d45841d94db0f1934c489a3aabb743e7a64a5..99b5bb6b395f45a59ae2ded80ba247cbb58d90fe 100644 (file)
--- a/scm/page-layout.scm
+++ b/scm/page-layout.scm
@@ -296,7 +296,7 @@ is what have collected so far, and has ascending page numbers."
                 (ideal (+
                         (cond
                          ((and title2? title1?)
-                          (ly:output-def-lookup bookpaper 'betweentitlespace)))
+                          (ly:output-def-lookup bookpaper 'betweentitlespace))
                          (title1?
                           (ly:output-def-lookup bookpaper 'aftertitlespace))
                          (title2?