]> git.donarmstrong.com Git - lilypond.git/blobdiff - ly/paper-defaults-init.ly
Run grand-replace (issue 3765)
[lilypond.git] / ly / paper-defaults-init.ly
index cac75ecb73330db4b7195c6342816c9899bd5fcf..ef7419312271c1de3f975c10be5d375c6889ab56 100644 (file)
-\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 <hanwen@xs4all.nl>
+%%%%                          Jan Nieuwenhuizen <janneke@gnu.org>
+%%%%                          Neil Puttock <n.puttock@gmail.com>
+%%%%
+%%%% 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 <http://www.gnu.org/licenses/>.
+
+\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"
+
+}