/usr/share/denemo/actions/lilypond/simplified-book-titling.ily is in denemo-data 1.1.0-1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | #(define (string-upper-case str) str)
#(define-markup-command (piece-title layout props title) (markup?)
(interpret-markup layout props
(markup #:column (#:vspace 1
#:fill-line (#:fontsize 4 title)
#:vspace 1))))
#(define-markup-command (when-notproperty layout props symbol markp) (symbol? markup?)
(if (chain-assoc-get symbol props)
(ly:make-stencil '() '(1 . -1) '(1 . -1))
(interpret-markup layout props markp)))
\paper {
bookTitleMarkup = \markup \when-property #'header:title {
{ \postscript #"
gsave
initmatrix
1 setlinewidth 40 40 moveto 517 0 rlineto 0 760 rlineto -517 0 rlineto 0 -760 rlineto stroke
0.5 setlinewidth 45 45 moveto 507 0 rlineto 0 750 rlineto -507 0 rlineto 0 -750 rlineto stroke
grestore" }
\column {
\when-property #'header:poet \vspace #6
\when-notproperty #'header:poet \vspace #16
\fill-line { \fontsize #8 \italic \fromproperty #'header:composer }
\vspace #1
\when-property #'header:poet
\fill-line { \fontsize #8 \italic \fromproperty #'header:poet }
\when-property #'header:poet
\vspace #6
\when-notproperty #'header:poet \vspace #2
\fill-line { \fontsize #10 \fromproperty #'header:title }
\vspace #1
\fill-line { \postscript #"-20 0 moveto 40 0 rlineto stroke" }
\vspace #6
\fill-line { \fontsize #5 \fromproperty #'header:date }
\when-property #'header:date \vspace #6
\when-property #'header:instrumentation
\fill-line { \fontsize #5 \italic \fromproperty #'header:instrumentation }
\when-property #'header:instrumentation \vspace #4
\when-property #'header:incipit
\fill-line { \fontsize #5 \italic \fromproperty #'header:incipit }
\vspace #1
\fill-line {
\when-property #'header:arranger \column {
\vspace #5
\fill-line { \fontsize #3 \fromproperty #'header:arranger }
}
}
}
}
scoreTitleMarkup = \markup \null
oddFooterMarkup = \markup {
\column {
\fill-line {
%% Copyright header field only on last page.
\on-the-fly #last-page { \fromproperty #'header:copyright
\fromproperty #'header:tagline }
}
}
}
evenFooterMarkup = \oddFooterMarkup
}
\pageBreak
|