1
2
3
4
5
6
7
8
9
10
11
12
13
14\startmodule[presentgreen]
15
16
17
18
19\usemodule[pregeneral]
20
21
22
23
24
25
26
27\doifelsemode {asintended} {
28 \setupbodyfont[ludicaot,14.4pt]
29} {
30 \setupbodyfont[pagella,14.4pt]
31}
32
33\setuplayout
34 [style=smallbodyfont]
35
36
37
38
39
40
41
42
43\setuppapersize
44 [S6][S6]
45
46\setuplayout
47 [backspace=1cm,
48 topspace=1cm,
49 margin=0pt,
50 header=0pt,
51 footer=0pt,
52 bottomdistance=.875cm,
53 bottom=1cm,
54 width=fit,
55 height=fit]
56
57
58
59
60
61
62
63\setupwhitespace
64 [medium]
65
66\setuptyping
67 [margin=standard]
68
69
70
71
72
73
74
75\definecolor [BackgroundColor] [r=.8, g=.8, b=.8]
76\definecolor [OrnamentColor] [r= 0, g=.7, b=.4]
77
78
79
80
81
82
83\setupinteraction
84 [state=start,
85 color=OrnamentColor,
86 contrastcolor=OrnamentColor]
87
88\setupinteractionscreen
89 [option=max,
90 width=fit,
91 height=fit]
92
93
94
95
96
97
98\setupitemize
99 [color=OrnamentColor]
100
101
102
103
104
105
106\startuniqueMPgraphic{PageBackground}
107 fill unitsquare
108 xyscaled(OverlayWidth,OverlayHeight)
109 withcolor OverlayColor ;
110 draw unitsquare
111 xyscaled(OverlayWidth,OverlayHeight)
112 enlarged (-2OverlayLineWidth)
113 withpen pencircle scaled OverlayLineWidth
114 withcolor OverlayLineColor ;
115\stopuniqueMPgraphic
116
117\defineoverlay
118 [PageBackground]
119 [\uniqueMPgraphic{PageBackground}]
120
121\setupbackgrounds
122 [page]
123 [background=PageBackground,
124 backgroundcolor=BackgroundColor,
125 rulethickness=.125cm,
126 framecolor=OrnamentColor]
127
128
129
130
131
132
133
134\startuniqueMPgraphic{TextBackground}
135 draw unitsquare
136 xyscaled(OverlayWidth,OverlayHeight)
137 enlarged (4OverlayLineWidth)
138 withpen pencircle scaled OverlayLineWidth
139 withcolor OverlayLineColor ;
140\stopuniqueMPgraphic
141
142\defineoverlay
143 [TextBackground]
144 [\uniqueMPgraphic{TextBackground}]
145
146\defineoverlay
147 [NextPage]
148 [\overlaybutton{nextpage}]
149
150\setupbackgrounds
151 [text]
152 [background={TextBackground,NextPage},
153 backgroundcolor=BackgroundColor,
154 rulethickness=.0625cm,
155 framecolor=OrnamentColor]
156
157
158
159
160
161
162
163\setupMPvariables[RightArrow][height=\bottomheight]
164\setupMPvariables[LeftArrow] [height=\bottomheight]
165\setupMPvariables[Circle] [height=\bottomheight]
166\setupMPvariables[UpArrow] [height=\bottomheight]
167
168\startuniqueMPgraphic{RightArrow}{height}
169 fill righttriangle xysized(\MPvar{height},\MPvar{height})
170 withpen pencircle scaled (\MPvar{height}5)
171 withcolor "OrnamentColor" ;
172\stopuniqueMPgraphic
173
174\startuniqueMPgraphic{LeftArrow}{height}
175 fill lefttriangle xysized(\MPvar{height},\MPvar{height})
176 withpen pencircle scaled (\MPvar{height}5)
177 withcolor "OrnamentColor" ;
178\stopuniqueMPgraphic
179
180\startuniqueMPgraphic{Circle}{height}
181 fill fullcircle sized \MPvar{height}
182 withpen pencircle scaled (\MPvar{height}5)
183 withcolor "OrnamentColor" ;
184\stopuniqueMPgraphic
185
186\startuniqueMPgraphic{UpArrow}{height}
187 fill uptriangle xysized(\MPvar{height},\MPvar{height})
188 withpen pencircle scaled (\MPvar{height}5)
189 withcolor "OrnamentColor" ;
190\stopuniqueMPgraphic
191
192\setupinteractionmenu
193 [bottom]
194 [state=start,
195 frame=off,
196 width=.3\textwidth,
197 height=\bottomheight]
198
199\setupinteraction
200 [menu=on]
201
202\def\WhateverButton
203 {\doifreferencefoundelse{Whatever}
204 {\raw [Whatever] \uniqueMPgraphic{UpArrow} \\}
205 {}}
206
207\startinteractionmenu[bottom]
208 \but [Topics] \\
209 \hfill
210 \WhateverButton
211 \kern2\bottomheight
212 \raw [previouspage] \uniqueMPgraphic{LeftArrow} \\
213 \kern.5\bottomheight
214 \raw [CloseDocument] \uniqueMPgraphic{Circle} \\
215 \kern.5\bottomheight
216 \raw [nextpage] \uniqueMPgraphic{RightArrow} \\
217 \kern.5\bottomheight
218\stopinteractionmenu
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259\unexpanded\def\StartTitlePage
260 {\startstandardmakeup
261 \bfd\setupinterlinespace
262 \setupalign[middle]
263 \vfil
264 \enforced\let\\\vfil}
265
266\unexpanded\def\StopTitlePage
267 {\vfil\vfil\vfil
268 \stopstandardmakeup}
269
270\unexpanded\def\TitlePage#1
271 {\StartTitlePage#1\StopTitlePage}
272
273
274
275
276
277
278
279\definehead [Topic] [chapter]
280\definehead [Subject] [section]
281
282\definehead [Nopic] [title]
283
284
285
286
287
288
289
290\setuphead
291 [Topic, Nopic]
292 [after={\blank[3*medium]},
293 number=no,
294 style=\bfb,
295 page=yes,
296 alternative=middle]
297
298\setuphead
299 [Subject]
300 [after=\blank,
301 number=no,
302 page=yes,
303 continue=no,
304 style=\tfa]
305
306
307
308
309
310
311\setuplist
312 [Topic,Subject]
313 [alternative=g,
314 interaction=all,
315 before=,
316 after=]
317
318\setuplist
319 [Topic]
320 [criterium=all]
321
322\unexpanded\def\Topics#1
323 {\determinelistcharacteristics[Topic]
324 \doifmode{*list}
325 {\Nopic[Topics]{#1}
326 \startcolumns
327 \placelist[Topic]
328 \stopcolumns}}
329
330\setuplist
331 [Subject]
332 [criterium=Topic]
333
334\unexpanded\def\Subjects
335 {\determinelistcharacteristics[Subject]
336 \doifmode{*list}
337 {\placelist[Subject]}}
338
339\setuphead
340 [Topic]
341 [after={\blank[3*medium]\Subjects}]
342
343\stopmodule
344
345\continueifinputfile{spresentgreen.mkiv}
346
347\usemodule[presentcommon]
348
349\inputpresentationfile{examplespresentgreen001.tex}
350 |