Midi: always set instrument for new track. Unconfuses some midi players.
[lilypond/patrick.git] / ly / paper-defaults-init.ly
blob61750d2159db7a001024b406ea67db996ebb12c1
1 %%%% This file is part of LilyPond, the GNU music typesetter.
2 %%%%
3 %%%% Copyright (C) 2004--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
4 %%%% Jan Nieuwenhuizen <janneke@gnu.org>
5 %%%% Neil Puttock <n.puttock@gmail.com>
6 %%%%
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.
11 %%%%
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.
16 %%%%
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/>.
20 \version "2.13.42"
22 \paper {
23 #(set-paper-dimension-variables (current-module))
25 %%% WARNING
26 %%%
27 %%% If you add any new dimensions, don't forget to update
28 %%% the dimension-variables variable. See paper.scm.
30 unit = #(ly:unit)
31 mm = 1.0
32 in = 25.4
33 pt = #(/ in 72.27)
34 cm = #(* 10 mm)
36 % 20pt staff, 5 pt = 1.75 mm
37 output-scale = #1.7573
39 %% ugh. hard coded?
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
48 %% other formats.
52 %% Fixed vertical spacing
54 top-margin-default = 5\mm % scaled to paper-size
55 bottom-margin-default = 6\mm % scaled to paper-size
56 ragged-bottom = ##f
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
82 %% Two-sided mode
84 two-sided = ##f
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
91 %% Indents
93 indent-default = 15\mm % scaled to paper-size
94 short-indent-default = 0\mm % scaled to paper-size
98 %% Page breaking
100 blank-after-score-page-force = 2
101 blank-last-page-force = 0
102 blank-page-force = 5
103 page-breaking = #ly:optimal-breaking
107 %% Footnotes
109 footnote-separator-markup = \markup { \fill-line \override #`(span-factor . 1/2) { \draw-hline } }
110 footnote-padding = 0.5\mm
114 %% Page numbering
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
129 '((is-title . #t)
130 (is-book-title . #f)))
131 #(define-public book-title-properties
132 '((is-title . #t)
133 (is-book-title . #t)))
135 \include "titling-init.ly"
139 %% Fonts
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 . latin1)
147 (baseline-skip . 3)
148 (word-space . 0.6)))