1
2
3
4
5
6
7
8
9
10
11
12
13
14\startmodule [ present funny ]
15
16
17
18
19
20
21\usemodule [ pre general ]
22
23
24
25
26
27
28
29
30\doifelsemode { asintended } {
31 \setupbodyfont [ ludicaot , 1 4 . 4 pt ]
32} {
33 \setupbodyfont [ pagella , 1 4 . 4 pt ]
34}
35
36
37
38
39
40
41
42\setuppapersize
43 [ S 6 ] [ S 6 ]
44
45\setuplayout
46 [ width = middle ,
47 height = middle ,
48 topspace = 7 5 pt ,
49 backspace = 1 0 0 pt ,
50 header = 0 pt ,
51 footer = 0 pt ]
52
53\setupinteractionscreen
54 [ option = max ]
55
56
57
58
59
60
61
62\definecolor [ PageColor ] [ black ]
63\definecolor [ BackgroundColor ] [ s = . 8 5 ]
64\definecolor [ OrnamentColor ] [ r = . 7 5 ]
65\definecolor [ PositionColor ] [ s = . 5 5 ]
66
67
68
69
70
71
72
73\setupinteraction
74 [ state = start ,
75 contrastcolor = OrnamentColor ,
76 color = OrnamentColor ]
77
78
79
80
81
82
83
84\defineoverlay
85 [ PageShape ] [ \useMPgraphic { PageShape } ]
86
87\startuseMPgraphic { PageShape }
88 StartPage ;
89 path p ; pair pa , pb ; numeric len ; color contrastcolor ;
90 fill Page withcolor \MPcolor { PageColor } ;
91 pickup pencircle rotated 45 xscaled 10 pt yscaled 20 pt ;
92 p : = Page enlarged ( -10 pt , -15 pt ) superellipsed .8 ;
93 p : = p shifted ( -1.5 pt , 0 ) ;
94 fill p withcolor \MPcolor { BackgroundColor } ;
95 draw p withcolor \MPcolor { OrnamentColor } ;
96 contrastcolor = \MPcolor { PositionColor } ;
97 if ( RealPageNumber > 0 ) and ( NOfPages > 0 ) :
98 draw point 5 of p withcolor contrastcolor ;
99 draw point 7 of p withcolor contrastcolor ;
100 len : = 2 NOfPages ;
101 pa : = point ( 5 len RealPageNumber ) of p ;
102 pb : = point ( 5 len ( RealPageNumber -1 ) ) of p ;
103 draw ( p cutafter pa ) cutbefore pb
104 withcolor contrastcolor ;
105 fi ;
106 StopPage ;
107\stopuseMPgraphic
108
109
110
111\defineoverlay [ PrevButton ] [ \overlaybutton { PreviousPage } ]
112\defineoverlay [ NextButton ] [ \overlaybutton { NextPage } ]
113
114\setupbackgrounds
115 [ page ]
116 [ background = { PageShape , PrevButton } ]
117
118\setupbackgrounds
119 [ text ] [ text ]
120 [ background = NextButton ]
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150\definehead [ Topic ] [ chapter ]
151\definehead [ Nopic ] [ title ]
152
153\setuphead
154 [ Topic , Nopic ]
155 [ after = { \blank [ 3 * medium ] } ,
156 number = no ,
157 style = \bfb ,
158 page = yes ,
159 alternative = middle ]
160
161\setuplist
162 [ Topic ]
163 [ alternative = g ,
164 interaction = all ,
165 before = ,
166 after = ]
167
168\let \Subject \Topic
169
170
171
172\unexpanded \def \Topics # 1
173 { \Nopic [ Topics ] { # 1 }
174 \placelist [ Topic ] [ criterium = all ] }
175
176\unexpanded \def \Subjects
177 { }
178
179
180
181
182
183
184
185
186
187
188\unexpanded \def \StartTitlePage
189 { \startstandardmakeup
190 \bfd \setupinterlinespace
191 \setupalign [ middle ]
192 \vfil
193 \enforced \protected \def \\ { \vfil \bfb \setupinterlinespace } }
194
195\unexpanded \def \StopTitlePage
196 { \vfil \vfil \vfil
197 \stopstandardmakeup }
198
199\unexpanded \def \TitlePage # 1
200 { \StartTitlePage # 1 \StopTitlePage }
201
202\stopmodule
203
204\continueifinputfile { s present funny . mkiv }
205
206\usemodule [ present common ]
207
208\inputpresentationfile { examples present funny 0 0 1 . tex }
209 |