s-pre-12.tex /size: 5469 b    last modification: 2020-07-01 14:35
1
%D \module
2
%D [ file=s-pre-12,
3
%D version=1999.08.20,
4
%D title=\CONTEXT\ Style File,
5
%D subtitle=Presentation Environment 12,
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
6
][
S
6
]
16 17
\setuplayout
18
[
topspace
=
0
cm
,
19
backspace
=
0
cm
,
20
header
=
0
pt
,
21
footer
=
0
pt
,
22
width
=
middle
,
23
height
=
middle
]
24 25
\setupbodyfont
26
[
1
4
.
4
pt
,
lbr
]
27 28
\setupcolors
29
[
state
=
start
]
30 31
\setupinteraction
32
[
click
=
no
,
33
display
=
new
,
34
state
=
start
]
35 36
\setupinteractionscreen
37
[
option
=
max
]
38 39
\def
\SomeShape
%
40
{
\resetMPdrawing
41
\startMPdrawing
42
path
p
;
pair
a
,
b
;
43
ahlength
:
=
.
3
7
5
cm
;
44
StartPage
;
45
draw
Page
%unitsquare
46
%xscaled PaperWidth yscaled PaperHeight
47
withpen
pencircle
scaled
.
5
cm
48
withcolor
\MPcolor
{
EdgeColor
}
;
49
\stopMPdrawing
50
\dorecurse
{
\CurrentTopic
}
51
{
\startMPdrawing
52
initialize
_
box
(
\MPpos
{
topic
-
\realfolio
-
\recurselevel
}
)
;
53
p
:
=
tensecircle
(
wxy
,
hxy
,
.
2
5
cm
)
shifted
cxy
;
54
fill
p
withcolor
.
9
white
;
55
pickup
pencircle
scaled
.
2
5
cm
;
56
\ifnum
\recurselevel
=
\CurrentTopic
57
draw
p
withcolor
\MPcolor
{
ShowColor
}
;
58
a
:
=
bot
point
7
of
p
;
59
\else
60
draw
p
withcolor
\MPcolor
{
DoneColor
}
;
61
\fi
62
\stopMPdrawing
}
63
\dorecurse
{
\CurrentMaxItem
}
64
{
\startMPdrawing
65
initialize
_
box
(
\MPpos
{
item
-
\realfolio
-
\recurselevel
}
)
;
66
linewidth
:
=
.
2
5
cm
;
67
p
:
=
tensecircle
(
wxy
,
hxy
,
linewidth
)
shifted
cxy
;
68
fill
p
withcolor
.
9
white
;
69
pickup
pencircle
scaled
linewidth
;
70
b
:
=
rt
point
3
of
p
;
71
\ifnum
\recurselevel
=
\CurrentMaxItem
72
draw
p
withcolor
\MPcolor
{
ShowColor
}
;
73
\else
74
draw
p
withcolor
\MPcolor
{
DoneColor
}
;
75
\fi
76
dxab
:
=
xpart
a
-
xpart
b
;
77
dyab
:
=
ypart
a
-
ypart
b
;
78
sign
:
=
if
dyab
>
0
:
-
fi
1
;
79
drawarrow
80
a
--
81
a
shifted
(
+
2
linewidth
-
dxab
/
2
,
0
)
{
left
}
.
.
82
if
abs
(
dyab
)>
4
linewidth
:
83
a
shifted
(
-
dxab
/
2
,
+
sign
*
2
linewidth
)
--
84
b
shifted
(
+
dxab
/
2
,
-
sign
*
2
linewidth
)
.
.
85
fi
86
{
left
}
b
shifted
(
-
2
linewidth
+
dxab
/
2
,
0
)
--
87
b
88
withcolor
\MPcolor
{
ArrowColor
}
;
89
\stopMPdrawing
}
%
90
\startMPdrawing
91
StopPage
;
92
\stopMPdrawing
93
\MPdrawingdonetrue
94
\getMPdrawing
}
95 96
\definecolor
[
PageColor
][
r
=
.
5
,
g
=
.
4
,
b
=
.
3
]
97
\definecolor
[
LineColor
][
r
=
.
7
,
g
=
.
6
,
b
=
.
5
]
98 99
\definecolor
[
PageColor
]
[
s
=
.
6
0
]
100
\definecolor
[
ShowColor
]
[
r
=
.
4
0
]
101
\definecolor
[
EdgeColor
]
[
g
=
.
4
0
]
102
\definecolor
[
DoneColor
]
[
r
=
.
4
0
,
g
=
.
4
0
]
103
\definecolor
[
ArrowColor
]
[
b
=
.
4
0
]
104
\definecolor
[
LineColor
]
[
r
=
.
6
0
,
g
=
.
6
0
]
105
\definecolor
[
GotoColor
]
[
ArrowColor
]
106 107
\setupinteraction
[
color
=
GotoColor
,
contrastcolor
=
GotoColor
]
108 109
\defineoverlay
[
shape
]
[
\SomeShape
]
110
\defineoverlay
[
next
]
[
\overlaybutton
{
forward
}
]
111 112
\setupbackgrounds
113
[
page
]
114
[
background
=
{
color
,
next
,
shape
}
,
115
backgroundcolor
=
PageColor
]
116 117
\doglobal
\newcounter
\CurrentItem
118
\doglobal
\newcounter
\CurrentTopic
119
\doglobal
\newcounter
\CurrentMaxItem
120 121
\def
\StartIdea
%
122
{
\doglobal
\newcounter
\CurrentItem
}
123 124
\def
\StartTopic
%
125
{
\doglobal
\increment
\CurrentTopic
126
\dostartbuffer
[
topic
-
\CurrentTopic
][
StartTopic
][
StopTopic
]
}
127 128
\def
\StopIdea
%
129
{
\dorecurse
{
\CurrentItem
}
130
{
\let
\CurrentMaxItem
\recurselevel
131
\doStopIdea
}}
132 133
\def
\IdeaWidth
{
.
6
\makeupwidth
}
% .5
134
\def
\TopicWidth
{
.
2
\makeupwidth
}
% .3
135 136
\def
\doStopIdea
%
137
{
\startstandardmakeup
138
\dontcomplain
139
\vbox
to
\makeupheight
140
{
\vskip
.
7
5
cm
\relax
% \vfill
141
\dorecurse
{
\CurrentMaxItem
}
142
{
\edef
\Item
{
item
-
\realfolio
-
\recurselevel
}
143
\hbox
to
\makeupwidth
144
{
\hskip
.
7
5
cm
145
\hpos
146
{
\Item
}
147
{
\framed
148
[
width
=
\IdeaWidth
,
frame
=
off
,
149
align
=
middle
,
offset
=
.
1
2
5
cm
]
150
{
\getbuffer
[
item
-
\recurselevel
]
}}}
151
\vskip
.
8
7
5
cm
}
152
\vfill
}
153
\vskip
-
\makeupheight
154
\vbox
to
\makeupheight
155
{
\vskip
.
7
5
cm
\relax
156
\dorecurse
{
\CurrentTopic
}
157
{
\edef
\Topic
{
topic
-
\realfolio
-
\recurselevel
}
158
\hbox
to
\makeupwidth
159
{
\hfill
160
\hpos
161
{
\Topic
}
162
{
\framed
163
[
width
=
\TopicWidth
,
frame
=
off
,
164
align
=
middle
,
offset
=
.
2
5
cm
]
165
{
\getbuffer
[
topic
-
\recurselevel
]
}}
%
166
\hskip
.
7
5
cm
}
167
\vskip
.
8
7
5
cm
}
168
\vfill
}
169
\stopstandardmakeup
}
170 171
\def
\StartItem
%
172
{
\doglobal
\increment
\CurrentItem
173
\dostartbuffer
[
item
-
\CurrentItem
][
StartItem
][
StopItem
]
}
174 175
\lefthyphenmin
=
\maxdimen
176
\righthyphenmin
=
\maxdimen
177 178
\def
\TitlePage
#
1
%
179
{
\startstandardmakeup
180
\setupalign
[
middle
]
181
\def
\\
{
\vfil
\bfb
\setupinterlinespace
}
182
\bfd
\setupinterlinespace
183
\vfil
#
1
\vfil\vfil
184
\stopstandardmakeup
}
185 186
\doifnotmode
{
demo
}{
\endinput
}
187 188
\starttext
189 190
\StartIdea
191
\StartTopic
192
What
a
topic
193
\StopTopic
194
\StartItem
195
\input
reich
\relax
196
\StopItem
197
\StartItem
198
\input
reich
\relax
199
\StopItem
200
\StartItem
201
\input
reich
\relax
202
\StopItem
203
\StopIdea
204 205
\StartIdea
206
\StartTopic
207
One
More
Nice
Idea
208
\StopTopic
209
\StartItem
210
\input
reich
\relax
211
\StopItem
212
\StartItem
213
\input
reich
\relax
214
\StopItem
215
\StopIdea
216 217
\StartIdea
218
\StartTopic
219
The
Last
Idea
220
\StopTopic
221
\StartItem
222
\input
tufte
\relax
223
\StopItem
224
\StopIdea
225 226
\stoptext
227