s-present-stepper.mkiv /size: 5378 b    last modification: 2020-07-01 14:35
1
%D \module
2
%D [ file=s-present-stepper, % was s-pre-61
3
%D version=2004.03.15,
4
%D title=\CONTEXT\ Style File,
5
%D subtitle=Presentation Environment Stepper,
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 Optima
15 16
\startmodule
[
present
-
stepper
]
17 18
\usemodule
[
pre
-
6
0
]
19 20
\doifmodeelse
{
atpragma
,
asintended
}
{
21
\usetypescriptfile
[
ghz
]
22
\definetypeface
[
mainface
][
ss
][
sans
][
optima
-
nova
][
default
]
23
}
{
24
\usetypescriptfile
[
type
-
ghz
]
25
\definetypeface
[
mainface
][
ss
][
sans
][
optima
-
nova
][
default
][
encoding
=
\defaultencoding
]
26
}
27 28
\setupbodyfont
[
mainface
,
ss
,
1
8
pt
]
29 30
\setupinterlinespace
31
[
line
=
3
.
2
5
ex
]
32 33
\setuppapersize
34
[
S
6
][
S
6
]
35 36
% \setuppapersize
37
% [SW][SW]
38 39
\setuplayout
40
[
topspace
=
1
0
pt
,
41
header
=
3
0
pt
,
42
headerdistance
=
2
0
pt
,
43
height
=
middle
,
44
footerdistance
=
2
0
pt
,
45
footer
=
0
pt
,
46
bottomdistance
=
2
0
pt
,
47
bottom
=
2
0
pt
,
48
bottomspace
=
5
0
pt
,
49
backspace
=
3
0
pt
,
50
width
=
middle
]
51 52
\setupinteraction
53
[
state
=
start
,
54
click
=
off
,
55
menu
=
on
,
56
style
=
,
57
color
=
interactioncolor
,
58
contrastcolor
=
interactioncolor
]
59 60
\setupinteractionscreen
61
[
option
=
max
]
62 63
\setupinteractionmenu
64
[
bottom
]
65
[
color
=
maincolor
,
66
contrastcolor
=
maincolor
,
67
style
=
\tfa
,
% acceptable
68
left
=
\hfill
,
69
middle
=
,
70
right
=
,
71
height
=
\bottomheight
,
72
width
=
2
\bottomheight
,
73
offset
=
overlay
,
74
frame
=
off
]
75 76
\startinteractionmenu
[
bottom
]
77
\but
[
firstpage
]
\symbol
[
firstpage
]
\\
78
\but
[
previouspage
]
\symbol
[
previouspage
]
\\
79
\but
[
InvokeStepper
]
\StartBusy
\symbol
[
PauseRendering
]
\StopBusy
\\
80
\but
[
nextpage
]
\symbol
[
nextpage
]
\\
81
\but
[
lastpage
]
\symbol
[
lastpage
]
\\
82
\but
[
CloseDocument
]
\symbol
[
CloseDocument
]
\\
83
\stopinteractionmenu
84 85
% maybe in colo-sjk : \setupcolor[sjk]
86 87
\definecolor
[
dark
]
[
s
=
.
4
]
88
\definecolor
[
bright
]
[
s
=
.
9
]
89 90
\definecolor
[
red
]
[
r
=
.
4
,
g
=
.
2
,
b
=
.
2
]
91
\definecolor
[
green
]
[
r
=
.
2
,
g
=
.
4
,
b
=
.
2
]
92
\definecolor
[
blue
]
[
r
=
.
2
,
g
=
.
2
,
b
=
.
4
]
93 94
\definecolor
[
cyan
]
[
r
=
.
2
,
g
=
.
4
,
b
=
.
4
]
95
\definecolor
[
magenta
]
[
r
=
.
4
,
g
=
.
2
,
b
=
.
4
]
96
\definecolor
[
yellow
]
[
r
=
.
4
,
g
=
.
4
,
b
=
.
2
]
97 98
\definecolor
[
pagecolor
]
[
dark
]
99
\definecolor
[
maincolor
]
[
bright
]
100
\definecolor
[
textcolor
]
[
red
]
101 102
\definecolor
[
interactioncolor
]
[
r
=
.
8
,
g
=
.
8
,
b
=
.
6
]
103 104
\setupcolors
105
[
textcolor
=
maincolor
]
106 107
\setupbackgrounds
108
[
page
]
109
[
background
=
page
,
110
backgroundcolor
=
textcolor
]
111 112
\setupbackgrounds
113
[
text
]
% [text]
114
[
background
=
{
comments
,
text
,
invoke
}
]
115 116
\definelayer
117
[
text
]
118
[
width
=
\textwidth
,
119
height
=
\textheight
]
120 121
\defineoverlay
122
[
comments
]
123
[
{
\setlayer
[
text
][
preset
=
middle
]
{
\placecomments
}}
]
124 125
\defineoverlay
[
page
][
\uniqueMPgraphic
{
page-\ifcase\realpageno\or one\else plus\fi
}
]
126 127
\startuniqueMPgraphic
{
page-one
}
128
StartPage
;
129
fill
Page
130
enlarged
4
pt
131
withcolor
\MPcolor
{
pagecolor
}
;
132
fill
Field
[
Text
]
[
Text
]
133
enlarged
10
pt
134
% topenlarged (HeaderHeight+HeaderDistance)
135
leftenlarged
(
BackSpace
+4
pt
)
136
rightenlarged
(
CutSpace
+4
pt
)
137
withcolor
OverlayColor
;
138
StopPage
;
139
\stopuniqueMPgraphic
140 141
\startuniqueMPgraphic
{
page-plus
}
142
StartPage
;
143
fill
Page
144
enlarged
4
pt
145
withcolor
\MPcolor
{
pagecolor
}
;
146
fill
Field
[
Text
]
[
Text
]
147
enlarged
10
pt
148
leftenlarged
(
BackSpace
+4
pt
)
149
rightenlarged
(
CutSpace
+4
pt
)
150
withcolor
OverlayColor
;
151
StopPage
;
152
\stopuniqueMPgraphic
153 154
\startsetups
fonts
:
normalize
155
\definefont
[
HeadFont
]
[
SansBold
*
default
ht
\the\dimexpr
0
.
7
5
0
\headerheight
\relax
]
156
\definefont
[
TitleFont
]
[
SansBold
*
default
ht
\the\dimexpr
1
.
5
0
0
\headerheight
\relax
]
157
\definefont
[
SubTitleFont
]
[
SansBold
*
default
ht
\the\dimexpr
0
.
3
7
5
\headerheight
\relax
]
158
\definefont
[
SubSubTitleFont
]
[
SansBold
*
default
ht
\the\dimexpr
0
.
7
5
0
\headerheight
\relax
]
159
\stopsetups
160 161
\setuphead
162
[
chapter
]
163
[
placehead
=
empty
,
164
after
=
{
\blank
[
medium
]
}
,
165
color
=
maincolor
,
166
placenumber
=
no
,
167
style
=
\HeadFont
]
168 169
\setupheadertexts
170
[
\doiftextelse
{
\currentheadnumber
}{
\placeheadtext
[
Topic
]
}{
\placeheadtext
[
Nopic
]
}
]
171
[]
172 173
\setuppagenumbering
174
[
location
=]
175 176
\definesymbol
177
[
emdash
]
178
[
\emdash
]
179 180
\setupitemize
181
[
each
]
182
[
loose
,
serried
,
joinedup
,
broad
]
183
[
symbol
=
emdash
]
184 185
\setupalign
186
[
broad
,
right
]
187 188
\def
\doTitlePage
#
1
#
2
#
3
%
189
{
\setups
[
fonts
:
normalize
]
190
\resetsetups
[
fonts
:
normalize
]
191
\startstandardmakeup
[
headerstate
=
high
]
192
\def
\\
{
\def
\\
{
\endgraf\quad\quad
}
\endgraf\quad
\ignorespaces
#
2
}
%
193
#
1
\setstrut
\setupinterlinespace
\vfil
#
3
\vfil\vfil
194
\stopstandardmakeup
}
195 196
\unexpanded
\def
\TitlePage
{
\doTitlePage
\TitleFont
\relax
}
197
\unexpanded
\def
\SubTitlePage
{
\doTitlePage
\TitleFont
\SubTitleFont
}
198 199
\definehead
[
Topic
][
chapter
]
200
\definehead
[
Nopic
][
title
]
201 202
\unexpanded
\def
\Topics
#
1
%
203
{
\Nopic
[
topics
]
{
#
1
}
204
\startcolumns
205
\placelist
[
Topic
]
206
\stopcolumns
}
207 208
\setuplist
209
[
Topic
]
210
[
alternative
=
f
,
211
color
=
maincolor
,
212
contrastcolor
=
maincolor
,
213
criterium
=
all
]
214 215
\defineoverlay
[
topics
][
\overlaybutton
{
topics
}
]
216 217
\setupbackgrounds
218
[
bottom
]
[
text
]
219
[
background
=
topics
]
220 221
\stopmodule
222 223
\continueifinputfile
{
s
-
present
-
stepper
.
mkiv
}
224 225
\usemodule
[
present
-
common
]
226 227
\inputpresentationfile
{
examples
/
present
-
stepper
-
0
0
1
.
tex
}
228