1
2
3
4
5
6
7\startenvironment manualsexplainingcover
8
9\startsetups document:abstract
10 \framed [
11 foregroundstyle=bold,
12 foregroundcolor=white,
13 width=7.5cm,
14 align={normal,tolerant},
15 frame=off,
16 strut=no,
17 ] {
18 \getbuffer[abstract]
19 }
20\stopsetups
21
22\startMPinclusions
23
24 def DrawCoverPage (expr what) =
25
26 numeric variant ; variant := 1 ;
27
28 StartCover ;
29
30 save width, height, size, anchor, offset, colors ;
31
32 numeric width, height, size ; pair anchor, offset ; string colors[] ;
33
34 colors[1] := "\documentvariable{cover:color:1}" ;
35 colors[2] := "\documentvariable{cover:color:2}" ;
36 colors[3] := "\documentvariable{cover:color:3}" ;
37 colors[4] := "\documentvariable{cover:color:4}" ;
38 colors[5] := "\documentvariable{cover:color:5}" ;
39
40 fill CoverPage enlarged PaperBleed withcolor colors[5] ;
41
42 fill Spine bottomenlarged -.5PaperHeight withcolor colors[3] ;
43 fill Spine topenlarged -.5PaperHeight withcolor colors[2] ;
44
45 width := FrontPageWidth ;
46 height := FrontPageHeight ;
47 size := 4 width 3 ;
48 offset := (-1cm,1cm) ;
49 anchor := .5[lrcorner CoverPage,urcorner CoverPage] ;
50
51 fill anchored.llft(lltriangle scaled size, urcorner FrontPage) withcolor colors[1] ;
52 fill anchored.urt (urtriangle scaled size, llcorner FrontPage) withcolor colors[2] ;
53 fill anchored.lrt (lrtriangle scaled size, ulcorner FrontPage) withcolor colors[3] ;
54 fill anchored.ulft(ultriangle scaled size, lrcorner FrontPage) withcolor colors[4] ;
55
56 fill anchored.lrt (lrtriangle scaled size, ulcorner BackPage) withcolor colors[1] ;
57 fill anchored.llft(lltriangle scaled size, urcorner BackPage) withcolor colors[3] ;
58 fill anchored.ulft(ultriangle scaled size, lrcorner BackPage) withcolor colors[2] ;
59 fill anchored.urt (urtriangle scaled size, llcorner BackPage) withcolor colors[4] ;
60
61 draw thetextext.llft(
62 textext("\bf \documentvariable{title}\hskip-.1em")
63 rotated 45 ysized .350height,
64 anchor shifted (6offsetoffset)
65 ) withcolor white ;
66 draw thetextext.llft(
67 textext("\bf \documentvariable{subtitle}")
68 rotated 45 ysized .275height,
69 anchor shifted (5offsetoffset)
70 ) withcolor white ;
71 draw thetextext.llft(
72 textext("\bf \documentvariable{author}")
73 rotated 45 ysized .200height,
74 anchor shifted (2offsetoffset)
75 ) withcolor white ;
76 draw thetextext.llft(
77 textext("\bf \documentvariable{affiliation}")
78 rotated 45 ysized .200height,
79 anchor shifted (1offsetoffset)
80 ) withcolor white ;
81
82
83
84 if (what = "back") or (what = "cover") :
85
86 draw
87 thetextext.top(
88 textext("\bf \documentvariable{comment}")
89 xsized 4cm,
90 lrcorner Page shifted (-3cm,1cm)
91 ) withcolor white ;
92
93 fi ;
94
95
96
97 width := BackPageWidth ;
98
99 if (what = "back") or (what = "cover") :
100
101 draw thetextext(
102 textext("\bf\setups[document:abstract]")
103 xsized .65width rotated 45,
104 center BackPage
105 ) withcolor white ;
106
107 fi ;
108
109 if what = "cover" :
110
111 draw thetextext.bot(
112 textext("\bf \documentvariable{title}\hskip-.1em")
113 rotated 90 xsized .8SpineWidth,
114 .5[ulcorner Spine,urcorner Spine] shifted (0,-1cm)
115 ) withcolor white ;
116
117 draw thetextext.top(
118 textext("\bf \documentvariable{author}")
119 rotated 90 xsized .8SpineWidth,
120 .5[llcorner Spine,lrcorner Spine] shifted (0,1cm)
121 ) withcolor white ;
122
123 fi ;
124
125 StopCover ;
126
127 if what = "front" :
128 clip currentpicture to FrontPage ;
129 elseif what = "back" :
130 clip currentpicture to BackPage ;
131 else :
132 drawboundary CoverPage ;
133 fi ;
134
135 enddef ;
136
137\stopMPinclusions
138
139\startsetups document:start
140
141
142
143 \setupbackgrounds[page][background=]
144
145 \doifmodeelse {simple} {
146
147 \startMPpage
148 DrawCoverPage("front") ;
149 \stopMPpage
150
151 } {
152
153 \startMPpage
154 DrawCoverPage("cover") ;
155 \stopMPpage
156
157 }
158
159 \page[dummy]
160
161 \setupbackgrounds[page][background=page]
162
163 \resetuserpagenumber
164
165
166
167\stopsetups
168
169\startsetups document:stop
170
171 \doifmodeelse {simple} {
172
173
174
175 \page
176
177 \setuppagenumbering[page=]
178
179 \setupbackgrounds[page][background=]
180
181 \page[empty,left]
182
183 \setupmakeup[doublesided=no,page=no]
184
185 \startMPpage
186 DrawCoverPage("back") ;
187 \stopMPpage
188
189
190
191 } {
192
193
194
195 }
196
197\stopsetups
198
199\stopenvironment
200 |