1\environment publicationsstyle
2
3\startcomponent publicationstitlepage
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,2i) ; 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 (2PaperWidth3) shifted (.25PaperWidth,.225PaperHeight) ;
25 ctx := ctx xsized (2PaperWidth3) shifted (.25PaperWidth,.150PaperHeight) ;
26 dtx := dtx xsized (2PaperWidth3) 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 |