1\startcomponent stilltitlepage
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 (i10) yscaled (j10) withcolor .5white ;
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 |