Source Browser ?

1% language=us
2
3\environment details-environment
4
5\startcomponent details-frontpage
6
7\startpagemakeup[doublesided=no,pagestate=stop,page=no]
8    \startMPcode
9        StartPage ;
10            % todo: calculate p[3] from the text dimensions as now it's a gamble
11            path p[] ; picture q[] ;
12            p[1] := Page ;
13            p[2] := Page xscaled .60 shifted (.2PaperWidth,0) ;
14            p[3] := Page yscaled .22 shifted (0,.69PaperHeight) ;
15            q[1] := textext.raw("\color[white] {DETAILS}")        xsized(.98PaperWidth) ;
16            q[2] := textext.raw("\color[white] {IT'S IN THE}")    xsized(.98PaperWidth) ;
17            q[3] := textext.raw("\color[twhite]{\tt HANS HAGEN}") xsized(.60PaperWidth) ;
18            q[4] := textext.raw("\color[twhite]{\tt PRAGMA ADE}") xsized(.60PaperWidth) ;
19            q[5] := textext.raw("\color[twhite]{\tt HASSELT NL}") xsized(.60PaperWidth) ;
20            q[2] := q[2] shifted (0,-   bbheight(q[2])) ;
21            q[3] := q[3] shifted (0,+1.5bbheight(q[3])) ;
22            q[5] := q[5] shifted (0,-1.5bbheight(q[5])) ;
23            fill p[1] withcolor \MPcolor{blue} ;                        % .5blue
24            fill p[2] withcolor \MPcolor{red} ;                         % .5red
25            fill p[3] withcolor \MPcolor{gray} withtransparency(1,.5) ; % .6white
26            draw q[1] shifted (.01PaperWidth,.7PaperHeight) ;
27            draw q[2] shifted (.01PaperWidth,.9PaperHeight) ;
28            draw q[3] shifted (.20PaperWidth,.2PaperHeight) ;
29            draw q[4] shifted (.20PaperWidth,.2PaperHeight) ;
30            draw q[5] shifted (.20PaperWidth,.2PaperHeight) ;
31        StopPage ;
32    \stopMPcode
33\stoppagemakeup
34
35\startpagemakeup[doublesided=no,pagestate=stop,page=no]
36    \startMPcode
37        StartPage ;
38            fill Page withcolor \MPcolor{blue} ; % .5blue ;
39        StopPage ;
40    \stopMPcode
41\stoppagemakeup
42
43\stopcomponent
44