1
2
3\environment spacingstyle
4
5\startcomponent spacingtitlepage
6
7
8
9
10\startMPpage
11
12 fill Page enlarged 4mm withcolor \MPcolor{maincolor} ;
13
14 draw image (
15 for i=1 upto 20 :
16 draw bottomboundary Page shifted (0,100log(i)) ;
17 endfor ;
18 )
19 xysized (PaperWidth-6mm,PaperHeight-6mm)
20 shifted (3mm,3mm)
21 withcolor \MPcolor{extracolor}
22 withpen pencircle scaled 1mm ;
23
24 numeric a ; a := log(1)PaperHeight(log(20)) ;
25 numeric b ; b := log(2)PaperHeight(log(20)) ;
26
27 picture p ; p := textext.lrt("\ttbf Spacing in Con\TeX t") xsized(.9PaperWidth) ;
28
29 draw p
30 shifted (.05PaperWidth,(ba)2 ypart center p)
31 withcolor \MPcolor{extracolor} ;
32
33 setbounds currentpicture to Page ;
34
35\stopMPpage
36
37\page[right] \setuppagenumber[number=1]
38
39\stopcomponent
40 |