SourceBrowser

s-cdr-01.tex /size: 3107 b last modification: 2020-07-01 14:35
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
-
0
1
]
15
16\setupmodule
[
cdr
-
0
1
][
option
=]
17
18\def
\PDFMPformoffset
{
2
0
cm
}
19
20\definepapersize
21  [
CDcover
]
22  [
width
=
1
2
.
5
cm
,
23   height
=
1
2
.
4
cm
]
24
25\definelayout
26  [
CDcover
]
27  [
topspace
=
5
mm
,
28   backspace
=
5
mm
,
29   header
=
0
pt
,
30   footer
=
0
pt
,
31   width
=
middle
,
32   height
=
middle
]
33
34\setuparranging
35  [
2
SIDE
]
36
37\setuppapersize
38  [
CDcover
]
39  [
A
4
,
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
][
.
4
pt
]
66
67\doif
 {
\moduleparameter
{
cdr
-
0
1
}{
option
}}
 {
light
}
 {
68    \definecolor
  [
cd
-
color
]
    [
s
=
.
8
5
]
69    \definemeasure
[
cd
-
linewidth
][
.
2
pt
]
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
 3
mm
)
 &
81      rightboundary
  (
Page
 enlarged
 3
mm
)
 &
82      topboundary
    (
Page
 enlarged
 3
mm
)
 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
 3
mm
)
 &
95      leftboundary
   (
Page
 enlarged
 3
mm
)
 &
96      bottomboundary
 (
Page
 enlarged
 3
mm
)
 dashed
 evenly
 withcolor
 \MPcolor
{
cd-color
}
 ;
97    draw
98      bottomboundary
 Page
 --
99      lrcorner
 Page
 shifted
 (
-5
mm
,
-1
cm
)
 --
100      llcorner
 Page
 shifted
 (
 5
mm
,
-1
cm
)
 --
 cycle
 withcolor
 \MPcolor
{
cd-color
}
 ;
101    draw
102      topboundary
 Page
 --
103      ulcorner
 Page
 shifted
 (
 5
mm
,
 1
cm
)
 --
104      urcorner
 Page
 shifted
 (
-5
mm
,
 1
cm
)
 --
 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
=
5
mm
,
115   backspace
=
5
mm
,
116   header
=
0
pt
,
117   footer
=
0
pt
,
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
Source Browser ?
