blob: e6192d2c3d9945f4a2a81a33f9c018f90393d14a (
plain)
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
|
\usemodule[present-split]
\setuppapersize[SW][SW]
\setupbodyfont[ymhgd,12pt]
\setupbackgrounds
[page]
[background={numberb}]
\definecolor [ColorOne] [x=E0C2B8]
\definecolor [ColorTwo] [x=ACCDC7]
\defineoverlay[numberb][\useMPgraphic{numberb}]
\startuseMPgraphic{numberb}
StartPage ;
picture Left, Right ;
numeric Shift ; Shift := -TextWidth - BackSpace - RightEdgeDistance/2 ;
fill Page withcolor "ColorOne" ;
fill Page leftenlarged Shift withcolor "ColorTwo" ;
if RealPageNumber > 1 :
Left := Right := textext("\bf\pagenumber") ysized 3cm ;
clip Right to boundingbox Right shifted ( bbwidth(Right)/2,0) ;
clip Left to boundingbox Left shifted (-bbwidth(Left) /2,0) ;
draw Left shifted (-Shift,2.25cm) withcolor "ColorTwo" ;
draw Right shifted (-Shift,2.25cm) withcolor "ColorOne" ;
fi ;
StopPage ;
\stopuseMPgraphic
\setuphead[Topic][number=yes]
\startdocument
[title=Some Quotes,
subtitle=that you probably know by now]
\Topic{Tufte} \input tufte
\Topic{Knuth} \input knuth
\Topic{Reich} \input reich
\Topic{Zapf} \input zapf
\Topic{Materie} \input materie
%Topic{Stork} \input stork
\stopdocument
|
