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,18pt]
31
32\setupinterlinespace
33  [line=3.25ex]
34
35\setuppapersize
36  [S6][S6]
37
38% \setuppapersize
39%   [SW][SW]
40
41\setuplayout
42  [topspace=10pt,
43   header=30pt,
44   headerdistance=20pt,
45   height=middle,
46   footerdistance=20pt,
47   footer=0pt,
48   bottomdistance=20pt,
49   bottom=20pt,
50   bottomspace=50pt,
51   backspace=30pt,
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 4pt
133            withcolor \MPcolor{pagecolor} ;
134        fill Field[Text][Text]
135            enlarged 10pt
136          % topenlarged   (HeaderHeight+HeaderDistance)
137            leftenlarged  (BackSpace+4pt)
138            rightenlarged (CutSpace +4pt)
139            withcolor OverlayColor ;
140    StopPage ;
141\stopuniqueMPgraphic
142
143\startuniqueMPgraphic{page-plus}
144    StartPage ;
145        fill Page
146            enlarged 4pt
147            withcolor \MPcolor{pagecolor} ;
148        fill Field[Text][Text]
149            enlarged 10pt
150            leftenlarged  (BackSpace+4pt)
151            rightenlarged (CutSpace+4pt)
152            withcolor OverlayColor ;
153    StopPage ;
154\stopuniqueMPgraphic
155
156\startsetups fonts:normalize
157    \definefont[HeadFont]        [SansBold*default ht \the\dimexpr0.750\headerheight\relax]
158    \definefont[TitleFont]       [SansBold*default ht \the\dimexpr1.500\headerheight\relax]
159    \definefont[SubTitleFont]    [SansBold*default ht \the\dimexpr0.375\headerheight\relax]
160    \definefont[SubSubTitleFont] [SansBold*default ht \the\dimexpr0.750\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-001.tex}
230