s-pre-18.tex /size: 3920 b    last modification: 2020-07-01 14:35
1
%D \module
2
%D [ file=s-pre-18,
3
%D version=1999.08.20,
4
%D title=\CONTEXT\ Style File,
5
%D subtitle=Presentation Environment 18,
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
% todo: met pos en dan iedere titel
15 16
\setuppapersize
17
[
S
6
][
S
6
]
18 19
\setupbodyfont
20
[
loc
,
ppl
]
21 22
\setupcolors
23
[
state
=
start
]
24 25
\definecolor
[
shade
-
1
]
[
s
=
.
7
]
26
\definecolor
[
shade
-
2
]
[
s
=
.
1
]
27 28
\definecolor
[
shade
-
3
]
[
s
=
.
8
]
29
\definecolor
[
shade
-
4
]
[
b
=
.
8
]
30 31
\definecolor
[
shade
-
5
]
[
g
=
.
6
]
32 33
\setuplayout
34
[
topspace
=
1
cm
,
35
height
=
fit
,
36
backspace
=
1
cm
,
37
width
=
middle
,
38
header
=
0
pt
,
39
footer
=
0
pt
,
40
bottomdistance
=
1
cm
]
41 42
\setupbackgrounds
43
[
state
=
repeat
]
44 45
\setupbackgrounds
[
page
]
[
background
=
page
]
46 47
\defineoverlay
[
page
]
[
\useMPgraphic
{
page
}
]
48
\defineoverlay
[
text
]
[
\useMPgraphic
{
text
}
]
49 50
\startuseMPgraphic
{
page
}
51
StartPage
;
52
path
p
;
numeric
s
;
pair
cp
;
cp
:
=
center
Page
;
53
s
:
=
define_circular_shade
(
cp
,
cp
,
0
,
TextWidth
,
54
\MPcolor
{
shade-1
}
,
\MPcolor
{
shade-2
}
)
;
55
fill
Page
withshade
s
;
56
p
:
=
fullcircle
xyscaled
(
TextWidth
+1
cm
,
TextHeight
+1
cm
)
shifted
cp
;
57
s
:
=
define_circular_shade
(
cp
,
cp
,
0
,
TextWidth
,
\MPcolor
{
shade-3
}
,
58
\MPcolor
{
shade-4
}
)
;
59
fill
p
withshade
s
;
60
StopPage
61
\stopuseMPgraphic
62 63
\startuseMPgraphic
{
text
}
64
StartPage
;
65
path
p
;
numeric
s
,
t
;
pair
cp
;
cp
:
=
center
Page
;
66
s
:
=
define_circular_shade
(
cp
,
cp
,
0
,
TextWidth
,
67
\MPcolor
{
shade-1
}
,
\MPcolor
{
shade-2
}
)
;
68
fill
Page
withshade
s
;
69
p
:
=
llcorner
Field
[
Text
]
[
Bottom
]
--
70
lrcorner
Field
[
Text
]
[
Bottom
]
--
71
urcorner
Field
[
Text
]
[
Text
]
--
72
ulcorner
Field
[
Text
]
[
Text
]
--
cycle
;
73
p
:
=
p
enlarged
.5
cm
randomized
.5
cm
;
74
t
:
=
define_circular_shade
(
cp
,
cp
,
0
,
TextWidth
,
\MPcolor
{
shade-3
}
,
75
\MPcolor
{
shade-4
}
)
;
76
fill
p
withshade
t
;
77 78
def
bottom_menu_button
(
expr
nn
,
rr
,
pp
,
xx
,
yy
,
ww
,
hh
,
dd
)
=
79
if
(
pp
>
0
)
and
(
rr
>
0
)
:
80
if
nn
=
1
:
81
p
:
=
(
0
,
0
)
--
(
ww
,
hh
/
2
)
--
(
0
,
hh
)
-
-
cycle
;
82
elseif
nn
=
2
:
83
p
:
=
(
0
,
hh
/
2
)
--
(
ww
,
hh
)
--
(
ww
,
0
)
-
-
cycle
;
84
else
:
85
p
:
=
origin
-
-
cycle
;
86
fi
;
87
fill
p
randomized
2.5
mm
shifted
(
xx
,
yy
)
withshade
s
;
88
fi
;
89
enddef
;
90 91
\MPmenubuttons
{
bottom
}
92 93
if
length
\MPstring
{
topic
}
>
0
:
94
graphictext
95
\MPstring
{
topic
}
96
scaled
3
97
shifted
ulcorner
Field
[
Text
]
[
Text
]
98
shifted
(
0
,
-1.5
cm
)
99
withshade
s
;
100
fi
;
101 102
StopPage
;
103
\stopuseMPgraphic
104 105
\setupinteractionmenu
106
[
bottom
]
107
[
state
=
start
,
108
frame
=
off
,
109
left
=
\hfill
,
110
middle
=
\hskip
.
5
cm
,
111
width
=
2
\bottomheight
,
112
position
=
yes
]
113 114
\startinteractionmenu
[
bottom
]
115
\but
[
previouspage
]
\\
116
\but
[
nextpage
]
\\
117
\stopinteractionmenu
118 119
\setupinteraction
120
[
state
=
start
,
121
click
=
no
,
122
color
=
shade
-
5
,
123
contrastcolor
=
shade
-
5
,
124
menu
=
on
]
125 126
\setupwhitespace
127
[
big
]
128 129
\def
\Topic
#
1
%
130
{
\page
131
\setMPtext
{
topic
}{
#
1
}
132
\vbox
to
2
cm
{}}
133 134
\setMPtext
{
topic
}{}
135 136
\def
\StartTitlePage
%
137
{
\startstandardmakeup
[
bottomstate
=
none
]
138
\setupalign
[
middle
]
139
\vfill
}
140 141
\def
\StopTitlePage
%
142
{
\stopstandardmakeup
143
\setuplayout
[
bottom
=
1
.
5
cm
]
144
\setupbackgrounds
[
page
][
background
=
text
]
}
145 146
\def
\TitleString
#
1
#
2
%
147
{
\indent
148
\startMPcode
149
graphictext
150
"
#2
"
151
scaled
#
1
152
withdrawcolor
.4
white
153
withfillcolor
.7
white
154
withpen
pencircle
scaled
2
pt
;
155
\stopMPcode
156
\vfill
}
157 158
\doifnotmode
{
demo
}{
\endinput
}
159 160
\starttext
161 162
\StartTitlePage
163
\TitleString
{
8
}{
Welcome
}
164
\TitleString
{
4
}{
to
my
favourite
}
165
\TitleString
{
8
}{
Quotes
}
166
\StopTitlePage
167 168
\Topic
{
Douglas
R
.
Hofstadter
}
\input
douglas
\page
169
\Topic
{
Donald
E
.
Knuth
}
\input
knuth
\page
170
\Topic
{
Edward
R
.
Tufte
}
\input
tufte
\page
171
\Topic
{
Hermann
Zapf
}
\input
zapf
\page
172 173
\stoptext
174