1
2
3
4
5
6
7
8
9
10
11
12
13
14\startmodule[presentfunny]
15
16
17
18
19
20
21\usemodule[pregeneral]
22
23
24
25
26
27
28
29
30\doifelsemode {asintended} {
31 \setupbodyfont[ludicaot,14.4pt]
32} {
33 \setupbodyfont[pagella,14.4pt]
34}
35
36
37
38
39
40
41
42\setuppapersize
43 [S6][S6]
44
45\setuplayout
46 [width=middle,
47 height=middle,
48 topspace=75pt,
49 backspace=100pt,
50 header=0pt,
51 footer=0pt]
52
53\setupinteractionscreen
54 [option=max]
55
56
57
58
59
60
61
62\definecolor [PageColor] [black]
63\definecolor [BackgroundColor] [s=.85]
64\definecolor [OrnamentColor] [r=.75]
65\definecolor [PositionColor] [s=.55]
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 10pt yscaled 20pt ;
92 p := Page enlarged (-10pt,-15pt) superellipsed .8 ;
93 p := p shifted (-1.5pt,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 := 2NOfPages ;
101 pa := point (5len RealPageNumber ) of p ;
102 pb := point (5len(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{spresentfunny.mkiv}
205
206\usemodule[presentcommon]
207
208\inputpresentationfile{examplespresentfunny001.tex}
209 |