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