X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fpaper-defaults-init.ly;h=ef7419312271c1de3f975c10be5d375c6889ab56;hb=0b544cfb7332615ef809b71b57ab656741311ae1;hp=cac75ecb73330db4b7195c6342816c9899bd5fcf;hpb=7f3f0083f89d87c5ed0422858e9648fc759e98a4;p=lilypond.git diff --git a/ly/paper-defaults-init.ly b/ly/paper-defaults-init.ly index cac75ecb73..ef74193122 100644 --- a/ly/paper-defaults-init.ly +++ b/ly/paper-defaults-init.ly @@ -1,127 +1,156 @@ -\version "2.11.11" -#(use-modules (scm layout-page-layout)) -\paper { +%%%% This file is part of LilyPond, the GNU music typesetter. +%%%% +%%%% Copyright (C) 2004--2014 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" - %%% 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) - )) - - %% - %% this dimension includes the extent of the - %% staves themselves. - %% - between-system-space = #(* 20 mm) - - - %% - %% fixed space between systems. - %% - between-system-padding = #(* 4 mm) - - after-title-space = 5 \mm - before-title-space = 10 \mm - between-title-space = 2 \mm - - - %% - %% Small staves are aligned so they come out on the same place on - %% across different pages. - %% - page-top-space = #(* 12 mm) - - - 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 page-breaking-wrapper page-breaking-wrapper) - #(define page-post-process post-process-pages) - - #(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 - } +\paper { + #(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 + + %% + %% 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" + +}