Source Browser ?

1\environment publications-style
2
3\startcomponent publications-titlepage
4
5\startMPpage
6
7    StartPage ;
8
9        picture pic ; pic := image (
10            path pth ; pth := ((0,0) for i=1 step 2 until 20 : -- (i,1) -- (i+1,0) endfor) ;
11            for i=0 upto 9 : draw pth shifted (0,2*i) ; endfor ;
12        ) ;
13
14        picture btx ; btx := textext("\ssbf\WORDS{\documentvariable{title}}") ;
15        picture ctx ; ctx := textext("\ssbf\WORDS{\documentvariable{subtitle}}") ;
16        picture dtx ; dtx := textext("\ssbf       \documentvariable{author}") ;
17
18        pic := pic shifted - llcorner pic ;
19        btx := btx shifted - llcorner btx ;
20        ctx := ctx shifted - llcorner ctx ;
21        dtx := dtx shifted - llcorner dtx ;
22
23        pic := pic xysized (PaperWidth,PaperHeight) ;
24        btx := btx xsized (2PaperWidth/3) shifted (.25PaperWidth,.225PaperHeight) ;
25        ctx := ctx xsized (2PaperWidth/3) shifted (.25PaperWidth,.150PaperHeight) ;
26        dtx := dtx xsized (2PaperWidth/3) shifted (.25PaperWidth,.075PaperHeight) ;
27
28        fill Page withcolor \MPcolor{fore:two} ;
29
30        draw pic withcolor \MPcolor{fore:one} ;
31        draw btx withcolor \MPcolor{lightgray} ;
32        draw ctx withcolor \MPcolor{lightgray} ;
33        draw dtx withcolor \MPcolor{lightgray} ;
34
35    StopPage ;
36
37\stopMPpage
38
39\stopcomponent
40