]> git.donarmstrong.com Git - lilypond.git/blob - input/test/title-markup.ly
* lily/paper-outputter.cc (output_expr):
[lilypond.git] / input / test / title-markup.ly
1 \version "2.1.29"
2 %{
3    \markup in titles is WIP.
4
5    only available when compiled with PAGE_LAYOUT is #define'd
6    see include/paper-book.hh
7
8 %}
9
10 sizeTest = \markup {
11         \column <
12             { \normalsize "normalsize"
13               \hspace #5
14               \smaller "smaller"
15               \hspace #5
16               \smaller \smaller "smaller"
17               \hspace #5
18               \smaller \smaller \smaller "smaller"
19             }
20             " " 
21             { \normalsize "normalsize"
22               \hspace #5
23               \bigger "bigger"
24               \hspace #5
25               \bigger \bigger "bigger"
26               \hspace #5
27               \bigger \bigger \bigger "bigger"
28             }
29        >
30 }
31
32 spaceTest = \markup { "two space chars" }
33 \header {
34     texidoc = "Make titles using markup (WIP)."
35     
36     %dedication = "För my dør Lily"
37     dedication = "For my öòóôõø so dear Lily"
38     title = "Title"
39     subtitle = "(and (the) subtitle)"
40     subsubtitle = "Sub sub title"
41     poet = "Poet"
42     composer = "Composer"
43     texttranslator = "Text Translator"
44     opus = "opus 0"
45     meter = "Meter (huh?)"
46     arranger = "Arranger"
47     instrument = "Instrument"
48     piece = "piece"
49
50 %{
51     makeConditionalTitle = \markup {
52         \column <
53             #(if (defined? 'title)
54              (markup* #:fill-line (#:huge #:bigger #:bigger #:bold title))
55              (markup* ""))
56             #(if (defined? 'subtitle)
57              (markup* #:fill-line ( #:large #:bold subtitle))
58              (markup* ""))
59             #(if (defined? 'subsubtitle)
60              (markup* #:fill-line (subsubtitle))
61              (markup* ""))
62          >
63     }
64 %}
65     bookTitle = \markup {
66         \column <
67             %\fill-line #linewidth < \huge \bigger \bold \title >
68             \override #'(baseline-skip . 4) \column <
69                 \fill-line < \dedication >
70                 \fill-line < \huge\bigger\bigger\bigger\bigger \bold \title >
71                 \override #'(baseline-skip . 3) \column <
72                     \fill-line < \large\bigger\bigger \bold \subtitle >
73                     \fill-line < \bigger\bigger \bold \subsubtitle >
74                 >
75                 \override #'(baseline-skip . 5) \column <
76                 " "
77                 >
78                 \override #'(baseline-skip . 2.5) \column <
79                     \fill-line < \bigger \poet
80                                  \large\bigger \caps \composer >
81                     \fill-line < \bigger \texttranslator
82                                  \bigger \opus >
83                     \fill-line < \bigger \meter
84                                  \bigger \arranger >
85                     " "
86                     \fill-line < \large\bigger \instrument >
87                     " "
88                     \fill-line < \large\bigger \caps \piece  " ">
89                 >
90             >
91         >    
92     }
93
94 %{
95      foe = \sizeTest
96      baar = \spaceTest
97 %}
98 }
99
100 \score {
101     \context Staff \notes \relative c' {
102         c2-\sizeTest c2-\spaceTest
103         % \break c2 c2
104     }
105 }
106
107 \header {
108     scoreTitle = \markup { "Tweetje" }
109 }
110
111 \score {
112     \context Staff \notes \relative c' {
113         c2-\sizeTest c2-\spaceTest
114         % \break c2 c2
115     }
116 }