]> git.donarmstrong.com Git - lilypond.git/blobdiff - ly/paper-defaults-init.ly
Merge branch 'lilypond/translation' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond
[lilypond.git] / ly / paper-defaults-init.ly
index cac75ecb73330db4b7195c6342816c9899bd5fcf..1ee92ed19736f2c35e5a4c73eec4c99772358a6f 100644 (file)
-\version "2.11.11"
-#(use-modules (scm layout-page-layout))
-\paper {
+\version "2.12.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 {
+  %%% 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))
+
+  %%
+  %% 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))
+  between-scores-system-spacing = #'((space . 14) (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))
+  top-system-spacing = #'((space . 1) (padding . 1) (min-distance . 0))
+  top-title-spacing = #'((space . 1) (padding . 1) (min-distance . 0))
+  bottom-system-spacing = #'((space . 1) (padding . 1) (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 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
+}