1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
% language=uk
\environment interaction-style
\startcomponent interaction-titlepage
\startMPpage
StartPage ;
numeric w, h, sh ; transform t ; path p ; pair c ;
w := PaperWidth ;
h := PaperHeight ;
p := Page ;
fill p withcolor .4white ;
sh := define_linear_shade(llcorner p, urcorner p, .6yellow, .6blue) ;
c := center boundingbox outlinetext.p("\ss\bf INTERACTIVITY") ;
set_grid(w, h, w/8, h/8) ;
forever :
if new_on_grid(uniformdeviate w,uniformdeviate h) :
t := identity
scaled (3+uniformdeviate 3)
shifted ((dx,dy) - c)
;
draw outlinetext.b
("\bf\ss INTERACTIVITY")
(transformed t withshade sh)
(transformed t withpen pencircle scaled 3 withcolor .6white)
;
fi ;
exitif grid_full ;
endfor ;
draw anchored.lrt (
textext("\bf\ss \ConTeXt") xsized .6PaperWidth,
lrcorner p shifted (-10mm,40mm)
) withcolor white ;
draw anchored.lrt (
textext("\bf\ss Hans Hagen") xsized .6PaperWidth,
lrcorner p shifted (-10mm,15mm)
) withcolor white ;
StopPage;
\stopMPpage
\page[empty]
\page[right]
\stopcomponent
|