Source Browser ?

1% language=us runpath=texruns:manuals/xml
2
3\environment xml-mkiv-style
4
5\startcomponent xml-mkiv-titlepage
6
7\setuplayout[page]
8
9\ifcase\contextlmtxmode
10
11    \usemodule[punk]
12
13    \usetypescript[punk]
14
15    \definefont[PunkSmall][demo@punk at 18pt]
16    \definefont[PunkLarge][demo@punk at 90pt]
17
18\else
19
20    \useMPlibrary[punk]
21
22    \usetypescript[punk]
23
24    \definefont[PunkSmall][Serif*punkrandom @ 18pt]
25    \definefont[PunkLarge][Serif*punkrandom @ 90pt]
26
27\fi
28
29\startstandardmakeup
30    \startfontclass[none] % nil the current fontclass since it may append its features
31    \ifcase\contextlmtxmode
32        \EnableRandomPunk
33    \else
34        \enablerandomvariants
35    \fi
36    \setlayerframed
37      [page]
38      [width=\paperwidth,height=\paperheight,
39       background=color,backgroundcolor=colorone,backgroundoffset=1ex,frame=off]
40      {}
41    \PunkSmall
42    \setbox\scratchbox\vbox {
43        \hsize\dimexpr\paperwidth+2ex\relax
44        \setupinterlinespace
45        \baselineskip 1\baselineskip plus 1pt minus 1pt
46        \raggedcenter
47        \color[colortwo]{\dorecurse{1000}{XML }}
48    }
49    \setlayer
50      [page]
51      [preset=middle]
52      {\vsplit\scratchbox to \dimexpr\paperheight+2ex\relax}
53    \PunkLarge
54    \setstrut
55    \setlayerframed
56      [page]
57      [preset=rightbottom,offset=10mm]
58      [foregroundcolor=colorthree,align=flushright,offset=overlay,frame=off]
59      {Dealing\\with XML in\\Con\TeX t MkIV}
60    \PunkSmall
61    \setstrut
62    \setlayerframed
63      [page]
64      [preset=righttop,offset=10mm,x=3mm,rotation=90]
65      [foregroundcolor=colorthree,align=flushright,offset=overlay,frame=off]
66      {Hans Hagen, Pragma ADE, \currentdate}
67    \tightlayer[page]
68    \stopfontclass
69\stopstandardmakeup
70
71\setuplayout
72
73\stopcomponent
74