s-present-lines.mkiv /size: 4048 b    last modification: 2020-07-01 14:35
1
%D \module
2
%D [ file=s-present-lines,
3
%D version=1017.09.01,
4
%D title=\CONTEXT\ Style File,
5
%D subtitle=Presentation Environment Balls,
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 style was made for the \CONTEXT\ 2017 meeting. According to Alan Braslau we
15
%D should not display items that we discuss but for now I stick to it. As a
16
%D compromise this is a simple and effective style.
17 18
\startmodule
[
present
-
lines
]
19 20
\definecolor
[
backcolor
][
s
=
.
6
]
21
\definecolor
[
pagecolor
][
s
=
.
3
]
22
\definecolor
[
dotscolor
][
s
=
.
2
]
23
\definecolor
[
maincolor
][
b
=
.
6
]
24 25
\definecolor
[
maincolor
][
r
=
.
6
]
26 27
\setuppapersize
28
[
S
6
]
29 30
\setuplayout
31
[
header
=
0
pt
,
32
footer
=
0
pt
,
33
topspace
=
2
0
mm
,
34
backspace
=
2
0
mm
,
35
width
=
middle
,
36
height
=
middle
]
37 38
\setupbackgrounds
39
[
page
]
40
[
background
=
page
]
41 42
\defineoverlay
43
[
page
]
44
[
\useMPgraphic
{
page
}
]
45 46
\setupitemgroup
47
% [color=dotscolor]
48
[
color
=
maincolor
]
49 50
\definesymbol
51
[
1
][
{
\symbol
[
\char
"
2
5
A
0
]
}
]
52 53
\setupbodyfont
54
[
dejavu
]
55 56
\startuseMPgraphic
{
page
}
57
StartPage
;
58
numeric
d
;
d
:
=
15
pt
;
59
fill
Page
60
enlarged
2
d
61
withcolor
"
pagecolor
"
;
62
fill
Field
[
Text
]
[
Text
]
63
enlarged
2
d
64
withcolor
"
backcolor
"
;
65
draw
leftboundary
Field
[
Text
]
[
Text
]
66
bottomenlarged
3
d
67
topenlarged
-
(
d
/
10
)
68
shifted
(
-
d
,
0
)
69
withpen
pensquare
scaled
(
d
/
5
)
70
withcolor
"
maincolor
"
;
71
draw
bottomboundary
Field
[
Text
]
[
Text
]
72
leftenlarged
3
d
73
rightenlarged
-
(
d
/
10
)
74
shifted
(
0
,
-
d
)
75
withpen
pensquare
scaled
(
d
/
5
)
76
withcolor
"
maincolor
"
;
77
draw
rightboundary
Field
[
Text
]
[
Text
]
78
topenlarged
3
d
79
bottomenlarged
-
(
d
/
10
)
80
shifted
(
d
,
0
)
81
withpen
pensquare
scaled
(
d
/
5
)
82
withcolor
"
maincolor
"
;
83
draw
topboundary
Field
[
Text
]
[
Text
]
84
rightenlarged
3
d
85
leftenlarged
-
(
d
/
10
)
86
shifted
(
0
,
d
)
87
withpen
pensquare
scaled
(
d
/
5
)
88
withcolor
"
maincolor
"
;
89
StopPage
;
90
\stopuseMPgraphic
91 92
\setuphead
93
[
chapter
,
title
]
94
[
placehead
=
empty
,
95
number
=
no
,
96
after
=
{
\blank
[
disable
]
}
,
97
before
=]
98 99
\setuptext
100
[
color
=
pagecolor
,
101
style
=
\bfd
]
102 103
\setuptexttexts
104
[
\directsetup
{
text
:
texts
}
]
105 106
\startsetups
text
:
texts
107
\vbox
to
\textheight
{
108
\vfill
109
\hfill
110
\setstrut
111
\strut
112
\getmarking
[
chapter
]
113
\getmarking
[
title
]
114
\vskip
-
\strutdp
115
}
116
\stopsetups
117 118
\startsetups
document
:
start
119
\startstandardmakeup
120
\startparagraph
121
% Per 01-02-2017 the Bold abstraction also makes sure that CurrentFont
122
% works well which in turn makes MixedCaps and such working.
123
\definedfont
[
Bold
*
default
@
4
2
pt
]
124
\setupinterlinespace
125
\startcolor
[
pagecolor
]
126
\begstrut
127
\documentvariable
{
title
}
128
\endstrut
129
\stopcolor
130
\stopparagraph
131
\blank
[
2
*
line
]
132
\determinelistcharacteristics
[
chapter
]
133
\ifnum
\listlength
>
1
0
\relax
134
\startcolumns
135
\placelist
[
chapter
][
alternative
=
f
]
136
\stopcolumns
137
\else
138
\placelist
[
chapter
][
alternative
=
f
]
139
\fi
140
\vfill
141
\hfill
142
\bfb
143
\setstrut
144
\strut
145
\startcolor
[
pagecolor
]
146
\documentvariable
{
subtitle
}
147
\stopcolor
148
\vskip
-
\strutdp
149
\stopstandardmakeup
150
\stopsetups
151 152
\setupinteraction
153
[
state
=
start
,
154
color
=
maincolor
,
155
contrastcolor
=
maincolor
,
156
style
=]
157 158
\setuptyping
159
[
color
=
maincolor
]
160 161
\setuptype
162
[
color
=
maincolor
]
163 164
\usemodule
[
abr
-
0
4
]
165 166
\stopmodule
167 168
\continueifinputfile
{
s
-
present
-
lines
.
mkiv
}
169 170
% \usemodule[present-common]
171 172
% \inputpresentationfile{examples/....} % todo, 2017 presentations
173