]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/bookparts.ly
Imported Upstream version 2.16.0
[lilypond.git] / input / regression / bookparts.ly
1 \version "2.16.0"
2
3 \header {
4   texidoc = "A book can be split into several parts with different paper settings,
5 using @code{\\bookpart}.
6
7 Fonts are loaded into the top-level paper.
8 Page labels are also collected into the top-level paper."
9 }
10
11 #(set-default-paper-size "a6")
12
13 #(define-markup-command (roman-page-number layout props) ()
14   (let ((page-number (chain-assoc-get 'page:page-number props)))
15     (interpret-markup layout props (format #f "~@r" page-number))))
16
17 \book {
18   \tocItem \markup "First part"
19   \header { title = "Book with several parts" }
20   \markup { First part }
21   \markup { with default paper settings. }
22
23   \bookpart {
24     \paper {
25       left-margin = 20\mm
26       right-margin = 20\mm
27       line-width = 65\mm
28       evenHeaderMarkup = \markup \fill-line { \roman-page-number "SECOND PART" \null }
29       oddHeaderMarkup = \markup \fill-line { \null "SECOND PART" \roman-page-number }
30     }
31     \tocItem \markup "Second part"
32     \markup \justify { Second part, with different margins and page header. }
33     { c' }
34   }
35
36   \tocItem \markup "Third part"
37   \markup { Third part }
38   \markuplist \table-of-contents
39 }