Source Browser ?

1\startcomponent still-titlepage
2
3\startMPpage
4
5    picture p ; p := image (
6        numeric i ; i := 1cm ;
7        numeric j ; j := 1cm ;
8        forever :
9            j := 1.1 * j ;
10            i := 1cm ;
11            forever :
12                i := 1.1 * i ;
13                draw (i,j) withpen pencircle xscaled (i/10) yscaled (j/10) withcolor .5white ; % withtransparency (1,.5) ;
14                if i > 21cm : break fi ;
15            endfor ;
16            if j > 30cm : break fi ;
17        endfor ;
18    ) ;
19
20    p := p xysized(PaperWidth,PaperHeight) ;
21
22    fill boundingbox p withcolor "maincolor" ;
23
24    draw p ;
25
26    currentpicture := currentpicture shifted - llcorner currentpicture ;
27
28    draw textext.llft("Still")      xsized .75PaperWidth shifted (.95PaperWidth,.950PaperHeight) withcolor white ;
29    draw textext.llft("going on")   xsized .50PaperWidth shifted (.95PaperWidth,.725PaperHeight) withcolor white ;
30    draw textext.llft("Hans Hagen") xsized .50PaperWidth shifted (.95PaperWidth,.125PaperHeight) withcolor white ;
31
32    setbounds currentpicture to Page ;
33
34\stopMPpage
35
36\page[empty] \setupcounter[userpage][start=1]
37
38\stopcomponent
39