Source Browser ?

1
%D \module
2
%D   [      file=s-pre-66,
3
%D        version=2009.02.24,
4
%D          title=\CONTEXT\ Style File,
5
%D       subtitle=Presentation Environment 66,
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 Cambria (made in the aftermath of testing \OPENTYPE\ math).
15
16
% \enablemode[paper]
17
18
\usemodule
[
pre
-
6
0
]
19
\usemodule
[
abr
-
0
1
]
20
21
\definepapersize
22  
[
wide
]
23  
[
width
=
9
6
0
pt
,
24   
height
=
6
0
0
pt
]
25
\setuppapersize
27  
[
wide
]
28  
[
wide
]
29
30
\setuplayout
31  
[
topspace
=
2
0
pt
,
32   
bottomspace
=
2
0
pt
,
33   
header
=
0
pt
,
34   
footer
=
0
pt
,
35   
backspace
=
2
0
pt
,
36   
height
=
middle
,
37   
rightmargin
=
0
pt
,
38   
rightedge
=
\dimexpr
2
2
0
pt
-
4
0
pt
\relax
,
39   
rightedgedistance
=
4
0
pt
,
40   
leftedge
=
0
pt
,
41   
leftmargin
=
0
pt
,
42   
cutspace
=
2
2
0
pt
,
43   
width
=
\dimexpr
9
6
0
pt
-
4
0
pt
-
2
2
0
pt
\relax
]
44
45
\definebodyfontenvironment
46  
[
2
0
pt
]
47
48
\definefontfeature
[
default
][
default
][
mode
=
node
,
script
=
latn
]
49
50
\usetypescript
51  
[
cambria
]
52
53
\setupbodyfont
54  
[
cambria
,
2
0
pt
]
 
\bf
55
56
\setupwhitespace
57  
[
big
]
58
59
\setupcolors
60  
[
state
=
start
]
61
62
\definecolor
[
pagecolor
][
s
=
.
2
5
]
63
\definecolor
[
edgecolor
][
b
=
.
5
0
,
g
=
.
7
5
,
r
=
.
7
5
]
64
65
\setupinteraction
66  
[
state
=
start
,
67   
click
=
no
,
68   
color
=
,
69   
contrastcolor
=]
70
71
\defineoverlay
[
pagegraphic
][
\reuseMPgraphic
{
pagegraphic
}
]
72
73
\startuseMPgraphic
{
pagegraphic
}
74    
StartPage
 
;
75        
fill
 
Page
 
enlarged
 
10
pt
 
withcolor
 
\MPcolor
{
pagecolor
}
 
;
76        
fill
 
Page
 
enlarged
 
10
pt
 
leftenlarged
 
(
CutSpace
 
-
 
bbwidth
(
Page
)
 
-
 
10
pt
)
 
withcolor
 
\MPcolor
{
edgecolor
}
 
;
77    
%   fill Field[Text][RightEdge] withcolor green ;
78    
%   fill Field[Text][Text] withcolor yellow ;
79    
StopPage
 
;
80
\stopuseMPgraphic
81
82
\setupbackgrounds
83  
[
page
]
84  
[
background
=
pagegraphic
]
85
86
\setupbackgrounds
87  
[
text
]
88  
[
rightedge
]
89  
[
background
=
edge
]
90
91
\definelayer
92  
[
edge
]
93  
[
width
=
\rightedgewidth
,
94   
state
=
repeat
]
95
96
\setuphead
97  
[
chapter
]
98  
[
style
=
\bfc
,
99   
color
=
edgecolor
]
100
101
\setupcolors
102  
[
textcolor
=
edgecolor
]
103
104
\newcounter
\MyCounter
105
106
\def
\StartRemark
#
1
%
107  
{
\doglobal
\increment
\MyCounter
 
% hm, we could use the autoref (todo in cont-xp)
108   
\title
[
topic
:
\MyCounter
]
{
#
1
}
109   
\setlayer
[
edge
][
preset
=
middletop
,
y
=
\thelayerheight
{
edge
}
]
{
\strut
\color
[
pagecolor
]
{
\bf
\goto
{
#
1
}
[
topic
:
\MyCounter
]
}}
110   
\StartSteps
}
111
112
\def
\StopRemark
113  
{
\StopSteps
114   
\page
}
115
116
\def
\StartRemark
#
1
%
117  
{
\doglobal
\increment
\MyCounter
 
% hm, we could use the autoref (todo in cont-xp)
118   
\title
[
topic
:
\MyCounter
]
{
#
1
}
119   
\StartSteps
120   
\def
\StopRemark
121     
{
\StopSteps
122      
\page
123      
\setlayer
[
edge
][
preset
=
middletop
,
y
=
\thelayerheight
{
edge
}
]
{
\strut
\color
[
pagecolor
]
{
\bf
\goto
{
#
1
}
[
topic
:
\MyCounter
]
}}}}
124
125
\def
\StartTitlePage
126  
{
\startstandardmakeup
[
top
=
\vss
,
bottom
=
\vss\vss
]
127   
\definedfont
[
Bold
 
sa
 
4
]
128   
\raggedcenter
129   
\setupinterlinespace
130   
\baselineskip
=
1
\baselineskip
 
plus
 
1
fil
 
minus
 
1
fil
\relax
}
131
132
\def
\StopTitlePage
133  
{
\stopstandardmakeup
}
134
135
\doifnotmode
{
demo
}
 
{
\endinput
}
136
137
\starttext
138
139
\StartTitlePage
 
x
\\
y
\\
z
 
\StopTitlePage
140
141
\StartRemark
{
a
}
142    
a
 
\FlushStep
143    
a
 
\FlushStep
144
\StopRemark
145
146
\StartRemark
{
b
}
147    
b
 
\FlushStep
148    
b
 
\FlushStep
149    
b
 
\FlushStep
150
\StopRemark
151
152
\StartRemark
{
c
}
153    
c
 
\FlushStep
154    
c
 
\FlushStep
155    
c
 
\FlushStep
156    
c
 
\FlushStep
157
\StopRemark
158
159
\stoptext
160
161
162