SourceBrowser

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