+ #(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)))
+
+% #(define page-music-height default-page-music-height )
+% #(define page-make-stencil default-page-make-stencil )
+
+ #(define make-header (marked-up-headfoot 'oddHeaderMarkup 'evenHeaderMarkup))
+ #(define make-footer (marked-up-headfoot 'oddFooterMarkup 'evenFooterMarkup))