← Back to branch summary

~ubuntu-branches/ubuntu/precise/lilypond/precise

« back to all changes in this revision

Viewing changes to ly/titling-init.ly

  • Committer: Bazaar Package Importer
  • Author(s): Thomas Bushnell, BSG
  • Date: 2006-12-19 10:18:12 UTC
  • mfrom: (3.1.4 feisty)
  • Revision ID: james.westby@ubuntu.com-20061219101812-7awtjkp0i393wxty
Tags: 2.8.7-3
http://bugs.debian.org/400550
scripts/midi2ly.py: When setting DATADIR, find Lilypond python files
in the @TOPLEVEL_VERSION@ directory, not 'current'.  Patch thanks to
Chris Lamb (chris@chris-lamb.co.uk).  (Closes: #400550)

Show diffs side-by-side

added added

removed removed

Lines of Context:
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