SourceBrowser

s-present-weird.mkiv /size: 8096 b last modification: 2025-02-21 11:03
1%D \module
2%D   [      file=s-present-weird, % s-pre-17,
3%D        version=1999.08.20,
4%D          title=\CONTEXT\ Style File,
5%D       subtitle=Presentation Environment Weird,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\startmodule[present-balls]
15
16%D This is a rather old style, adn I used it for a presentation about \MATHML\
17%D around the turn of the century. Unfortunately I can't find back that weird
18%D presentation. I didn't change the code apart from loading the body font. One can
19%D clock on an area and get it large. Clicking elsewhere brings back the main page.
20%D It was actualy a zoom test at that time.
21
22\setupbodyfont
23  [dejavu,11pt,ss]
24
25\setupsystem
26  [random=medium]
27
28\setupbackgrounds
29  [state=repeat]
30
31\setupbackgrounds
32  [page]
33  [background={page,forward}]
34
35\setupbackgrounds
36  [text][text]
37  [background=blowdown]
38
39\setupinteraction
40  [state=start,
41 % click=off,
42   color=TitleColor,
43   contrastcolor=TitleColor]
44
45\setupinteractionscreen
46  [option=max]
47
48\setuptolerance
49  [verytolerant,stretch]
50
51\definecolor [BackColor]  [s=.30]
52\definecolor [PageColor]  [g=1]
53\definecolor [FrameColor] [r=1]
54\definecolor [TitleColor] [y=1]
55\definecolor [ArrowColor] [b=1]
56
57\defineoverlay [title]    [\useMPgraphic{title}]
58\defineoverlay [page]     [\useMPgraphic{page}]
59\defineoverlay [blowup]   [{\hboxreference[whatever:\CurrentBlaBla]{\overlaybutton{whatever:\CurrentBlaBla}}}]
60\defineoverlay [blowdown] [{\hboxreference[page:\realfolio]{\overlaybutton{page:\realfolio}}}]
61\defineoverlay [forward]  [\overlaybutton{forward}]
62
63\startMPpositiongraphic{mppos:connection}
64    path pa, pb, pc ; pair ca, cb ;
65    initialize_box(\MPpos{\MPvar{self}}) ; pa := pxy ; ca := cxy ;
66    initialize_box(\MPpos{\MPvar{prev}}) ; pb := pxy ; cb := cxy ;
67    pickup pencircle scaled .5pt ;
68    pa := pa enlarged 10pt ;
69    pb := pb enlarged 10pt ;
70    for i=1 upto 10 :
71        draw pa randomized 20pt withcolor \MPcolor{FrameColor} ;
72    endfor ;
73    if \MPp{\MPvar{prev}} > 0 :
74        pair a, b, c, d ;
75        for i=1 upto 25 :
76            a := .5[ulcorner pa,urcorner pa] randomized (10pt,10pt) ;
77            b := .5[llcorner pb,lrcorner pb] randomized (20pt,10pt) ;
78            c := .5[a,b] rotatedaround(a,-25) randomized (5pt,5pt) ;
79            d := .5[a,b] rotatedaround(a,+25) randomized (5pt,5pt) ;
80            draw (a--b) withcolor \MPcolor{ArrowColor} ;
81            draw (d--a--c) withcolor \MPcolor{ArrowColor} ;
82        endfor ;
83    fi ;
84    anchor_box(\MPanchor{\MPvar{self}}) ;
85\stopMPpositiongraphic
86
87\startuseMPgraphic{title}
88    pickup pencircle scaled .5pt ;
89    for i=1 upto 10 :
90        draw fullsquare
91            xyscaled(OverlayWidth,OverlayHeight)
92            enlarged 10pt randomized 20pt
93            withcolor \MPcolor{TitleColor} ;
94    endfor ;
95\stopuseMPgraphic
96
97\startuseMPgraphic{page}
98    StartPage ;
99        pickup pencircle scaled .5pt ;
100        fill Page withcolor \MPcolor{BackColor} ;
101        for i=1 upto 20 :
102            draw Page enlarged -50pt randomized 50pt withcolor \MPcolor{PageColor} ;
103        endfor ;
104    StopPage ;
105\stopuseMPgraphic
106
107\newcounter\CurrentBlaBla
108
109\defineframedtext
110   [ZoomText]
111   [before=,
112    after=,
113    width=fit,
114    align=flushleft,
115    frame=off,
116    foregroundcolor=white]
117
118\starttexdefinition StartText
119    \begingroup
120    \getrandomdimen\scratchdimen{250pt}{350pt}
121    \edef\TextWidth{\the\scratchdimen}
122    \setbox\scratchbox\hbox\bgroup
123        \hsize\TextWidth
124        \ZoomText\bgroup
125\stoptexdefinition
126
127\starttexdefinition StartTextSimple
128    \begingroup
129    \setbox\scratchbox\hbox\bgroup
130        \framed [
131            frame=off,
132            foregroundcolor=white
133        ]
134        \bgroup
135\stoptexdefinition
136
137\starttexdefinition StopTextSimple
138    \StopText
139\stoptexdefinition
140
141\starttexdefinition StopText
142        \egroup
143    \egroup
144    \doglobal\increment\CurrentBlaBla
145    \let\PrevBlaBla\CurrentBlaBla \doglobal\decrement\PrevBlaBla
146    \let\NextBlaBla\CurrentBlaBla \doglobal\increment\NextBlaBla
147    \setMPpositiongraphic {
148        connection:\CurrentBlaBla
149    }{
150        mppos:connection
151    }{
152        seed=\CurrentBlaBla,
153        prev=connection:\PrevBlaBla,
154        next=connection:\NextBlaBla
155    }
156    \hbox to 600pt \bgroup
157        \setupinteraction[focus=frame]
158        \getrandomdimen\scratchdimen{50pt}{75pt}
159        \hskip0pt plus \scratchdimen minus \scratchdimen
160        \hpos {
161            connection:\CurrentBlaBla
162        }{
163            \framed [
164                frame=off,
165                offset=overlay,
166                backgroundoffset=50pt,
167                background=blowup
168            ] {
169                \box\scratchbox
170            }
171        }
172        \getrandomdimen\scratchdimen{50pt}{75pt}
173        \hskip0pt plus \scratchdimen minus \scratchdimen
174    \egroup
175    \getrandomdimen\scratchdimen{75pt}{125pt}
176    \vskip\scratchdimen
177    \endgroup
178\stoptexdefinition
179
180\dontcomplain
181
182\disablemode[SpreadPage]
183
184\starttexdefinition StartPage #1
185    \doglobal\increment(\CurrentBlaBla,100)%
186    \setvariables[StartPage][title={#1}]
187    \setbox\scratchbox\hbox\bgroup
188        \valign\bgroup
189            \ignorespaces
190            \alignmark\alignmark
191            \vss
192            \cr
193\stoptexdefinition
194
195\starttexdefinition StopPage
196    \cr
197    \egroup
198    \egroup
199    \setbox\scratchbox\vbox\bgroup
200        \vskip100pt
201        \doifelsemode {SpreadPage} {
202            \hbox spread 200pt
203        } {
204            \hbox to \wd\scratchbox
205        }
206        \bgroup
207            \setupinteraction[focus=frame]
208            \hss
209            \switchtobodyfont[big]%
210            \bfd
211            \doglobal\increment\CurrentBlaBla
212            \setupinterlinespace
213            \hpos {
214                title:\realfolio
215            }{
216                \framed [
217                    frame=off,
218                    offset=overlay,
219                    backgroundoffset=50pt,
220                    background=blowup
221                ] {
222                    \framed [
223                        frame=off,
224                        align=middle,
225                        foregroundcolor=white,
226                        background=title
227                    ] {
228                        \getvariable{StartPage}{title}
229                    }
230                }
231            }
232            \hss
233        \egroup
234        \vskip100pt
235        \box\scratchbox
236    \egroup
237    \normalexpanded {
238        \definepapersize [
239            MasterPage
240        ] [
241            width=\the\dimexpr\wd\scratchbox+100pt\relax,
242            height=\the\dimexpr\ht\scratchbox+\dp\scratchbox+100pt\relax
243        ]
244    }
245    \setuppapersize
246        [MasterPage]
247        [MasterPage]
248    \setuplayout [
249        topspace=50pt,
250        backspace=50pt,
251        width=middle,
252        header=0pt,
253        footer=0pt,
254        height=middle
255    ]
256    \centerbox {
257        \box\scratchbox
258    }
259   \page
260\stoptexdefinition
261
262\starttexdefinition StartTopic #1
263    \removeunwantedspaces
264    \cr
265    \doglobal\increment(\CurrentBlaBla,100)%
266    \vbox\bgroup
267        \vskip100pt
268        \bgroup
269            \definecolor[FrameColor][TitleColor]
270            \switchtobodyfont[big]
271            \bfd
272            \setupinterlinespace
273            \StartTextSimple
274                \ignorespaces
275                #1
276                \removeunwantedspaces
277            \StopTextSimple
278            \vskip25pt
279        \egroup
280\stoptexdefinition
281
282\starttexdefinition StopTopic
283    \vskip-\lastskip
284    \vskip100pt
285    \egroup
286    \ignorespaces
287\stoptexdefinition
288
289\starttexdefinition TitlePage #1
290    \begingroup
291        \enforced\protected\def\\{\vskip1ex\bfc\def\\{\vskip1ex\bfb}}
292        \enablemode[SpreadPage]
293        \StartPage{#1}
294        \StopPage
295    \endgroup
296\stoptexdefinition
297
298\stopmodule
299
300\continueifinputfile{s-present-weird.mkiv}
301
302\pushoverloadmode
303
304\usemodule[present-common]
305
306\inputpresentationfile{examples/present-weird-001.tex}
307
308\popoverloadmode
309
Source Browser ?
