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