1
2
3\startcomponent hybridtitlepage
4
5\environment hybridenvironment
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\definefont[TitlePageFontA][file:lmmonoproplt10bold*default]
33\definefont[TitlePageFontB][file:lmmonolt10bold*none]
34
35\start \startMPpage
36 StartPage ;
37 numeric o, w, h, d ; o := 4mm ;
38 picture p[], q, t ;
39 t := textext("\white\TitlePageFontA MkIV Hybrid Technology") ;
40 t := ((t rotated 90) ysized (PaperHeight 2o)) ;
41 p[1] := textext("\gray\TitlePageFontB\char123\char125") ;
42 p[2] := textext("\gray\TitlePageFontB()") ;
43 p[3] := textext("\gray\TitlePageFontB<>") ;
44 d := bbwidth(t) 2o ;
45 q := image ( for i=1 upto 8 :
46 for j=1 upto 20 :
47 q := p[1floor(uniformdeviate 3)] xysized (PaperWidth20 uniformdeviate PaperWidth40, PaperHeight15 uniformdeviate PaperHeight30) ;
48 w := i (PaperWidth d)10 ;
49 h := j PaperHeight10 ;
50 q := q shifted (w,h) ;
51 draw q;
52 endfor ;
53 endfor ; ) ;
54 q := (q shifted llcorner q) xysized (PaperWidth d 2o, PaperHeight 2o) shifted (o,o) ;
55 fill Page enlarged (o2) withcolor \MPcolor{yellow} ;
56 draw thelabel.ulft(t,lrcorner Page shifted (o,o)) ;
57 draw q ;
58 StopPage ;
59\stopMPpage \stop
60
61\setuppagenumber[state=stop] \page[empty] \setuppagenumber[state=start]
62
63\stopcomponent
64 |