summaryrefslogtreecommitdiff
path: root/doc/context/sources/general/manuals/ontarget/ontarget-titlepage.tex
diff options
context:
space:
mode:
Diffstat (limited to 'doc/context/sources/general/manuals/ontarget/ontarget-titlepage.tex')
-rw-r--r--doc/context/sources/general/manuals/ontarget/ontarget-titlepage.tex73
1 files changed, 73 insertions, 0 deletions
diff --git a/doc/context/sources/general/manuals/ontarget/ontarget-titlepage.tex b/doc/context/sources/general/manuals/ontarget/ontarget-titlepage.tex
new file mode 100644
index 000000000..516955f7e
--- /dev/null
+++ b/doc/context/sources/general/manuals/ontarget/ontarget-titlepage.tex
@@ -0,0 +1,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
+