1
2
3\environment luametafunstyle
4
5\startcomponent luametafuntitlepage
6
7\startMPpage
8
9 fill Page withcolor "darkblue" ;
10
11 path p ; p := (0,0) -- (0,4) -- (2,2) -- (4,4) -- (4,0) ;
12
13 p := p scaled 20; p := p shifted center p ;
14
15 draw image (
16 for i=1 upto 1000 :
17 draw p shifted (center Page randomized urcorner Page) ;
18 endfor ;
19 ) withcolor "darkgreen" ;
20
21 setbounds currentpicture to Page ;
22
23 draw
24
25 textext.ulft("\ss metafun xl")
26 xsized .55bbwidth(Page)
27 shifted lrcorner Page
28 shifted (-15mm,35mm)
29 withcolor "white"
30 ;
31
32 draw
33 textext.ulft("\ss Hans Hagen")
34 xsized .3bbwidth(Page)
35 shifted lrcorner Page
36 shifted (-15mm,15mm)
37 withcolor "white"
38 ;
39
40\stopMPpage
41
42\stopcomponent
43 |