Source Browser ?

1% language=us runpath=texruns:manuals/luametafun
2
3\environment luametafun-style
4
5\startcomponent luametafun-titlepage
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     %  textext.ulft("\ss luametafun")
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