1 %%%% This file is part of LilyPond, the GNU music typesetter.
3 %%%% Copyright (C) 2004--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
4 %%%% Jan Nieuwenhuizen <janneke@gnu.org>
5 %%%% Neil Puttock <n.puttock@gmail.com>
7 %%%% LilyPond is free software: you can redistribute it and/or modify
8 %%%% it under the terms of the GNU General Public License as published by
9 %%%% the Free Software Foundation, either version 3 of the License, or
10 %%%% (at your option) any later version.
12 %%%% LilyPond is distributed in the hope that it will be useful,
13 %%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
14 %%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 %%%% GNU General Public License for more details.
17 %%%% You should have received a copy of the GNU General Public License
18 %%%% along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
23 #(set-paper-dimension-variables
(current-module
))
27 %%% If you add any new dimensions, don't forget to update
28 %%% the dimension-variables variable. See paper.scm.
36 % 20pt staff, 5 pt = 1.75 mm
37 output-scale
= #1.7573
40 #(layout-set-absolute-staff-size
(* 20.0 pt
))
43 %% Automatic scaling to paper size:
45 %% Margins, indents, and offsets marked "scaled to paper size"
46 %% below apply to the default paper format given by
47 %% (ly:get-option 'paper-size) and are scaled accordingly for
52 %% Fixed vertical spacing
54 top-margin-default
= 5\mm % scaled to paper-size
55 bottom-margin-default
= 6\mm % scaled to paper-size
57 ragged-last-bottom
= ##t
% best for shorter scores
60 %% Flexible vertical spacing
62 %% Note: these are not scaled; they are in staff-spaces.
63 system-system-spacing
= #'((basic-distance
. 12) (minimum-distance
. 8) (padding
. 1) (stretchability
. 60))
64 score-system-spacing
= #'((basic-distance
. 14) (minimum-distance
. 8) (padding
. 1) (stretchability
. 120))
65 markup-system-spacing
= #'((basic-distance
. 5) (padding
. 0.5) (stretchability
. 30))
66 score-markup-spacing
= #'((basic-distance
. 12) (padding
. 0.5) (stretchability
. 60))
67 markup-markup-spacing
= #'((basic-distance
. 1) (padding
. 0.5))
68 top-system-spacing
= #'((basic-distance
. 1) (minimum-distance
. 0) (padding
. 1))
69 top-markup-spacing
= #'((basic-distance
. 0) (minimum-distance
. 0) (padding
. 1))
70 last-bottom-spacing
= #'((basic-distance
. 1) (minimum-distance
. 0) (padding
. 1) (stretchability
. 30))
74 %% Widths and (horizontal) margins
76 left-margin-default
= 10\mm % scaled to paper-size
77 right-margin-default
= 10\mm % scaled to paper-size
78 check-consistency
= ##t
85 inner-margin-default
= 10\mm % scaled to paper-size
86 outer-margin-default
= 20\mm % scaled to paper-size
87 binding-offset-default
= 0\mm % scaled to paper-size
93 indent-default
= 15\mm % scaled to paper-size
94 short-indent-default
= 0\mm % scaled to paper-size
100 blank-after-score-page-force
= 2
101 blank-last-page-force
= 0
103 page-breaking
= #ly
:optimal-breaking
109 footnote-separator-markup
= \markup { \fill-line
\override #`
(span-factor
. 1/2) { \draw-hline
} }
110 footnote-padding
= 0.5\mm
116 first-page-number
= #1
117 print-first-page-number
= ##f
118 print-page-number
= ##t
121 %% Headers, footers, and titles
123 #(define make-header
(marked-up-headfoot
'oddHeaderMarkup
'evenHeaderMarkup
))
124 #(define make-footer
(marked-up-headfoot
'oddFooterMarkup
'evenFooterMarkup
))
126 #(define-public book-title
(marked-up-title
'bookTitleMarkup
))
127 #(define-public score-title
(marked-up-title
'scoreTitleMarkup
))
128 #(define-public score-title-properties
130 (is-book-title
. #f)))
131 #(define-public book-title-properties
133 (is-book-title
. #t
)))
135 \include "titling-init.ly"
141 #(define font-defaults
142 '((font-family
. feta
) (font-encoding
. fetaMusic
)))
144 % `latin1' is a dummy value for Pango fonts
145 #(define text-font-defaults
146 `
((font-encoding
. latin
1)