blob: 1b7cabe8441b565d8492a3ecd6f229fa609aa673 (
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
34
35
36
37
38
39
40
|
\environment texit-style
\startcomponent texit-titlepage
\startMPpage
fill Page
withcolor "darkyellow"
withtransparency (1,.75) ;
draw image (
for i=1 upto 500 :
draw (((1,-2) ... origin ... (-1,2)) randomized 0.2)
scaled 1cm
rotated (0 randomized 15)
shifted (origin randomized (PaperWidth,PaperHeight))
withpen pencircle yscaled 5mm xscaled 2mm rotated 45
withcolor "darkmagenta"
withtransparency (1,.5)
;
endfor ;
) shifted center Page ;
clip currentpicture to Page ;
draw textext.ulft ("\TeX it") ysized 5cm % indeed, no space after \TeX !
shifted lrcorner Page shifted (-1cm,1cm)
withcolor white ;
draw textext.llft ("Hans Hagen") ysized 1cm
rotated 90
shifted urcorner Page shifted (-15mm,-1cm)
withcolor white ;
\stopMPpage
\startstandardmakeup[doublesided=no,page=no]
\stopstandardmakeup
\stopcomponent
|