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