Source Browser ?

1% language=us runpath=texruns:manuals/ontarget
2
3\startcomponent ontarget-titlepage
4
5\environment ontarget-style
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 (3/2,0) ;
29
30        fill c withcolor "lightgray" ;
31
32        fill q withpen pencircle scaled 1/5 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 1/5 withcolor "darkgray" ;
39
40        for i=-25 step 10 until 30 :
41            draw textext.lft("\tttf " & decimal ((i/10)+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 2/10 withcolor "yellow" ;
46        draw ((  0,-25) -- ( 0,25)) shifted center c withpen pencircle scaled 2/10 withcolor "yellow" ;
47
48        clip currentpicture to c ;
49        draw                   c withpen pencircle scaled 4/10 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