Source Browser ?

1%D \module
2%D   [      file=s-cdr-01,
3%D        version=2001.2.07, % maybe earlier
4%D          title=\CONTEXT\ Style File,
5%D       subtitle=CDROM Cover,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\startmodule[cdr-01]
15
16\setupmodule[cdr-01][option=]
17
18\def\PDFMPformoffset{20cm}
19
20\definepapersize
21  [CDcover]
22  [width=12.5cm,
23   height=12.4cm]
24
25\definelayout
26  [CDcover]
27  [topspace=5mm,
28   backspace=5mm,
29   header=0pt,
30   footer=0pt,
31   width=middle,
32   height=middle]
33
34\setuparranging
35  [2SIDE]
36
37\setuppapersize
38  [CDcover]
39  [A4,landscape]
40
41\setuplayout
42  [CDcover]
43
44\setuplayout
45  [location=middle]
46
47\setupcolors
48  [state=start]
49
50\setupbackgrounds
51  [leftpage]
52  [background=leftcover]
53
54\setupbackgrounds
55  [rightpage]
56  [background=rightcover]
57
58\setuppagenumbering
59  [alternative=doublesided]
60
61\defineoverlay[leftcover] [\useMPgraphic{leftcover}]
62\defineoverlay[rightcover][\useMPgraphic{rightcover}]
63
64\definecolor  [cd-color]    [s=0]
65\definemeasure[cd-linewidth][.4pt]
66
67\doif {\moduleparameter{cdr-01}{option}} {light} {
68    \definecolor  [cd-color]    [s=.85]
69    \definemeasure[cd-linewidth][.2pt]
70}
71
72\startuseMPgraphic{leftcover}
73  StartPage ;
74    pickup pencircle scaled \measure{cd-linewidth} ;
75    draw
76      bottomboundary Page &
77      rightboundary  Page &
78      topboundary    Page withcolor \MPcolor{cd-color} ;
79    draw
80      bottomboundary (Page enlarged 3mm) &
81      rightboundary  (Page enlarged 3mm) &
82      topboundary    (Page enlarged 3mm) dashed evenly withcolor \MPcolor{cd-color} ;
83  StopPage ;
84\stopuseMPgraphic
85
86\startuseMPgraphic{rightcover}
87  StartPage ;
88    pickup pencircle scaled \measure{cd-linewidth} ;
89    draw
90      topboundary    Page &
91      leftboundary   Page &
92      bottomboundary Page withcolor \MPcolor{cd-color} ;
93    draw
94      topboundary    (Page enlarged 3mm) &
95      leftboundary   (Page enlarged 3mm) &
96      bottomboundary (Page enlarged 3mm) dashed evenly withcolor \MPcolor{cd-color} ;
97    draw
98      bottomboundary Page --
99      lrcorner Page shifted (-5mm,-1cm) --
100      llcorner Page shifted ( 5mm,-1cm) -- cycle withcolor \MPcolor{cd-color} ;
101    draw
102      topboundary Page --
103      ulcorner Page shifted ( 5mm, 1cm) --
104      urcorner Page shifted (-5mm, 1cm) -- cycle withcolor \MPcolor{cd-color} ;
105  StopPage ;
106  setbounds currentpicture to Page ;
107\stopuseMPgraphic
108
109\setupmakeup
110  [standard]
111  [doublesided=no,page=]
112
113\setuplayout
114  [topspace=5mm,
115   backspace=5mm,
116   header=0pt,
117   footer=0pt,
118   width=middle,
119   height=middle]
120
121\defineframedtext
122  [maintext]
123  [background={foreground,color},
124   backgroundcolor=a-bit-white,
125   frame=off,
126   before=,
127   after=,
128   align=right,
129   strut=no,
130   height=fit,
131   width=\textheight]
132
133\stopmodule
134
135\doifnotmode{demo}{\endinput}
136
137\starttext
138    \startstandardmakeup
139        page 1
140    \stopstandardmakeup
141
142    \startstandardmakeup
143        page 2
144    \stopstandardmakeup
145\stoptext
146