ly/paper-defaults-init.ly

   1 \version "2.12.0"
   2 #(use-modules (scm layout-page-layout))
   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     #(define-public force-eps-font-include #f)
  27
  28     %%
  29     %% ugh. hard coded?
  30     %%
  31
  32     #(layout-set-absolute-staff-size (* 20.0 pt))
  33
  34
  35     #(define-public score-title-properties
  36       '((is-title . #t)
  37         (is-book-title . #f)
  38         ))
  39     #(define-public book-title-properties
  40       '((is-title . #t)
  41         (is-book-title . #t)
  42         ))
  43
  44     %%
  45     %% this dimension includes the extent of the
  46     %% staves themselves.
  47     %%
  48     between-system-space = #(* 20 mm)
  49
  50
  51     %%
  52     %% fixed space between systems.
  53     %%
  54     between-system-padding = #(* 4 mm)
  55
  56     after-title-space = 5 \mm
  57     before-title-space = 10 \mm
  58     between-title-space = 2 \mm
  59
  60
  61     %%
  62     %% Small staves are aligned so they come out on the same place on
  63     %% across different pages.
  64     %%
  65     page-top-space = #(* 12 mm)
  66
  67
  68     ragged-bottom = ##f
  69
  70     %%
  71     %% looks best for shorter scores.
  72     %%
  73     ragged-last-bottom= ##t
  74
  75     %%
  76     %% settings for the page breaker
  77     %%
  78     blank-last-page-force = 0
  79     blank-after-score-page-force = 2
  80     blank-page-force = 5
  81
  82     %%
  83     %% To limit space between systems on a page with a lot of space left
  84     %%
  85     page-limit-inter-system-space = ##f
  86     page-limit-inter-system-space-factor = 1.4
  87
  88     #(define font-defaults
  89       '((font-encoding . fetaMusic)))
  90
  91     %%
  92     %% the font encoding `latin1' is a dummy value for Pango fonts
  93     %%
  94     #(define text-font-defaults
  95       `((font-encoding . latin1)
  96         (baseline-skip . 3)
  97         (word-space . 0.6)))
  98
  99     #(define page-breaking ly:optimal-breaking)
 100     #(define page-breaking-wrapper page-breaking-wrapper)
 101     #(define page-post-process post-process-pages)
 102
 103     #(define write-page-layout (ly:get-option 'dump-tweaks))
 104     #(define system-maximum-stretch-procedure
 105        (lambda (line)
 106          (if (stretchable-line? line)
 107              (let ((height (line-height line)))
 108                (/ (* height height) 80.0))
 109              0.0)))
 110
 111 %    #(define page-music-height default-page-music-height )
 112 %    #(define page-make-stencil default-page-make-stencil )
 113
 114     #(define make-header (marked-up-headfoot 'oddHeaderMarkup 'evenHeaderMarkup))
 115     #(define make-footer (marked-up-headfoot 'oddFooterMarkup 'evenFooterMarkup))
 116     #(set-paper-dimension-variables (current-module))
 117
 118     \include "titling-init.ly"
 119
 120     top-margin = 5 \mm
 121     bottom-margin = 6 \mm
 122     head-separation = 4 \mm
 123     foot-separation = 4 \mm
 124
 125     first-page-number = #1
 126     print-first-page-number =##f
 127   }