1
2
3\startcomponent bidititlepage
4
5\environment bidistyle
6
7\startMPpage
8
9 picture p, q, r, s ;
10
11 p := textext("l2r") xsized .9PaperWidth ;
12 q := textext("r2l") xsized .9PaperWidth ;
13 r := textext("a few tips") xsized .9PaperWidth ;
14 s := textext("\bf\ss hans\quad\space\quad hagen") xsized .5bbheight(p);
15
16 p := p shifted llcorner p ;
17 q := q shifted llcorner q ;
18 r := r shifted llcorner r ;
19 s := s shifted llcorner s ;
20
21 fill Page withcolor "darkyellow" ;
22
23 p := p shifted (.05PaperWidth,ypart .5[ulcorner Page, urcorner Page]-1.1bbheight(p)) ;
24 q := q shifted (.05PaperWidth,ypart .5[ulcorner Page, urcorner Page]-1.1bbheight(p)-1.15bbheight(q)) ;
25 r := r shifted (.05PaperWidth,ypart .5[llcorner Page, lrcorner Page]+0.3bbheight(r)) ;
26 s := s shifted (.66PaperWidth,ypart .5[llcorner Page, lrcorner Page]+1.5bbheight(s)) ;
27
28 draw p withcolor "lightgray" ;
29 draw q withcolor "lightgray" ;
30 draw r withcolor "middleblue" ;
31 draw s withcolor "lightgray" ;
32
33\stopMPpage
34
35\stopcomponent
36 |