s-pre-27.tex /size: 4040 b    last modification: 2020-07-01 14:35
1%D \module
2%D   [      file=s-pre-27,
3%D        version=1999.08.20,
4%D          title=\CONTEXT\ Style File,
5%D       subtitle=Presentation Environment 27,
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\setuppapersize
15  [S6][S6]
16
17% \setupbodyfont[ppl]
18
19\definetypeface[main][rm][casual][informal][default]
20\loadmapfile[original-micropress-informal.map]
21
22\setupbodyfont[main,10pt]
23
24\setuplayout
25  [footerdistance=20pt,
26   footer=40pt,
27  %footer=24pt,
28  %bottomdistance=10pt,
29  %bottom=12pt,
30   header=0pt,
31   backspace=20pt,
32   topspace=20pt,
33   width=middle,
34   height=fit]
35
36% \def\MainTitle#1{\setupfootertexts[\hfill#1]}
37% \def\SubTitle #1{\setupbottomtexts[\hfill#1]}
38%
39% \MainTitle{a dull talk held at \currentdate}
40% \SubTitle {welcome to whatever}
41%
42% \setupbottom
43%   [style=\ssbf,
44%    color=white]
45%
46% \setupfooter
47%   [style=\ssbfb,
48%    color=white]
49
50\setupfooter
51  [strut=no,
52   style=\bfb,
53   color=white]
54
55\setupinteraction
56  [state=start]
57
58\setupinteractionscreen
59  [option=max]
60
61\definecolor[white] [s=.8]
62\definecolor[red]   [r=.7]
63\definecolor[green] [g=.7]
64\definecolor[blue]  [b=.7]
65\definecolor[yellow][r=.7,g=.7]
66
67\setupcolors
68  [state=start]
69
70\defineoverlay [page]     [\reuseMPgraphic{page}]
71\defineoverlay [text]     [\useMPgraphic  {text}]
72\defineoverlay [continue] [\overlaybutton {forward}]
73
74\setupbackgrounds
75  [page]
76  [background={page,continue}]
77
78\definecolor [PageColor] [red]
79\definecolor [TextColor] [yellow]
80
81\defineframedtext
82  [TopicPage]
83
84\defineframedtext
85  [TopicText]
86
87\setupframedtexts
88  [TopicPage]
89  [width=\textwidth,
90   height=\textheight,
91   offset=overlay]
92
93\setupframedtexts
94  [TopicText]
95  [offset=10pt,
96   style=bold, % hm
97   width=\TopicWidth,
98   background=text,
99   align=normal]
100
101\setupframedtexts
102  [TopicPage,TopicText]
103  [frame=off,
104   depthcorrection=off,
105   before=,
106   after=]
107
108\newbox     \TopicBox
109\newcounter \KindOfTopic
110\newdimen   \TopicWidth
111
112\def\KindOfTopic{1}
113
114\def\StartTopic
115  {\getrandomdimen\TopicWidth{.5\textwidth}{.7\textwidth}
116   \ifcase\KindOfTopic\or
117     \setupframedtexts [TopicPage] [align={right,high}] \or
118     \setupframedtexts [TopicPage] [align={left,high}]  \or
119     \setupframedtexts [TopicPage] [align={left,low}]   \or
120     \setupframedtexts [TopicPage] [align={right,low}]  \fi
121   \setbox\scratchbox=\vbox \bgroup \dontcomplain
122     \noindent \startTopicPage [none]
123       \noindent \startTopicText [none]
124         \setuptolerance [verytolerant,stretch]}
125
126\def\StopTopic%
127  {\stopTopicText
128   \stopTopicPage
129   \egroup
130   \global\setbox\TopicBox=\vbox
131     {\startoverlay
132        {\box\TopicBox} {\box\scratchbox}
133      \stopoverlay}
134   \copy\TopicBox
135   \ifnum\KindOfTopic=4
136     \def\KindOfTopic{1}
137   \else
138     \increment\KindOfTopic
139   \fi
140   \page}
141
142\startuseMPgraphic{text}
143  path p ; p := unitsquare xyscaled (OverlayWidth,OverlayHeight) ;
144  color c ; c := (.7+uniformdeviate.3)*\MPcolor{TextColor} ;
145  p := p enlarged -1.25pt ;
146  fill p withcolor c ;
147  draw p withpen pencircle scaled 2.5pt withcolor .75c ;
148\stopuseMPgraphic
149
150\startreusableMPgraphic{page}
151  path p ; p := unitsquare xyscaled (OverlayWidth,OverlayHeight) ;
152  color c ; c := \MPcolor{PageColor} ;
153  fill p withcolor c ;
154  draw p withpen pencircle scaled 2.5pt withcolor c ;
155\stopreusableMPgraphic
156
157\def\StartNopic#1\StopNopic
158  {\setupfootertexts
159     [\vbox to \footerheight
160        {\vfill
161         \raggedleft
162         \def\\{\endgraf\tx\setstrut\strut}
163         \setstrut\strut\ignorespaces#1\unskip\endgraf\removedepth}]
164   \null \page}
165
166\def\TitlePage#1%
167  {\StartNopic#1\StopNopic}
168
169\setuphead[title]  [style=\bfc,after=\blank]
170\setuphead[subject][style=\bfa,before=\blank]
171
172\doifnotmode{demo}{\endinput}
173
174\starttext
175
176\TitlePage
177  {a dull talk held at \currentdate\\welcome to whatever}
178
179\dorecurse{10}{\StartTopic \input tufte \StopTopic}
180
181\stoptext
182