Source Browser ?

1% language=us
2
3\startcomponent hybrid-titlepage
4
5\environment hybrid-environment
6
7% \start \setuptype [color=gray] \startMPpage
8%     StartPage ;
9%         numeric o, w, h, d ; o := 4mm ;
10%         picture p[], q, t ;
11%         t := textext("\white\definedfont[LMTypewriterVarWd10-Dark*default]MkIV Hybrid Technology") ;
12%         t := ((t rotated 90) ysized (PaperHeight - 2o)) ;
13%         p[1] := textext("\type{{ }}") ;
14%         p[2] := textext("\type{( )}") ;
15%         p[3] := textext("\type{< >}") ;
16%         d := bbwidth(t) + 2o ;
17%         q := image ( for i=1 upto 200 :
18%             for j=1 upto 3 :
19%                 q := p[j] scaled (1 + uniformdeviate 4) ;
20%                 w := uniformdeviate (PaperWidth - d) ;
21%                 h := uniformdeviate (PaperHeight) ;
22%                 draw q shifted (w,h) ;
23%             endfor ;
24%         endfor ; ) ;
25%         q := (q shifted -llcorner q) xysized (PaperWidth - d - 2o, PaperHeight - 2o) shifted (o,o) ;
26%         fill Page enlarged (o/2) withcolor \MPcolor{yellow} ;
27%         draw thelabel.ulft(t,lrcorner Page shifted (-o,o)) ;
28%         draw q ;
29%     StopPage ;
30% \stopMPpage \stop
31
32\definefont[TitlePageFontA][file:lmmonoproplt10-bold*default]
33\definefont[TitlePageFontB][file:lmmonolt10-bold*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[1+floor(uniformdeviate 3)] xysized (PaperWidth/20 + uniformdeviate PaperWidth/40, PaperHeight/15 + uniformdeviate PaperHeight/30) ;
48                w := i * (PaperWidth - d)/10 ;
49                h := j * PaperHeight/10 ;
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 (o/2) 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