SourceBrowser

s-pre-13.tex /size: 7322 b last modification: 2020-07-01 14:35
1%D \module
2%D   [      file=s-pre-13,
3%D        version=1999.08.20,
4%D          title=\CONTEXT\ Style File,
5%D       subtitle=Presentation Environment 13,
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 This is again one of the \EUROTEX\ 99 styles. It's one of
15%D the quick and dirty styles supporting basic structuring.
16
17\setuppapersize
18  [
S
6
]
[
S
6
]
19
20\setuplayout
21  [
width
=
middle
,
22   height
=
middle
,
23   header
=
0
pt
,
24   footer
=
0
pt
,
25   bottomdistance
=
.
5
cm
,
26   bottom
=
1
cm
,
27   topspace
=
2
cm
,
28   backspace
=
2
cm
]
29
30%D This style is meant to be used with lucida handwriting
31%D fonts. If you don't have that font, you may reconsider
32%D using this style.
33
34\startmode
[
asintended
]
 \setupbodyfont
[
lbr
,
hw
]
 \stopmode
35
36%D These colors will mostly be used in the graphics drawn by
37%D \METAPOST.
38
39\setupcolors
40  [
state
=
start
]
41
42\definecolor
[
PageColor
]
  [
s
=
.
6
]
43\definecolor
[
TextColor
]
  [
s
=
.
8
]
44\definecolor
[
LineColor
]
  [
g
=
.
4
]
45\definecolor
[
SymbolColor
]
[
r
=
.
4
]
46
47%D When interacting, we will use button shaped that are
48%D quite random and thereby regenerated for each instance.
49
50\setupinteractionscreen
51  [
option
=
max
]
52
53\setupinteractionmenu
54  [
bottom
]
55  [
state
=
start
,
56   height
=
1
cm
,
57   middle
=
\hskip
1
cm
]
58
59\setupinteraction
60  [
state
=
start
,
61   menu
=
on
,
62   display
=
new
,
63   click
=
no
,
64   color
=
SymbolColor
,
65   contrastcolor
=
SymbolColor
]
66
67\startinteractionmenu
[
bottom
]
68  \hfill
69  \got
 [
previouspage
]
  \symbol
[
prevmark
]
 \\
70  \got
 [
nextpage
]
      \symbol
[
nextmark
]
 \\
71  \got
 [
CloseDocument
]
 \symbol
[
stopmark
]
 \\
72  \txt
 \tfd
 \SymbolColor
 \pagenumber
     \\
73\stopinteractionmenu
74
75%D When not processed at runtime, the itemmark graphics can
76%D result in processing loops due to funny dimensions.
77%D Therefore, from now on, the itemize macros limit the height
78%D and depth.
79
80\definesymbol
[
itemmark
]
[
\useMPgraphic
{
itemmark
}
]
81\definesymbol
[
stopmark
]
[
\useMPgraphic
{
stopmark
}
]
82\definesymbol
[
nextmark
]
[
\useMPgraphic
{
nextmark
}
]
83\definesymbol
[
prevmark
]
[
\useMPgraphic
{
prevmark
}
]
84
85%D Of course we have some backgrounds.
86
87\defineoverlay
 [
page
]
 [
\useMPgraphic
{
page
}
]
88\defineoverlay
 [
next
]
 [
\overlaybutton
{
forward
}
]
89\defineoverlay
 [
prev
]
 [
\overlaybutton
{
PreviousJump
}
]
90
91\setupbackgrounds
92  [
page
]
93  [
background
=
{
page
,
prev
}
]
94
95\setupbackgrounds
96  [
text
]
97  [
background
=
next
]
98
99\setuphead
100  [
chapter
]
101  [
alternative
=
middle
,
102   number
=
no
,
103   color
=
SymbolColor
,
104   style
=
\tfc
]
105
106%D A little bit of tweaking.
107
108\setupwhitespace
109  [
big
]
110
111\setupitemize
112  [
1
]
113  [
symbol
=
itemmark
,
114   width
=
3
\bodyfontsize
]
115
116\def
\StartTitlePage
%
117  {
\setupinteractionmenu
[
bottom
]
[
state
=
stop
]
 % will be named page block
118   \startstandardmakeup
119     \setupalign
[
middle
]
120     \def
\\
%
121       {
\stopcolor
122        \vfil
123        \bfb
\setupinterlinespace
124        \startcolor
[
black
]
}
125     \bfd
\setupinterlinespace
126     \vfil
127     \startcolor
[
SymbolColor
]
}
128
129\def
\StopTitlePage
130  {
\stopcolor
131   \vfil
\vfil
132   \stopstandardmakeup
133   \setupinteractionmenu
[
bottom
]
[
state
=
start
]
}
134
135
136\def
\TitlePage
#
1
%
137  {
\StartTitlePage
#
1
\StopTitlePage
}
138
139\definehead
[
Topic
]
[
chapter
]
140\definehead
[
Nopic
]
[
title
]
141
142\setuplist
143  [
Topic
]
144  [
criterium
=
all
,
145   alternative
=
g
,
146   interaction
=
all
,
147   after
=
\blank
]
148
149\def
\Topics
#
1
%
150 {
\Nopic
{
#
1
}
151  \bgroup
152  \setupinteraction
153    [
color
=
,
154     contrastcolor
=
]
155   \determinelistcharacteristics
[
Topic
]
156   \ifnum
\utilitylistlength
>
1
2
157     \startcolumns
[
n
=
2
]
158       \placelist
[
Topic
]
159     \stopcolumns
160   \else
161     \placelist
[
Topic
]
162   \fi
163  \egroup
}
164
165%D We don't support another level of structuring.
166
167\let
\Subject
 \Topic
168\let
\Subjects
\relax
169
170%D Most of this style is \METAPOST\ definitions. We could
171%D have shared some code, but it would not on forehand make
172%D things more readable, so we stick to the following
173%D definitions.
174
175\startuseMPgraphic
{
page
}
176
177 width
  :
=
 \overlaywidth
 ;
178 height
 :
=
 \overlayheight
 ;
179
180 d
 :
=
 15
 ;
 dd
 :
=
 d
 ;
          dd
 :
=
 10
 ;
181
182 def
 fuzzy
 (
expr
 p
,
dx
,
dy
)
 =
183   (
xpart
 p
 +
dx
-
uniformdeviate
 dx
,
ypart
 p
+
dy
-
uniformdeviate
 dy
)
184 enddef
 ;
185
186 pair
 ll
,
 lr
,
 ur
,
 ul
 ;
187
188 ll
 :
=
 (
d
,
d
)
 ;
189 lr
 :
=
 (
width
-
d
,
d
)
 ;
190 ur
 :
=
 (
width
-
d
,
height
-
d
)
 ;
191 ul
 :
=
 (
d
,
height
-
d
)
 ;
192
193 path
 p
,
 q
,
 r
,
 s
 ;
194
195 p
 :
=
 ll
..
 for
 i
=
.1
 step
 .1
 until
 .9
 :
 fuzzy
 (
i
[
ll
,
lr
]
,
0
,
+
dd
)
..
 endfor
 lr
 ;
196 q
 :
=
 lr
..
 for
 i
=
.1
 step
 .1
 until
 .9
 :
 fuzzy
 (
i
[
lr
,
ur
]
,
-
dd
,
0
)
..
 endfor
 ur
 ;
197 r
 :
=
 ur
..
 for
 i
=
.1
 step
 .1
 until
 .9
 :
 fuzzy
 (
i
[
ur
,
ul
]
,
0
,
-
dd
)
..
 endfor
 ul
 ;
198 s
 :
=
 ul
..
 for
 i
=
.1
 step
 .1
 until
 .9
 :
 fuzzy
 (
i
[
ul
,
ll
]
,
+
dd
,
0
)
..
 endfor
 ll
 ;
199
200 fill
 unitsquare
 xscaled
 width
 yscaled
 height
 withcolor
 \MPcolor
{
PageColor
}
 ;
201
202 fill
 p
 &
 q
 &
 r
 &
 s
 --
 cycle
 withcolor
 \MPcolor
{
TextColor
}
 ;
203
204 color
 c
 ;
 c
 :
=
 \MPcolor
{
LineColor
}
 ;
205
206 draw
 p
 withpen
 pencircle
 xscaled
 20
 yscaled
  5
 rotated
 30
 withcolor
 c
 ;
207 draw
 q
 withpen
 pencircle
 xscaled
  5
 yscaled
 20
 rotated
 30
 withcolor
 c
 ;
208 draw
 r
 withpen
 pencircle
 xscaled
 20
 yscaled
  5
 rotated
 30
 withcolor
 c
 ;
209 draw
 s
 withpen
 pencircle
 xscaled
  5
 yscaled
 20
 rotated
 30
 withcolor
 c
 ;
210
211\stopuseMPgraphic
212
213\startuseMPgraphic
{
itemmark
}
214  width
     :
=
 BodyFontSize
 ;
 height
 :
=
 width
/
4
 ;
215  maxheight
 :
=
 StrutHeight
  ;
 line
   :
=
 3
width
/
2
 ;
216
217  def
 fuzzy
 =
 -
(
height
/
4
)
+
uniformdeviate
 (
height
/
2
)
 enddef
 ;
218
219  draw
220    (
(
0
,
0
+
fuzzy
)
--
(
width
,
height
+
fuzzy
/
2
)
)
221      shifted
 (
line
/
2
,
0
)
222    withpen
 pencircle
223      xscaled
 line
 yscaled
 (
line
/
4
)
224      rotated
 (
25
+
uniformdeviate
 10
)
 withcolor
 \MPcolor
{
SymbolColor
}
 ;
225
226  setbounds
 currentpicture
 to
 unitsquare
 xyscaled
(
width
,
maxheight
)
 ;
227\stopuseMPgraphic
228
229\startuseMPgraphic
{
nextmark
}
230  LoadPageState
 ;
 width
 :
=
 BottomHeight
 ;
 height
 :
=
 line
 :
=
 width
/
2
 ;
231
232  def
 fuzzy
 =
 -
(
height
/
8
)
+
uniformdeviate
 (
height
/
4
)
 enddef
 ;
233
234  z
1
 =
 (
0
,
0
+
fuzzy
)
 ;
 z
2
 =
 (
width
,
height
/
2
+
fuzzy
/
2
)
 ;
 z
3
 =
 (
0
,
height
+
fuzzy
)
 ;
235
236  draw
237    (
z
1.
.
{
right
}
z
2
 &
 z
2
{
left
}
.
.
z
3
)
238    withpen
 pencircle
239      xscaled
 line
 yscaled
 (
line
/
4
)
240      rotated
 30
 withcolor
 \MPcolor
{
SymbolColor
}
 ;
241
242  setbounds
 currentpicture
 to
 unitsquare
 xyscaled
(
width
,
height
)
 ;
243\stopuseMPgraphic
244
245\startuseMPgraphic
{
prevmark
}
246  LoadPageState
 ;
 width
 :
=
 BottomHeight
 ;
 height
 :
=
 line
 :
=
 width
/
2
 ;
247
248  def
 fuzzy
 =
 -
(
height
/
8
)
+
uniformdeviate
 (
height
/
4
)
 enddef
 ;
249
250  z
1
 =
 (
width
,
0
+
fuzzy
)
 ;
 z
2
 =
 (
0
,
height
/
2
+
fuzzy
/
2
)
 ;
 z
3
 =
 (
width
,
height
+
fuzzy
)
 ;
251
252  draw
253    (
z
1.
.
{
left
}
z
2
 &
 z
2
{
right
}
.
.
z
3
)
254    withpen
 pencircle
255      xscaled
 line
 yscaled
 (
line
/
4
)
256      rotated
 30
 withcolor
 \MPcolor
{
SymbolColor
}
 ;
257
258  setbounds
 currentpicture
 to
 unitsquare
 xyscaled
(
width
,
height
)
 ;
259\stopuseMPgraphic
260
261\startuseMPgraphic
{
stopmark
}
262  LoadPageState
 ;
 width
 :
=
 BottomHeight
 ;
 height
 :
=
 line
 :
=
 width
/
2
 ;
263
264  def
 fuzzy
 =
 -
(
height
/
8
)
+
uniformdeviate
 (
height
/
4
)
 enddef
 ;
265
266  z
1
 =
 (
0
,
0
+
fuzzy
)
 ;
267  z
2
 =
 (
width
,
height
+
fuzzy
)
 ;
268  z
3
 =
 (
width
,
0
+
fuzzy
)
 ;
269  z
4
 =
 (
0
,
height
+
fuzzy
)
 ;
270  z
5
 =
 (
width
/
2
,
height
/
2
)
 ;
271
272  drawoptions
273   (
withpen
 pencircle
274      xscaled
 line
 yscaled
 (
line
/
4
)
275      rotated
 30
 withcolor
 \MPcolor
{
SymbolColor
}
)
 ;
276
277  draw
 z
1.
.
{
right
}
z
5.
.
z
2
 ;
 draw
 z
3.
.
{
left
}
z
5.
.
z
4
 ;
278
279  setbounds
 currentpicture
 to
 unitsquare
 xyscaled
(
width
,
height
)
 ;
280\stopuseMPgraphic
281
282\doifnotmode
{
demo
}
{
\endinput
}
283
284%D The (rather silly) demo section.
285
286\starttext
287
288\TitlePage
{
Title
 Page
\\
pre
-
writing
}
289
290\Topics
{
Some
 Nice
 Quotes
}
291
292\Topic
{
A
 Few
}
293
294\Subject
{
Knuth
}
 \input
 knuth
295\Subject
{
Tufte
}
 \input
 tufte
296
297\Topic
{
Some
 More
}
298
299\Subject
{
Zapf
}
   \input
 zapf
300\Subject
{
Bryson
}
 \input
 bryson
301
302\stoptext
303
Source Browser ?
