ly/paper-defaults.ly

   1 \version "2.4.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     %% This is weird; `everyone' uses LATIN1?  How does I select TeX
  17     %% input encoding in EMACS? -- jcn
  18     %%%%inputencoding = #"TeX"
  19     inputencoding = #"latin1"
  20     printpagenumber = ##t
  21
  22     %%
  23     %% 20pt staff, 5 pt = 1.75 mm
  24     %%
  25
  26     outputscale = #1.7573
  27
  28     #(define-public score-title default-score-title)
  29 %    #(define-public user-title default-user-title)
  30 %    #(define-public book-title default-book-title)
  31     #(define-public book-title (marked-up-title 'bookTitleMarkup))
  32     #(define-public score-title (marked-up-title 'scoreTitleMarkup))
  33
  34     %%
  35     %% ugh. hard coded?
  36     %%
  37
  38     #(layout-set-staff-size (* 20.0 pt))
  39
  40     %%
  41     %% this dimension includes the extent of the
  42     %% staves themselves.
  43     %%
  44     betweensystemspace = #(* 20 mm)
  45
  46     %%
  47     %% fixed space between systems.
  48     %%
  49     betweensystempadding = #(* 4 mm)
  50
  51     aftertitlespace = 5 \mm
  52     beforetitlespace = 10 \mm
  53     betweentitlespace = 2 \mm
  54
  55
  56     raggedbottom = ##f
  57
  58     %%
  59     %% looks best for shorter scores.
  60     %%
  61     raggedlastbottom= ##t
  62
  63     %% ugh.  Should use /etc/papersize and set explicitely for
  64     %% documentation.
  65     papersizename = "a4"
  66
  67     #(define font-defaults
  68       '((font-encoding . fetaMusic)))
  69
  70     %% use lmodern in latin1 (cork) flavour if EC is not available.
  71     #(define text-font-defaults
  72       `((font-encoding
  73          . ,(if (and (not (ly:kpathsea-find-file "ecrm10.pfa"))
  74                  (ly:kpathsea-find-file "cork-lm.enc")) 'cork-lm 'Extended-TeX-Font-Encoding---Latin))
  75         (baseline-skip . 2)
  76         (word-space . 0.6)))
  77
  78     #(define page-breaking ly:optimal-page-breaks)
  79     #(define page-music-height default-page-music-height )
  80     #(define page-make-stencil default-page-make-stencil )
  81
  82     #(define make-header (marked-up-headfoot 'oddHeaderMarkup 'evenHeaderMarkup))
  83     #(define make-footer (marked-up-headfoot 'oddFooterMarkup 'evenFooterMarkup))
  84     #(set-paper-dimension-variables (current-module))
  85
  86     \include "titling-init.ly"
  87 }