Source Browser ?

1% language=us
2
3\environment interaction-style
4
5\startcomponent interaction-titlepage
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, w/8, h/8) ;
18        forever :
19            if new_on_grid(uniformdeviate w,uniformdeviate h) :
20                t := identity
21                    scaled (3+uniformdeviate 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