X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fpaper-defaults-init.ly;h=a106ba9a10b904773e3797da74e7863e489671a6;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=07ab1ae02fbc315e8a5266ac9ef84e7560157c39;hpb=2f38710a2b40a24977441aa7faa05b6ab132f3cf;p=lilypond.git diff --git a/ly/paper-defaults-init.ly b/ly/paper-defaults-init.ly index 07ab1ae02f..a106ba9a10 100644 --- a/ly/paper-defaults-init.ly +++ b/ly/paper-defaults-init.ly @@ -1,110 +1,175 @@ -\version "2.12.0" +%%%% This file is part of LilyPond, the GNU music typesetter. +%%%% +%%%% Copyright (C) 2004--2015 Han-Wen Nienhuys +%%%% Jan Nieuwenhuizen +%%%% Neil Puttock +%%%% +%%%% LilyPond is free software: you can redistribute it and/or modify +%%%% it under the terms of the GNU General Public License as published by +%%%% the Free Software Foundation, either version 3 of the License, or +%%%% (at your option) any later version. +%%%% +%%%% LilyPond is distributed in the hope that it will be useful, +%%%% but WITHOUT ANY WARRANTY; without even the implied warranty of +%%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +%%%% GNU General Public License for more details. +%%%% +%%%% You should have received a copy of the GNU General Public License +%%%% along with LilyPond. If not, see . + +\version "2.16.0" \paper { - - %%% WARNING - %%% - %%% If you add any new dimensions, don't forget to update - %%% the dimension-variables variable. See paper.scm. - - unit = #(ly:unit) - mm = 1.0 - in = 25.4 - pt = #(/ in 72.27) - cm = #(* 10 mm) - - print-page-number = ##t - - %% - %% 20pt staff, 5 pt = 1.75 mm - %% - - output-scale = #1.7573 - - #(define-public book-title (marked-up-title 'bookTitleMarkup)) - #(define-public score-title (marked-up-title 'scoreTitleMarkup)) - #(define-public force-eps-font-include #f) - - %% - %% ugh. hard coded? - %% - - #(layout-set-absolute-staff-size (* 20.0 pt)) - - - #(define-public score-title-properties - '((is-title . #t) - (is-book-title . #f) - )) - #(define-public book-title-properties - '((is-title . #t) - (is-book-title . #t) - )) - - %% Note: these are not scaled; they are in staff-spaces. - between-system-spacing = #'((space . 12) (minimum-distance . 8) (padding . 1)) - after-title-spacing = #'((space . 2) (padding . 0.5)) - before-title-spacing = #'((space . 5) (padding . 0.5)) - between-title-spacing = #'((space . 1) (padding . 0.5)) - first-system-spacing = #'((space . 1) (padding . 0) (min-distance . 0)) - first-system-title-spacing = #'((space . 1) (padding . 1) (min-distance . 0)) - last-system-spacing = #'((space . 1) (padding . 0) (min-distance . 0) (stretchability . 5)) - - ragged-bottom = ##f - - %% - %% looks best for shorter scores. - %% - ragged-last-bottom= ##t - - %% - %% settings for the page breaker - %% - blank-last-page-force = 0 - blank-after-score-page-force = 2 - blank-page-force = 5 - - %% - %% To limit space between systems on a page with a lot of space left - %% - page-limit-inter-system-space = ##f - page-limit-inter-system-space-factor = 1.4 - - #(define font-defaults - '((font-encoding . fetaMusic))) - - %% - %% the font encoding `latin1' is a dummy value for Pango fonts - %% - #(define text-font-defaults - `((font-encoding . latin1) - (baseline-skip . 3) - (word-space . 0.6))) - - #(define page-breaking ly:optimal-breaking) - - #(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)) - #(set-paper-dimension-variables (current-module)) - - \include "titling-init.ly" - - top-margin = 5 \mm - bottom-margin = 6 \mm - head-separation = 4 \mm - foot-separation = 4 \mm - - first-page-number = #1 - print-first-page-number =##f - } + #(set-paper-dimension-variables (current-module)) + + %%% WARNING + %%% + %%% If you add any new dimensions, don't forget to update + %%% the dimension-variables variable. See paper.scm. + + unit = #(ly:unit) + mm = 1.0 + in = 25.4 + pt = #(/ in 72.27) + cm = #(* 10 mm) + + % 20pt staff, 5 pt = 1.75 mm + output-scale = #1.7573 + + %% ugh. hard coded? + #(layout-set-absolute-staff-size (* 20.0 pt)) + + + %% Automatic scaling to paper size: + %% + %% Margins, indents, and offsets marked "scaled to paper size" + %% below apply to the default paper format given by + %% (ly:get-option 'paper-size) and are scaled accordingly for + %% other formats. + + + %% + %% Fixed vertical spacing + %% + top-margin-default = 5\mm % scaled to paper-size + bottom-margin-default = 6\mm % scaled to paper-size + ragged-bottom = ##f + ragged-last-bottom = ##t % best for shorter scores + + %% + %% Flexible vertical spacing + %% + %% Note: these are not scaled; they are in staff-spaces. + system-system-spacing = #'((basic-distance . 12) + (minimum-distance . 8) + (padding . 1) + (stretchability . 60)) + score-system-spacing = #'((basic-distance . 14) + (minimum-distance . 8) + (padding . 1) + (stretchability . 120)) + markup-system-spacing = #'((basic-distance . 5) + (padding . 0.5) + (stretchability . 30)) + score-markup-spacing = #'((basic-distance . 12) + (padding . 0.5) + (stretchability . 60)) + markup-markup-spacing = #'((basic-distance . 1) + (padding . 0.5)) + top-system-spacing = #'((basic-distance . 1) + (minimum-distance . 0) + (padding . 1)) + top-markup-spacing = #'((basic-distance . 0) + (minimum-distance . 0) + (padding . 1)) + last-bottom-spacing = #'((basic-distance . 1) + (minimum-distance . 0) + (padding . 1) + (stretchability . 30)) + + + %% + %% Widths and (horizontal) margins + %% + left-margin-default = 10\mm % scaled to paper-size + right-margin-default = 10\mm % scaled to paper-size + check-consistency = ##t + + + %% + %% Two-sided mode + %% + two-sided = ##f + inner-margin-default = 10\mm % scaled to paper-size + outer-margin-default = 20\mm % scaled to paper-size + binding-offset-default = 0\mm % scaled to paper-size + + + %% + %% Indents + %% + indent-default = 15\mm % scaled to paper-size + short-indent-default = 0\mm % scaled to paper-size + + + %% + %% Page breaking + %% + blank-after-score-page-penalty = 2 + blank-last-page-penalty = 0 + blank-page-penalty = 5 + page-breaking = #ly:optimal-breaking + + + %% + %% Footnotes + %% + footnote-separator-markup = \markup \fill-line { \override #'(span-factor . 1/2) \draw-hline } + footnote-padding = 0.5\mm + footnote-footer-padding = 0.5\mm + footnote-number-raise = 0.5\mm + footnote-numbering-function = #numbered-footnotes + reset-footnotes-on-new-page = ##t + + %% + %% Page numbering + %% + first-page-number = #1 + print-first-page-number = ##f + print-page-number = ##t + page-number-type = #'arabic + + %% + %% Headers, footers, and titles + %% + #(define make-header (marked-up-headfoot 'oddHeaderMarkup 'evenHeaderMarkup)) + #(define make-footer (marked-up-headfoot 'oddFooterMarkup 'evenFooterMarkup)) + + #(define-public book-title (marked-up-title 'bookTitleMarkup)) + #(define-public score-title (marked-up-title 'scoreTitleMarkup)) + #(define-public score-title-properties + '((is-title . #t) + (is-book-title . #f))) + #(define-public book-title-properties + '((is-title . #t) + (is-book-title . #t))) + + \include "titling-init.ly" + + + %% + %% Fonts + %% + #(define font-defaults + '((font-family . feta) (font-encoding . fetaMusic))) + + % `latin1' is a dummy value for Pango fonts + #(define text-font-defaults + `((font-encoding . latin1) + (baseline-skip . 3) + (replacement-alist . ,default-string-replacement-alist) + (word-space . 0.6))) + + \include "text-replacements.ly" + +}