document them.
* scm/page-layout.scm (ly:optimal-page-breaks): use new parameters
to get sane spaces for titles.
* ly/book-paper-defaults.ly: new parameters aftertitlespace,
beforetitlespace, betweentitlespace.
* 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
2004-09-12 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * Documentation/user/changing-defaults.itely (Page layout):
+ document them.
+
+ * scm/page-layout.scm (ly:optimal-page-breaks): use new parameters
+ to get sane spaces for titles.
+
+ * ly/book-paper-defaults.ly: new parameters aftertitlespace,
+ beforetitlespace, betweentitlespace.
+
+ * input/regression/beam-quant-standard.ly (primeSixteenths): add
+ 16th notes.
+
* lily/beam.cc (set_minimum_dy): new function. Round non-zero
small slope up to smallest quant. This prevents small slopes from
getting rounded to zero.
-\version "2.3.16"
@c -*-texinfo-*-
@node Changing defaults
@chapter Changing defaults
Increasing this will put systems whose bounding boxes almost touch
farther apart.
+@item aftertitlespace
+Amount of space between title and the first system
+@item beforetitlespace
+Amount of space between last system of the previous piece and the
+title of the next
+@item betweentitlespace
+Amount of space between consecutive titles (eg. the title of the
+book and the title of piece).
+
@end table
@example
-\version "2.3.16"
@c -*-texinfo-*-
-\version "2.3.16"
@c -*-texinfo-*-
@node Converting from other formats
-\version "2.3.16"
@quotation
We want to dedicate this program to all the friends that we
-\version "2.3.16"
@c -*-texinfo-*-
@c This file is part of lilypond.tely
-\version "2.3.16"
@c -*-texinfo-*-
@ignore
-\version "2.3.16"
@node Literature list
@appendix Literature list
-\version "2.3.16"
@c Note: -*-texinfo-*-
@c This file is part of lilypond.tely
-\version "2.3.16"
@c Note: -*-texinfo-*-
@c This file is part of lilypond.tely
-\version "2.3.16"
@node Point and click
@appendix Point and click
@cindex point and click
-\version "2.3.16"
@comment @c -*-texinfo-*-
@node Preface
-\version "2.3.16"
@c -*-texinfo-*-
@node Interfaces for programmers
@chapter Interfaces for programmers
-\version "2.3.16"
@node Scheme tutorial
\bookpaper {
raggedbottom = ##t
betweensystemspace = 25\mm
- betweensystempadding = 0\mm
+ betweensystempadding = 0\mm
}
+
\score{
\sarabandeCelloStaff
\paper{
%
betweensystempadding = #(* 4 mm)
+ aftertitlespace = 5 \mm
+ beforetitlespace = 10 \mm
+ betweentitlespace = 2 \mm
+
raggedbottom = ##f
raggedlastbottom= ##f
(let*
((inter-system-space
(ly:output-def-lookup bookpaper 'betweensystemspace))
+ (system-vector (list->vector
+ (append lines
+ (if (= (length lines) 1)
+ '(#f)
+ '()))
+ ))
(staff-extents
(list->vector
(fixed (max 0 (- (+ (cdr next-system-ext)
fixed-dist)
(car this-system-ext))))
- (ideal (+ inter-system-space fixed))
+ (title1? (and (vector-ref system-vector idx)
+ (ly:paper-system-title? (vector-ref system-vector idx))))
+ (title2? (and
+ (vector-ref system-vector (1+ idx))
+ (ly:paper-system-title? (vector-ref system-vector (1+ idx)))))
+ (ideal (+
+ (cond
+ ((and title2? title1?)
+ (ly:output-def-lookup bookpaper 'betweentitlespace)))
+ (title1?
+ (ly:output-def-lookup bookpaper 'aftertitlespace))
+ (title2?
+ (ly:output-def-lookup bookpaper 'beforetitlespace))
+ (else inter-system-space))
+ fixed))
(hooke (/ 1 (- ideal fixed)))
)
(list ideal hooke))
(cdr result)))
)
- (if #t ;; debug.
+ (if #f ;; debug.
(begin
(display (list "\n# systems: " no-systems
"\nreal-ext" real-extents "\nstaff-ext" staff-extents