- #(define page-breaking ly:optimal-breaking)
- #(define page-breaking-wrapper page-breaking-wrapper)
- #(define page-post-process post-process-pages)
-
- #(define write-page-layout (ly:get-option 'dump-tweaks))
- #(define system-maximum-stretch-procedure
- (lambda (line)
- (if (stretchable-line? line)
- (let ((height (line-height line)))
- (/ (* height height) 80.0))
- 0.0)))
-