ly/titling-init.ly

   1 \version "2.7.39"
   2
   3 slashSeparator = \markup {
   4   \hcenter
   5   \vcenter \combine
   6   \beam #2.0 #0.5 #0.48
   7   \raise #0.7 \beam #2.0 #0.5 #0.48
   8 }
   9
  10 tagline = \markup {
  11   \with-url
  12
  13   %% todo: lilypond.org/music-engraving
  14   #"http://lilypond.org/web/"
  15   \line {
  16     "Music engraving by LilyPond"
  17     " "
  18     #(ly:export (lilypond-version))
  19
  20     %% 2014 = em dash.
  21     #(ly:export (ly:wide-char->utf-8 #x2014))
  22     "www.lilypond.org"
  23   }
  24 }
  25
  26 #(define (print-all-headers layout props arg)
  27   (if (eq? (ly:output-def-lookup layout 'printallheaders) #t)
  28    (interpret-markup layout props arg)
  29    empty-stencil))
  30
  31 bookTitleMarkup = \markup {
  32   \override #'(baseline-skip . 3.5)
  33   \column {
  34     \fill-line { \fromproperty #'header:dedication }
  35     \override #'(baseline-skip . 3.5)
  36     \column {
  37       \huge \bigger \bold
  38       \fill-line {
  39         \bigger \fromproperty #'header:title
  40       }
  41       \fill-line {
  42         \large \smaller \bold
  43         \bigger \fromproperty #'header:subtitle
  44       }
  45       \fill-line {
  46         \smaller \bold
  47         \fromproperty #'header:subsubtitle
  48       }
  49       \fill-line {
  50         \fromproperty #'header:poet
  51         { \large \bold \fromproperty #'header:instrument }
  52         \fromproperty #'header:composer
  53       }
  54       \fill-line {
  55         \fromproperty #'header:meter
  56         \fromproperty #'header:arranger
  57       }
  58     }
  59   }
  60 }
  61
  62 scoreTitleMarkup = \markup { \column {
  63   \on-the-fly #print-all-headers { \bookTitleMarkup \hspace #1 }
  64   \fill-line {
  65     \fromproperty #'header:piece
  66     \fromproperty #'header:opus
  67   }
  68 }
  69 }
  70
  71 #(define (first-page layout props arg)
  72   (if (= (chain-assoc-get 'page:page-number props -1)
  73          (ly:output-def-lookup layout 'first-page-number))   (interpret-markup layout props arg)
  74    empty-stencil))
  75
  76 #(define (last-page layout props arg)
  77   (if (chain-assoc-get 'page:last? props #f)
  78    (interpret-markup layout props arg)
  79    empty-stencil))
  80
  81 #(define (not-first-page layout props arg)
  82   (if (not (= (chain-assoc-get 'page:page-number props -1)
  83               (ly:output-def-lookup layout 'first-page-number)))
  84    (interpret-markup layout props arg)
  85    empty-stencil))
  86
  87 %% unused
  88 #(define (not-single-page layout props arg)
  89   (if (not (and (= (chain-assoc-get 'page:page-number props -1)
  90                    (ly:output-def-lookup layout 'first-page-number))
  91                (chain-assoc-get 'page:last? props -1)))
  92    (interpret-markup layout props arg)
  93    empty-stencil))
  94
  95 #(define (print-page-number layout props arg)
  96   (if (eq? (ly:output-def-lookup layout 'print-page-number) #t)
  97    (interpret-markup layout props arg)
  98    empty-stencil))
  99
 100 #(define (print-page-number-check-first layout props arg)
 101   (if (or (not (= (chain-assoc-get 'page:page-number props -1)
 102                   (ly:output-def-lookup layout 'first-page-number)))
 103           (eq? (ly:output-def-lookup layout 'printfirst-page-number) #t))
 104    (print-page-number layout props arg)
 105    empty-stencil))
 106
 107 oddHeaderMarkup = \markup
 108 \fill-line {
 109   %% force the header to take some space, otherwise the
 110   %% page layout becomes a complete mess.
 111   " "
 112   \on-the-fly #not-first-page \fromproperty #'header:instrument
 113   \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
 114 }
 115
 116 evenHeaderMarkup = \markup
 117 \fill-line {
 118   \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
 119   \on-the-fly #not-first-page \fromproperty #'header:instrument
 120   " "
 121 }
 122
 123 oddFooterMarkup = \markup {
 124   \column {
 125     \fill-line {
 126       %% Copyright header field only on first page.
 127       \on-the-fly #first-page \fromproperty #'header:copyright
 128     }
 129     \fill-line {
 130       %% Tagline header field only on last page.
 131       \on-the-fly #last-page \fromproperty #'header:tagline
 132     }
 133   }
 134 }
 135