1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18\startmodule [ present split ]
19
20\startmode [ asintended , atpragma ] \setupbodyfont [ lucidaot ] \stopmode
21
22\setupbodyfont [ 1 4 . 4 pt ]
23
24
25
26\setuptolerance
27 [ verytolerant , stretch ]
28
29
30
31\setuppapersize
32 [ S 6 ] [ S 6 ]
33
34\setuplayout
35 [ width = fit ,
36 rightedge = 3 cm ,
37 margin = 0 pt ,
38 rightedgedistance = 2 cm ,
39 height = middle ,
40 header = 0 pt ,
41 footer = 0 pt ,
42 topspace = 1 cm ,
43 backspace = 1 cm ]
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 RightEdgeDistance 2 ;
66 fill Page withcolor " ColorOne " ;
67 fill Page leftenlarged Shift withcolor " ColorTwo " ;
68 if RealPageNumber > 1 :
69 Left : = Right : = textext ( " \bf\folio " ) ysized 3 cm ;
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.25 cm ) withcolor " ColorTwo " ;
73 draw Right shifted ( Shift , 2.25 cm ) 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 = . 5 cm ,
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 { s present split . mkiv }
188
189\usemodule [ present common ]
190
191\inputpresentationfile { examples present split 0 0 1 . tex }
192 |