1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18\startmodule[presentsplit]
19
20\startmode[asintended,atpragma] \setupbodyfont[lucidaot] \stopmode
21
22\setupbodyfont[14.4pt]
23
24
25
26\setuptolerance
27 [verytolerant,stretch]
28
29
30
31\setuppapersize
32 [S6][S6]
33
34\setuplayout
35 [width=fit,
36 rightedge=3cm,
37 margin=0pt,
38 rightedgedistance=2cm,
39 height=middle,
40 header=0pt,
41 footer=0pt,
42 topspace=1cm,
43 backspace=1cm]
44
45
46
47\definecolor [ColorOne] [r=.6,g=.4,b=.4]
48\definecolor [ColorTwo] [r=.4,g=.6,b=.6]
49
50
51
52
53
54
55
56\setupbackgrounds
57 [page]
58 [background={number}]
59
60\defineoverlay[number][\useMPgraphic{number}]
61
62\startuseMPgraphic{number}
63 StartPage ;
64 picture Left, Right ;
65 numeric Shift ; Shift := TextWidth BackSpace RightEdgeDistance2 ;
66 fill Page withcolor "ColorOne" ;
67 fill Page leftenlarged Shift withcolor "ColorTwo" ;
68 if RealPageNumber > 1 :
69 Left := Right := textext("\bf\folio") ysized 3cm ;
70 clip Right to boundingbox Right shifted ( bbwidth(Right)2,0) ;
71 clip Left to boundingbox Left shifted (bbwidth(Left) 2,0) ;
72 draw Left shifted (Shift,2.25cm) withcolor "ColorTwo" ;
73 draw Right shifted (Shift,2.25cm) withcolor "ColorOne" ;
74 fi ;
75 StopPage ;
76\stopuseMPgraphic
77
78
79
80
81
82
83
84
85\defineoverlay
86 [nextpage]
87 [\overlaybutton{nextpage}]
88
89\setupbackgrounds
90 [text]
91 [backgroundoffset=.5cm,
92 background=nextpage]
93
94
95
96\setupinteraction
97 [state=start,
98 display=new,
99 menu=on]
100
101\setupinteraction
102 [color=,
103 contrastcolor=]
104
105
106
107\definehead[Topic] [chapter] \setuphead[Topic] [style=\bfc]
108\definehead[Subject][section] \setuphead[Subject][style=\bfa]
109
110\setuphead
111 [Topic,Subject]
112 [number=no,
113 after={\blank[big]}]
114
115
116
117\let\Topics \gobbleoneargument
118\let\Subjects\relax
119
120
121
122\startinteractionmenu[right]
123 \setupinteraction
124 [color=black,
125 contrastcolor=Two]
126 \placelist
127 [Topic]
128 [alternative=e,
129 frame=off,
130 criterium=all]
131 \vfill
132\stopinteractionmenu
133
134\setuplist
135 [Topic]
136 [width=\rightedgewidth,
137 maxwidth=\rightedgewidth,
138 style=\bfa]
139
140
141
142\setupwhitespace
143 [medium]
144
145\setupblank
146 [medium]
147
148
149
150
151\unexpanded\def\TitlePage#1
152 {\StartTitlePage#1\StopTitlePage}
153
154\unexpanded\def\StartTitlePage
155 {\startstandardmakeup
156 \setupalign[middle]
157 \enforced\protected\def\\{\vfil\bfb\setupinterlinespace}
158 \bfd\setupinterlinespace
159 \vfil}
160
161\unexpanded\def\StopTitlePage
162 {\vfil\vfil\vfil
163 \stopstandardmakeup}
164
165\startsetups document:start
166 \StartTitlePage
167 \documentvariable{title}
168 \doifsomething {\documentvariable{subtitle}} {
169 \\
170 \documentvariable{subtitle}
171 }
172 \doifsomething {\documentvariable{location}} {
173 \\
174 \documentvariable{location}
175 }
176 \StopTitlePage
177\stopsetups
178
179\startsetups document:stop
180
181\stopsetups
182
183\stopmodule
184
185
186
187\continueifinputfile{spresentsplit.mkiv}
188
189\usemodule[presentcommon]
190
191\inputpresentationfile{examplespresentsplit001.tex}
192 |