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