Source Browser ?

1% language=us runpath=texruns:manuals/beyond
2
3\startcomponent beyond-titlepage
4
5\environment beyond-style
6
7\startMPpage[pagestate=stop]
8
9StartPage ;
10
11    picture p ; p := image (
12
13        path Door ; Door :=
14            fullsquare xyscaled (10,20)
15         && fullsquare xyscaled (6,8)   shifted (0, 4.5)
16         && fullsquare xyscaled (6,8)   shifted (0,-4.5)
17         && fullsquare xyscaled (1/2,2) shifted (-5.25,6.5)
18         && fullsquare xyscaled (1/2,2) shifted (-5.25,-6.5)
19         && fullsquare xyscaled (3,1/4) shifted (2.75,1)
20        ;
21
22        Door := Door xysized (PaperWidth/10,PaperHeight/10) ;
23
24        % how to open these doors randomized
25
26        for i=1 upto 8 :
27            for j=1 upto 8 :
28                draw Door shifted ((i-.5)*(PaperWidth/8),(j-.5)*(PaperHeight/8)) ;
29            endfor
30        endfor ;
31
32    ) ;
33
34    fill Page withcolor "maincolor" ;
35
36    draw p withpen pencircle scaled 2 withcolor .6white ;
37
38    draw image (draw textext ("\glyphweight 300 BEYOND") xsized (16cm) withcolor "white")
39        shifted center bottomboundary Page
40        shifted (0mm,45mm) ;
41
42    draw image (draw textext ("\glyphweight 200 luametatex & context lmtx") xsized (13cm) withcolor "white")
43        shifted center bottomboundary Page
44        shifted (0mm,20mm) ;
45
46StopPage ;
47
48\stopMPpage
49
50\stopcomponent
51
52