blob: 4450199e653d347896b4da86d6a023c7ce1666cc (
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
41
|
\environment luametafun-style
\startcomponent luametafun-titlepage
\startMPpage
fill Page withcolor "darkblue" ;
path p ; p := (0,0) -- (0,4) -- (2,2) -- (4,4) -- (4,0) ;
p := p scaled 20; p := p shifted - center p ;
draw image (
for i=1 upto 1000 :
draw p shifted (center Page randomized urcorner Page) ;
endfor ;
) withcolor "darkgreen" ;
setbounds currentpicture to Page ;
draw
% textext.ulft("\ss luametafun")
textext.ulft("\ss metafun xl")
xsized .55bbwidth(Page)
shifted lrcorner Page
shifted (-15mm,35mm)
withcolor "white"
;
draw
textext.ulft("\ss Hans Hagen")
xsized .3bbwidth(Page)
shifted lrcorner Page
shifted (-15mm,15mm)
withcolor "white"
;
\stopMPpage
\stopcomponent
|