ly/paper-defaults-init.ly

   1 \version "2.12.0"
   2
   3 \paper {
   4
   5     %%% WARNING
   6     %%%
   7     %%% If you add any new dimensions, don't forget to update
   8     %%% the dimension-variables variable.  See paper.scm.
   9
  10     unit = #(ly:unit)
  11     mm = 1.0
  12     in = 25.4
  13     pt = #(/ in 72.27)
  14     cm = #(* 10 mm)
  15
  16     print-page-number = ##t
  17
  18     %%
  19     %% 20pt staff, 5 pt = 1.75 mm
  20     %%
  21
  22     output-scale = #1.7573
  23
  24     #(define-public book-title (marked-up-title 'bookTitleMarkup))
  25     #(define-public score-title (marked-up-title 'scoreTitleMarkup))
  26
  27     %%
  28     %% ugh. hard coded?
  29     %%
  30
  31     #(layout-set-absolute-staff-size (* 20.0 pt))
  32
  33
  34     #(define-public score-title-properties
  35       '((is-title . #t)
  36         (is-book-title . #f)
  37         ))
  38     #(define-public book-title-properties
  39       '((is-title . #t)
  40         (is-book-title . #t)
  41         ))
  42
  43     %% Note: these are not scaled; they are in staff-spaces.
  44     between-system-spacing = #'((space . 12) (minimum-distance . 8) (padding . 1))
  45     between-scores-system-spacing = #'((space . 14) (minimum-distance . 8) (padding . 1))
  46     after-title-spacing = #'((space . 2) (padding . 0.5))
  47     before-title-spacing = #'((space . 5) (padding . 0.5))
  48     between-title-spacing = #'((space . 1) (padding . 0.5))
  49     top-system-spacing = #'((space . 1) (padding . 1) (min-distance . 0))
  50     top-title-spacing = #'((space . 1) (padding . 1) (min-distance . 0))
  51     bottom-system-spacing = #'((space . 1) (padding . 1) (min-distance . 0) (stretchability . 5))
  52
  53     ragged-bottom = ##f
  54
  55     %%
  56     %% looks best for shorter scores.
  57     %%
  58     ragged-last-bottom= ##t
  59
  60     %%
  61     %% settings for the page breaker
  62     %%
  63     blank-last-page-force = 0
  64     blank-after-score-page-force = 2
  65     blank-page-force = 5
  66
  67     %%
  68     %% To limit space between systems on a page with a lot of space left
  69     %%
  70     page-limit-inter-system-space = ##f
  71     page-limit-inter-system-space-factor = 1.4
  72
  73     #(define font-defaults
  74       '((font-encoding . fetaMusic)))
  75
  76     %%
  77     %% the font encoding `latin1' is a dummy value for Pango fonts
  78     %%
  79     #(define text-font-defaults
  80       `((font-encoding . latin1)
  81         (baseline-skip . 3)
  82         (word-space . 0.6)))
  83
  84     #(define page-breaking ly:optimal-breaking)
  85
  86     #(define write-page-layout (ly:get-option 'dump-tweaks))
  87     #(define system-maximum-stretch-procedure
  88        (lambda (line)
  89          (if (stretchable-line? line)
  90              (let ((height (line-height line)))
  91                (/ (* height height) 80.0))
  92              0.0)))
  93
  94 %    #(define page-music-height default-page-music-height )
  95 %    #(define page-make-stencil default-page-make-stencil )
  96
  97     #(define make-header (marked-up-headfoot 'oddHeaderMarkup 'evenHeaderMarkup))
  98     #(define make-footer (marked-up-headfoot 'oddFooterMarkup 'evenFooterMarkup))
  99     #(set-paper-dimension-variables (current-module))
 100
 101     \include "titling-init.ly"
 102
 103     top-margin = 5 \mm
 104     bottom-margin = 6 \mm
 105     head-separation = 4 \mm
 106     foot-separation = 4 \mm
 107
 108     first-page-number = #1
 109     print-first-page-number =##f
 110   }