Source Browser ?

1
%D \module
2
%D   [      file=s-magazine-basic, % was: s-mag-01
3
%D        version=2016.09.12, % mkiv version of 2002.12.14,
4
%D          title=\CONTEXT\ Style File,
5
%D       subtitle=\CONTEXT\ Magazine Base Style,
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
%D This style is used for producing explanationary documents. Don't misuse it for
15
%D other purposes, since it may confuse users. Don't change the title either, since
16
%D it provides a way to categorize documents. Numbers are disabled in instances
17
%D produced outside PRAGMA ADE.
18
%D
19
%D The layout setup is such that one has several text areas available: headers and
20
%D footers, margins and edges as well as the main text area. The surrounding (gray)
21
%D makes the main page stand out and is suitable for viewing in spread mode.
22
%D
23
%D Since this style is under constant construction, messing around with settings
24
%D will produce unwanted side effects. So, if some feature or settings is needed,
25
%D let me know.
26
27
%D By now (2019) it's an old style that needs an overhaul ...
28
29
% These are reserved for PRAGMA-ADE, don't use them yourself!
30
31
% \setupdocument[main=Tricky]
32
% \setupdocument[main=Update]
33
% \setupdocument[main=HOWTO]
34
35
% \setupdocument[main=This Way]      % preludes to a/the manual
36
% \setupdocument[main=A Better Way]  % dirty versus clean
37
% \setupdocument[main=No Way]        % how users should not do it
38
% \setupdocument[main=Your Way]      % how users do it
39
% \setupdocument[main=My Way]        % how users do it
40
% \setupdocument[main=Our Way]       % how we do things at pragma
41
% \setupdocument[main=Their Way]     % how to do latex things in context
42
43
\usemodule
[
narrowtt
,
scite
]
44
45
\definepapersize
46  
[
magazine
]
47  
[
width
=
\dimexpr
\paperwidth
-
.
1
\paperwidth
\relax
,
48   
height
=
\dimexpr
\paperheight
-
.
1
\paperheight
\relax
]
49
\setuppapersize
51  
[
magazine
]
52  
[
A
4
]
53
54
\setupinteractionscreen
55  
[
option
=
doublesided
]
56
57
\setupexternalfigures
58  
[
location
=
{
local
,
default
}
]
59
60
\definecolor
[
OuterColor
]
[
s
=
.
3
]
61
\definecolor
[
InnerColor
]
[
s
=
.
8
]
62
\definecolor
[
MainColor
]
 
[
s
=
.
2
]
63
\definecolor
[
TitleColor
]
[
s
=
.
9
]
64
65
\definecolor
[
MyRed
]
  
[
r
=
.
6
]
66
\definecolor
[
MyGreen
]
[
g
=
.
6
]
67
\definecolor
[
MyBlue
]
 
[
b
=
.
6
]
68
69
\startreusableMPgraphic
{
middlepaper
}
70    
fill
 
OverlayBox
71        
withshademethod
 
"
circular
"
72        
withshadecenter
 
center
 
(
0
,
0.5
)
73        
withshadecolors
 
(
"
InnerColor
"
,
"
OuterColor
"
)
 
;
74
\stopreusableMPgraphic
75
76
\startreusableMPgraphic
{
leftpaper
}
77    
fill
 
OverlayBox
78        
withshademethod
 
"
circular
"
79        
withshadecenter
 
center
 
(
-0.5
,
0.5
)
80        
withshadecolors
 
(
"
InnerColor
"
,
"
OuterColor
"
)
 
;
81
\stopreusableMPgraphic
82
83
\startreusableMPgraphic
{
rightpaper
}
84    
fill
 
OverlayBox
85        
withshademethod
 
"
circular
"
86        
withshadecenter
 
center
 
(
0.5
,
0.5
)
87        
withshadecolors
 
(
"
InnerColor
"
,
"
OuterColor
"
)
 
;
88
\stopreusableMPgraphic
89
90
\startreusableMPgraphic
{
page
}
91    
fill
 
OverlayBox
 
withcolor
 
white
 
;
92
\stopreusableMPgraphic
93
94
\startusableMPgraphic
{
text
}
95    
StartPage
 
;
96        
for
 
i
 
=
 
Header
,
Text
,
Footer
 
:
97            
for
 
j
 
=
 
LeftEdge
,
 
LeftMargin
,
 
Text
,
 
RightMargin
,
 
RightEdge
 
:
98                
draw
 
Field
[
i
]
[
j
]
 
withpen
 
pencircle
 
scaled
 
.5
pt
 
;
99            
endfor
 
;
100        
endfor
 
;
101    
StopPage
 
;
102    
setbounds
 
currentpicture
 
to
 
Field
[
Text
]
[
Text
]
 
;
103
\stopusableMPgraphic
104
105
\startsetups
[
paper
]
106
107    
\doifmodeelse
{
*
makeup
}
 
{
108        
\reuseMPgraphic
{
middlepaper
}
109    
}
 
{
110        
\doifoddpageelse
 
{
111            
\reuseMPgraphic
{
rightpaper
}
112        
}
 
{
113            
\reuseMPgraphic
{
leftpaper
}
114        
}
115    
}
116
117
\stopsetups
118
119
\defineoverlay
[
paper
]
 
[
\setups
{
paper
}
]
120
\defineoverlay
[
page
]
  
[
\reuseMPgraphic
{
page
}
]
121
\defineoverlay
[
text
]
  
[
\doifmode
{
frame
}
{
\useMPgraphic
{
text
}
}
]
122
123
\setupbackgrounds
 
[
paper
]
 
[
background
=
paper
]
124
\setupbackgrounds
 
[
page
]
  
[
background
=
{
page
,
title
}
]
125
\setupbackgrounds
 
[
text
]
  
[
background
=
text
]
126
127
\definelayer
128  
[
title
]
129  
[
state
=
repeat
,
130   
hoffset
=
-
1
cm
,
131   
voffset
=
1
cm
,
132   
width
=
\paperwidth
,
133   
height
=
\paperheight
]
134
135
\setuplayout
136  
[
width
=
middle
,
137   
topspace
=
1
.
5
cm
,
138   
height
=
middle
,
139   
header
=
1
.
5
cm
,
140   
footer
=
1
cm
,
141  
%grid=yes,
142   
headerdistance
=
.
2
5
cm
,
143   
footerdistance
=
.
5
cm
,
144   
backspace
=
3
cm
,
145   
margin
=
1
.
5
cm
,
146   
margindistance
=
.
2
5
cm
,
147   
edge
=
.
7
5
cm
,
148   
edgedistance
=
.
2
5
cm
,
149   
bottomdistance
=
1
.
5
cm
,
150   
bottom
=
.
1
\printpaperheight
]
151
152
\definelayout
153  
[
listing
]
154  
[
backspace
=
1
5
mm
,
155   
curspace
=
1
5
mm
]
156
157
\definelayout
158  
[
makeup
]
159  
[
topspace
=
1
cm
,
160   
backspace
=
1
cm
,
161   
header
=
0
pt
,
162   
footer
=
0
pt
,
163   
bottom
=
0
pt
]
164
165
\setuppagenumbering
166  
[
alternative
=
doublesided
]
167
168
\setupbodyfont
169  
[
pagella
,
1
0
pt
]
170
171
\setuptolerance
172  
[
verytolerant
,
stretch
]
173
174
\appendtoks
175    
\setups
[
papershift
]
%
176
\to
 
\beforeeverypage
177
178
\startsetups
[
papershift
]
179
    
\setuppapersize
[
top
=
\vskip
.
5
cm
,
bottom
=
\vss
]
181
182    
\doifmodeelse
{
*
makeup
}
 
{
        
\setuppapersize
[
left
=
\hfill
,
right
=
\hfill
]
184    
}
 
{
185        
\doifoddpageelse
 
{
            
\setuppapersize
[
right
=
\hfill
]
187        
}
 
{
            
\setuppapersize
[
left
=
\hfill
]
189        
}
190    
}
191
192
\stopsetups
193
194
\setupbottomtexts
195  
[
\setups
{
rightbanner
}
]
 
[
]
196  
[
]
 
[
\setups
{
leftbanner
}
]
197
198
\startsetups
 
[
leftbanner
]
199
200    
\definedfont
[
Regular
*
default
 
at
 
\the
\bottomheight
]
201
202    
\TitleColor
203
204    
\setbox
\scratchbox
\hbox
 
{
205        
\documentvariable
{
main
}
206    
}
207    
\ht
\scratchbox
\exheight
208    
\dp
\scratchbox
\zeropoint
209
210    
\definedfont
[
Regular
*
default
 
sa
 
2
]
211    
\doifsomething
 
{
\documentvariable
{
number
}
}
 
{
212        
\doifnot
 
{
\documentvariable
{
number
}
}
 
{
0
}
 
{
213            
\#
\documentvariable
{
number
}
214        
}
215    
}
216    
\quad
217    
\currentdate
218    
\quad
219    
\scale
220        
[
height
=
.
2
5
\bottomheight
]
221        
{
\box
\scratchbox
}
222    
\quad
223    
\hbox
 
to
 
1
.
5
em
{
\hss
\pagenumber
\hss
}
224    
\quad
225    
\hskip
-
\backspace
226
227
\stopsetups
228
229
\startsetups
 
[
rightbanner
]
230
231    
\definedfont
[
Regular
*
default
 
at
 
\the
\bottomheight
]
232
233    
\TitleColor
234
235    
\setbox
\scratchbox
\hbox
 
{
236        
\documentvariable
{
main
}
237    
}
238    
\ht
\scratchbox
\exheight
239    
\dp
\scratchbox
\zeropoint
240
241    
\hskip
-
\backspace
242    
\definedfont
[
Regular
*
default
 
sa
 
2
]
243    
\quad
244    
\hbox
 
to
 
1
.
5
em
{
\hss
\pagenumber
\hss
}
245    
\quad
246    
\scale
247        
[
height
=
.
2
5
\bottomheight
]
248        
{
\box
\scratchbox
}
249    
\quad
250    
\currentdate
251    
\quad
252    
\doifmode
 
{
atpragma
}
 
{
253        
\#
\documentvariable
{
number
}
254    
}
255
256
\stopsetups
257
258
\startsetups
[
titlepage
]
259
260    
\disablemode
[
frame
]
261
262    
\doifmode
 
{
atpragma
}
 
{
263        
\definecolor
[
pragmacolor
]
 
[
r
=
1
,
g
=
.
6
2
,
b
=
.
0
6
]
 
% (Pantone 138 CV)
264        
\definecolor
[
OuterColor
]
[
.
3
(
\documentvariable
{
color
}
)
]
265    
}
266
267    
\setuplayout
[
makeup
]
268
269    
\startstandardmakeup
[
doublesided
=
no
]
270
271        
\dontcomplain
272
273        
\definelayer
274          
[
makeup
]
275          
[
width
=
\textwidth
,
276           
height
=
\textheight
]
277
278        
\setlayerframed
 
[
279                
makeup
280            
]
 
[
281                
corner
=
{
left
,
top
}
,
282                
location
=
{
right
,
bottom
}
283            
]
 
[
284                
frame
=
off
,
285                
foregroundcolor
=
MainColor
286            
]
 
{
287                
\scale
288                    
[
width
=
\makeupwidth
]
289                    
{
290                        
\definedfont
[
Regular
*
default
 
sa
 
1
0
]
291                        
\documentvariable
{
main
}
292                    
}
293            
}
294
295        
\setlayerframed
 
[
296                
makeup
297            
]
 
[
298                
corner
=
{
right
,
top
}
,
299                
location
=
{
left
}
,
300                
y
=
.
4
\textheight
301            
]
 
[
302                
frame
=
off
,
303                
foregroundcolor
=
MainColor
,
304                
width
=
\textwidth
,
305                
align
=
left
306            
]
 
{
307                
\definedfont
[
Regular
*
default
 
sa
 
2
.
5
]
308                
\setupinterlinespace
309                
\startmode
[
atpragma
]
310                    
\strut
 
\ConTeXt
\ 
magazine
 
\#
\documentvariable
{
number
}
\endgraf
311                
\stopmode
312                
\strut
 
\documentvariable
{
date
}
 
\endgraf
313                
\blank
314                
\strut
 
\documentvariable
{
title
}
\endgraf
315                
\doifsomething
 
{
\documentvariable
{
author
}
}
 
{
316                    
\strut
 
\documentvariable
{
author
}
\endgraf
317                
}
318                
\doifsomething
 
{
\documentvariable
{
affiliation
}
}
 
{
319                    
\strut
 
\documentvariable
{
affiliation
}
\endgraf
320                
}
321            
}
322
323        
\setlayerframed
 
[
324            
makeup
325        
]
 
[
326            
corner
=
{
right
,
bottom
}
,
327            
location
=
{
left
,
top
}
328        
]
 
[
329            
frame
=
off
,
330            
align
=
normal
,
331            
width
=
.
8
\textwidth
,
332            
foregroundcolor
=
MainColor
333        
]
 
{
334            
\getbuffer
[
abstract
]
335        
}
336
337        
\flushlayer
[
makeup
]
338
339    
\stopstandardmakeup
340
341    
\setuplayout
[
reset
]
342
343
\stopsetups
344
345
\startsetups
[
cleanup
]
346
347    
\page
348
349    
\setuptexttexts
350      
[
margin
]
351      
[
]
 
[
]
352
353
\stopsetups
354
355
\startsetups
[
listing
]
356
357    
\page
 
\disablemode
[
frame
]
358
359    
\setuptexttexts
  
[
]
[
]
 
\setuptexttexts
  
[
]
360    
\setupheadertexts
[
]
[
]
 
\setupheadertexts
[
source
 
code
 
of
 
this
 
document
]
361    
\setupfootertexts
[
]
[
]
 
\setupfootertexts
[
]
362
363    
\setuplayout
[
listing
]
364
365    
\start
366
367        
\dontcomplain
368
369        
\switchtobodyfont
[
8
pt
]
370
371        
\scitefile
[
\jobfilefullname
]
372
373        
\page
374
375    
\stop
376
377    
\setuplayout
378
379
\stopsetups
380
381
\startsetups
[
lastpage
]
382
383    
\page
 
\disablemode
[
frame
]
 
\page
[
even
]
384
385    
\doifoddpageelse
 
{
386    
}
 
{
387        
\setuplayout
[
makeup
]
388        
\startstandardmakeup
[
doublesided
=
no
,
page
=
]
389        
\stopstandardmakeup
390        
\setuplayout
[
reset
]
391    
}
392
393
\stopsetups
394
395
\startsetups
[
title
]
396
397    
\disablemode
[
frame
]
398
399    
\setlayerframed
 
[
400            
title
401        
]
 
[
402            
corner
=
{
left
,
top
}
,
403            
location
=
{
left
,
bottom
}
,
404            
rotation
=
9
0
405        
]
 
[
406            
frame
=
off
,
407            
foregroundcolor
=
TitleColor
408        
]
 
{
409            
\definedfont
[
RegularBold
*
default
 
sa
 
2
]
410            
\strut
\documentvariable
{
title
}
411        
}
412
413    
\setlayerframed
 
[
414            
title
415        
]
 
[
416            
corner
=
{
right
,
top
}
,
417            
rotation
=
2
7
0
418        
]
 
[
419            
frame
=
off
,
420            
foregroundcolor
=
TitleColor
421        
]
 
{
422            
\definedfont
[
RegularBold
*
default
 
sa
 
2
]
423            
\strut
\documentvariable
{
title
}
424        
}
425
426    
\doifsomething
 
{
\documentvariable
{
subtitle
}
}
 
{
427        
\setupheadertexts
[
\documentvariable
{
subtitle
}
]
428    
}
429
430
\stopsetups
431
432
\startbuffer
[
abstract
]
433    
% no abstract
434
\stopbuffer
435
436
\setuphead
437  
[
chapter
]
438  
[
page
=
yes
,
439   
after
=
{
\blank
[
2
*
big
]
}
,
440   
color
=
MainColor
,
441   
style
=
\bfc
]
442
443
\setuphead
444  
[
section
]
445  
[
before
=
{
\blank
[
2
*
big
]
}
,
446   
after
=
\blank
,
447   
color
=
MainColor
,
448   
style
=
\bfb
]
449
450
\setuphead
451  
[
subsection
]
452  
[
before
=
\blank
,
453   
after
=
,
454   
color
=
MainColor
,
455   
style
=
\bf
]
456
457
\setupwhitespace
458  
[
big
]
459
460
\definetyping
[
xtyping
]
 
[
style
=
\ttx
]
461
\definetyping
[
xxtyping
]
[
style
=
\ttxx
]
462
463
% \definetyping[ntyping] \setuptyping[ntyping][style=\narrowtt]
464
% \definetype  [ntype]   \setuptype  [ntype]  [style=\narrowtt]
465
466
\setupdocument
467  
[
main
=
{
\doifelsemode
{
atpragma
}
{
This
 
Way
}
{
My
 
Way
}
}
,
468  
%color=pragmacolor,
469   
title
=
{
No
 
Title
}
,
470   
subtitle
=
,
471   
author
=
{
No
 
Author
}
,
472   
affiliation
=
,
473   
date
=
{
No
 
Date
}
,
474   
number
=
0
,
475   
before
=
{
\setups
[
titlepage
,
title
]
}
,
476   
after
=
{
\setups
[
cleanup
,
listing
,
lastpage
]
}
]
477
478
\continueifinputfile
 
{
s
-
magazine
-
basic
.
mkiv
}
479
480
\startbuffer
[
abstract
]
481    
This
 
is
 
the
 
zero
 
issue
 
of
 
a
 
semi
 
periodical
.
 
The
 
associated
 
style
 
can
 
be
 
used
482    
by
 
\CONTEXT
\ 
users
 
to
 
typeset
 
and
 
publish
 
their
 
own
 
issues
.
483
\stopbuffer
484
485
\startdocument
486  
[
title
=
{
Introduction
}
,
487   
subtitle
=
{
Welcome
}
,
488   
author
=
{
Hans
 
Hagen
}
,
489   
affiliation
=
PRAGMA
 
ADE
,
490   
date
=
Januari
 
2
0
0
3
,
491   
number
=
0
 
\MKIV
]
492
493
This
 
is
 
the
 
zero
 
issue
 
of
 
a
 
range
 
of
 
\CONTEXT
\ 
related
 
publications
,
 
in
 
most
494
cases
 
short
 
introductions
 
to
 
new
 
functionality
.
 
The
 
style
 
may
 
be
 
used
 
by
 
users
495
for
 
providing
 
similar
 
documents
,
 
but
 
preferably
 
not
 
for
 
other
 
purposes
,
 
since
 
it
496
may
 
confuse
 
readers
 
in
 
their
 
expectations
.
497
498
We
'
ve
 
chosen
 
a
 
layout
 
which
 
is
 
more
 
functional
 
than
 
beautiful
.
 
This
 
layout
499
provides
 
several
 
text
 
areas
:
 
headers
 
and
 
footers
,
 
margins
 
and
 
edges
 
as
 
well
 
as
 
a
500
main
 
text
 
area
.
 
The
 
surrounding
 
(
gray
 
or
 
color
)
 
makes
 
the
 
main
 
page
 
(
which
 
is
501
slightly
 
smaller
 
than
 
A
4
)
 
stand
 
out
 
and
 
is
 
suitable
 
for
 
viewing
 
in
 
spread
 
mode
.
502
503
The
 
documents
 
produced
 
at
 
\PRAGMA
\ 
are
 
called
 
{
\bf
 
This
 
Way
}
,
 
user
 
documents
 
gets
504
the
 
title
 
{
\bf
 
My
 
Way
}
.
 
The
 
\PRAGMA
\ 
issues
 
are
 
numbered
.
 
We
 
strongly
 
advise
 
you
505
not
 
to
 
use
 
the
 
\type
 
{
mag
-
}
 
prefix
 
for
 
your
 
issues
,
 
since
 
this
 
may
 
lead
 
to
506
clashes
 
with
 
files
 
distributed
 
by
 
\PRAGMA
.
507
508
\stopdocument
509