ly/paper-defaults.ly

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