Source Browser ?

1% language=us runpath=texruns:manuals/bidi
2
3\startcomponent bidi-titlepage
4
5\environment bidi-style
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