1
2
3\startcomponent ontargettitlepage
4
5\environment ontargetstyle
6
7\startMPpage[pagestate=stop]
8
9StartPage ;
10
11 picture p ; p := image (
12
13 numeric d ; d := 6.5 ;
14
15 path c ; c := fullcircle scaled 40 shifted (2,7) ;
16
17 path e ; e :=
18 (0,0) -- (3,0) --
19 (3,1) -- (1,1) --
20 (1,2) -- (3,2) --
21 (3,3) -- (1,3) --
22 (1,4) -- (3,4) --
23 (3,4) -- (3,4) --
24 (3,5) -- (0,5) -- cycle ;
25
26 path r ; r := ((0,0) -- (3,0) -- (3,5) -- (0,5)) -- reverse e -- cycle;
27
28 path q ; q := fullsquare xyscaled (3,60) shifted (32,0) ;
29
30 fill c withcolor "lightgray" ;
31
32 fill q withpen pencircle scaled 15 withcolor "white" ;
33
34 for i=-25 step 5 until 35 :
35 fill (if (i mod 10) = 0 : e else : r fi) shifted (0,i d) withcolor "darkred" ;
36 endfor ;
37
38 draw q withpen pencircle scaled 15 withcolor "darkgray" ;
39
40 for i=-25 step 10 until 30 :
41 draw textext.lft("\tttf " & decimal ((i10)+21.5)) ysized 3
42 shifted (9,19 i-6.5 d) withcolor "darkgray" ;
43 endfor ;
44
45 draw ((-25, 0) -- (25, 0)) shifted center c withpen pencircle scaled 210 withcolor "yellow" ;
46 draw (( 0,-25) -- ( 0,25)) shifted center c withpen pencircle scaled 210 withcolor "yellow" ;
47
48 clip currentpicture to c ;
49 draw c withpen pencircle scaled 410 withcolor "yellow" ;
50 ) ;
51
52 fill Page withcolor "darkred" ;
53
54 p := p shifted center p ;
55
56 draw p scaled 6mm
57 shifted center Page
58 shifted (0mm,50mm) ;
59
60 draw image (draw textext ("\tt\bf on\thinspace target") xsized (16cm) withcolor "yellow")
61 shifted center bottomboundary Page
62 shifted (0mm,45mm) ;
63
64 draw image (draw textext ("\tttf luametatex & context lmtx") xsized (13cm) withcolor "yellow")
65 shifted center bottomboundary Page
66 shifted (0mm,20mm) ;
67
68StopPage ;
69
70\stopMPpage
71
72\stopcomponent
73
74 |