2 #(use-modules (scm layout-page-layout))
7 %%% if you add any new dimensions, don't forget to update
8 %%% the dimension-variables variable. see paper.scm
16 %% This is weird; `everyone' uses LATIN1? How does I select TeX
17 %% input encoding in EMACS? -- jcn
18 %%%%input-encoding = #"TeX"
19 input-encoding = #"latin1"
20 print-page-number = ##t
23 %% 20pt staff, 5 pt = 1.75 mm
26 output-scale = #1.7573
28 #(define-public book-title (marked-up-title 'bookTitleMarkup))
29 #(define-public score-title (marked-up-title 'scoreTitleMarkup))
30 #(define-public force-eps-font-include #f)
36 #(layout-set-absolute-staff-size (* 20.0 pt))
39 #(define-public score-title-properties
43 #(define-public book-title-properties
49 %% this dimension includes the extent of the
52 between-system-space = #(* 20 mm)
56 %% fixed space between systems.
58 between-system-padding = #(* 4 mm)
60 after-title-space = 5 \mm
61 before-title-space = 10 \mm
62 between-title-space = 2 \mm
66 %% Small staves are aligned so they come out on the same place on
67 %% across different pages.
69 page-top-space = #(* 12 mm)
75 %% looks best for shorter scores.
77 ragged-last-bottom= ##t
80 %% settings for the page breaker
82 blank-last-page-force = 0
85 #(define font-defaults
86 '((font-encoding . fetaMusic)))
88 %% use lmodern in latin1 (cork) flavour if EC is not available.
89 #(define text-font-defaults
92 (tex-backend? 'Extended-TeX-Font-Encoding---Latin)
99 #(define page-breaking ly:optimal-breaking)
100 #(define page-breaking-wrapper page-breaking-wrapper)
101 #(define page-post-process post-process-pages)
103 #(define write-page-layout (ly:get-option 'dump-tweaks))
104 #(define system-maximum-stretch-procedure
106 (if (stretchable-line? line)
107 (let ((height (line-height line)))
108 (/ (* height height) 80.0))
111 % #(define page-music-height default-page-music-height )
112 % #(define page-make-stencil default-page-make-stencil )
114 #(define make-header (marked-up-headfoot 'oddHeaderMarkup 'evenHeaderMarkup))
115 #(define make-footer (marked-up-headfoot 'oddFooterMarkup 'evenFooterMarkup))
116 #(set-paper-dimension-variables (current-module))
118 \include "titling-init.ly"
121 bottom-margin = 6 \mm
122 head-separation = 4 \mm
123 foot-separation = 4 \mm
125 first-page-number = #1
126 print-first-page-number =##f